Probleme de code pour enregistrement automati
Bonjour à tous
voila j'ai ce code :
Range("A25").Select
Set plage = Range("A25", [A25].End(xlDown))
nbcell = plage.Count + 3
If nbcell <= 32 Then
SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS\" & Range("B24").Value
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, ActivePrinter:="eDocPrinter PDF Pro", Collate _
:=True
qui me permet d'enregistrer automatiquement dans un fichier sous le contenu de la cellule ("B24") qui est le numero du devis mais j'aimerais ajouter la cellule ("D11") qui est le nom du client et j'ai donc mis :
Range("A25").Select
Set plage = Range("A25", [A25].End(xlDown))
nbcell = plage.Count + 3
If nbcell <= 32 Then
SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS\" & Range("B24,D11").Value
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, ActivePrinter:="eDocPrinter PDF Pro", Collate _
:=True
Mais cela ne fonctionne pas, quelqu'un a t il une idée?
Merci d'avance
voila j'ai ce code :
Range("A25").Select
Set plage = Range("A25", [A25].End(xlDown))
nbcell = plage.Count + 3
If nbcell <= 32 Then
SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS\" & Range("B24").Value
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, ActivePrinter:="eDocPrinter PDF Pro", Collate _
:=True
qui me permet d'enregistrer automatiquement dans un fichier sous le contenu de la cellule ("B24") qui est le numero du devis mais j'aimerais ajouter la cellule ("D11") qui est le nom du client et j'ai donc mis :
Range("A25").Select
Set plage = Range("A25", [A25].End(xlDown))
nbcell = plage.Count + 3
If nbcell <= 32 Then
SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS\" & Range("B24,D11").Value
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, ActivePrinter:="eDocPrinter PDF Pro", Collate _
:=True
Mais cela ne fonctionne pas, quelqu'un a t il une idée?
Merci d'avance
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
Bonsoir linda,
Tu dois séparer les 2 cellules par un point-virgule :
SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS\" & Range("B24;D11").Value
Cordialement.-
-
@lindetteBonjour Linda,
Essaies comme celà, alors :SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS\" & Range("B24").Value & Range("C11").value
Cordialement. -
@Papou93Oh oui super comme cela ça fonctionne bien. encore mille merci Papou
Linda -
@Papou93Re bonjour Papou
J ai une petite question
serait-il possible aprés ce code :
#
MsgBox ("Le devis sera enregistrer sous -nom client et numero devis- soit : " & Range("D11").Value & Range("B24") & Chr(13) & "Cliquez sur OK, une fois prêt")
Range("A25").Select
Set plage = Range("A25", [A25].End(xlDown))
nbcell = plage.Count + 3
If nbcell <= 32 Then
SendKeys ThePath & TheFile + "C:\Documents and Settings\owner\Mes documents\CLIENTS\" & Range("D11").Value & Range("B24").Value
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, ActivePrinter:="eDocPrinter PDF Pro", Collate _
:=True
Else
With ActiveSheet.PageSetup
.PrintTitleRows = "$24:$25"
.PrintTitleColumns = ""
End With
SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS\" & Range("D11").Value & Range("B24").Value
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, ActivePrinter:="eDocPrinter PDF Pro", Collate _
:=True
#
d'ajouter une boite de dialogue demandant si on veut: imprimer ou envoyer par mail ou faxer ce document?
Merci d'avance pour ta réponse
Linda -
@lindetteBonjour lindette,
Je pense que c'est possible, mais je n'ai jamais pratiqué.
La meilleure façon est, je pense, que tu utilises l'enregistreur de macros pour chaque manip, puis tu exécutes ces macros avec le bouton de validation de ta boite de dialogue, en fonction de la case d'option choisie.
Espérant t'avoir été utile sur cette question.
Cordialement.
-
