Discussion :

[divayg]

* 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Tu dis