de .xls à .pdf

bonjour,

je suis en train de développer une petite macro qui me permet d'imprimer tous les onglets d'un classeur excell en .PDF via "l'imprimante" PDFcreator

j'ai créé la macro en enregistrement automatique et ça me donne ça :

Code:

---

1 2 3

Application.ActivePrinter = "PDFCreator sur Ne01:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "PDFCreator sur Ne01:", Collate:=True

---

quand je fais ca, la fenêtre d'enregistrement s'ouvre, je mets le nom, j'enregistre. Je peux ouvrir le fichier, tout va bien. :D

Maintenant, vu que j'ai plusieurs onglets à imprimer, j'aimerais pouvoir donner l'endroit où j'aimerais qu'il enregistre. Pour cela, j'ai modifié la macro et ça donne ça :

Code:

---

1 2 3

ActiveSheet.PrintOut Copies:=1, Preview:=False, _ ActivePrinter:="PDFCreator sur Ne01:", PrintToFile:=True, _ Collate:=True, PrToFileName:="C:\Documents and Settings\A.Crettaz\Bureau\toto.PDF"

---

quand j'exécute la macro, le fichier se crée correctement sur mon bureau, mais impossible de l'ouvrir.

Est-ce que quelqu'un pourrait m'aider et me dire ce que je fais de faux, parce que j'ai passé ma journée la dessus et c'est mon boss qui ne va pas être extrêmement content :(

Je vous remercie d'avance

pour ceux que cela intéresse, j'ai trouvé une solution alternative ou j'enregistre le fichier, puis le renomme avec le nom voulu :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim OldName, NewName, FileName   FileName = ThisWorkbook.Name FileName = Left(FileName, Len(FileName) - 4) 'enlève l'extension .xls Sheets(MonNomDeFichier).Select   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True   OldName = "C:\Documents and Settings\...\Bureau\" & FileName & ".pdf" NewName = "C:\Documents and Settings\...\Bureau\" & MonNomDeFichier & ".pdf"   Application.Wait (Now + TimeValue("0:00:04")) 'temps de création du fichier ( j'ai pas trouvé un moyen de vérifier qu'il est bien créé avant de le renommer) Name OldName As NewName ' Déplace et renomme le fichier.

---