Automatiser une impression

Bonjour,
Je n'arrive pas à écrire un code me permettant de lancer une impression en PDF

Je vous joint le code que m'a fournit Excel en enregistrant le chemin "imprimer"
Le problème est que lorsque je change de poste, le programme ne fanctionne plus..

Merci de votre aide :)

Code:

---

1 2 3 4 5

Sheets("Fiche d'analyse").Select Application.ActivePrinter = "PDFCreator sur Ne00:" ExecuteExcel4Macro _ "PRINT(1,,,1,,,,,,,,2,""PDFCreator sur Ne00:"",,TRUE,,FALSE)"

---

Salut, depuis Office 2007 SP2 le format PDF est intégré en natif dans Office
et via l'enregistreur de macros tu obtiens qqch comme

Code:

---

1 2 3 4

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Transfert\Classeur1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False

---

Pour info : à lire ceci

Pour ExecuteExcel4Macro il n'y a pas de paramètres prenant en charge l'imprimante sur laquelle l'impression se fera, ce sera celle sélectionnée par défaut : voir ici

Merci beaucoup!