Probleme de code pour enregistrement automati
linda
-
Papou93 Messages postés 146 Date d'inscription Statut Membre Dernière intervention -
Papou93 Messages postés 146 Date d'inscription Statut Membre Dernière intervention -
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.-
merci Papou mais malheureusement cela ne fonctionne pas , j'ai aussi essayé en remplacant le ; par une , et par : mais rien.... je continue à chercher.... merci quand même
- Re 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 - Bonjour 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.
-
