ChristopheXXXX
XLDnaute Nouveau
Bonjour à tous,
J'ai un gros problème, je dois imprimer en pdf 163 fichiers excel et les renommer.
Je pensais établir une macro, mais je ne sais pas par quel bout commencer.
Je dois faire une boucle pour que la macro soit autonome, le fichier excel comporte quatre feuilles dont une en format paysage qui me bloque l'impression et m'oblige à renommer le fichier de destination.
Sub Macroimpression()
'
' Macroimpression Macro
' Macro enregistrée le 10/07/2009 par xxxx
'
'
ChDir "C:\Documents and Settings\xxxx\Bureau\PDF à créer\Rapports de visite"
Workbooks.Open Filename:= _
"C:\Documents and Settings\xxxx\Bureau\PDF à créer\Rapports de visite\Test.xls"
Application.ActivePrinter = "Adobe PDF sur Ne04:"
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:="Adobe PDF sur Ne04:", _
Collate:=True
ActiveWindow.SmallScroll Down:=45
End Sub
Avez vous une idée?
Merci à tous
J'ai un gros problème, je dois imprimer en pdf 163 fichiers excel et les renommer.
Je pensais établir une macro, mais je ne sais pas par quel bout commencer.
Je dois faire une boucle pour que la macro soit autonome, le fichier excel comporte quatre feuilles dont une en format paysage qui me bloque l'impression et m'oblige à renommer le fichier de destination.
Sub Macroimpression()
'
' Macroimpression Macro
' Macro enregistrée le 10/07/2009 par xxxx
'
'
ChDir "C:\Documents and Settings\xxxx\Bureau\PDF à créer\Rapports de visite"
Workbooks.Open Filename:= _
"C:\Documents and Settings\xxxx\Bureau\PDF à créer\Rapports de visite\Test.xls"
Application.ActivePrinter = "Adobe PDF sur Ne04:"
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:="Adobe PDF sur Ne04:", _
Collate:=True
ActiveWindow.SmallScroll Down:=45
End Sub
Avez vous une idée?
Merci à tous