* 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:
Est ce que quelqu'un a la solution?
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
Merci
Partager