Probleme impression VBA

* Bonjour *

Je souhaiterais automatiser l'attribution du nom de fichier en imprimant un pdf dans un fichier avec PDF Creator.
Ma formule me renvoi une erreur "compile error"

Voici l exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Macro2()   ' Macro2 Macro     Sheets("Forh. liste").Select Range("E2").Select Selection.Copy Sheets("Analyse").Select Range("F5:H6").Select ActiveSheet.Paste Application.CutCopyMode = False   Dim Fichier As Variant Fichier = Range("F5").Value ActiveWorkbook.PrintOut (Copies:=1, ActivePrinter:=[PDFCreator], prtoFilename:=_Fichier)   End Sub

---

Est ce que quelqu'un a la solution?

Merci

Sans aller plus loin, supprime déjà l'underscore avant "fichier"

Code:

---

ActiveWorkbook.PrintOut (Copies:=1, ActivePrinter:=[PDFCreator], prtoFilename:=Fichier)

---

Tu dis