Bonjour !

Voici le code VBA qui présente mon problème :

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
19
20
Sub Adobe()
 
' Je cherche a imprimer un fichier Excel en pdf en spécifiant le nom du fichier
 
'*** Pensez à adapter l'adresse d'impression Adobe à la vôtre !
 
' Quand j'utilise la commande sans nom ci-apres, cela marche bien...
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Adobe PDF sur Ne04:", Collate:=True
 
' Quand j'active la commande ci-dessous, la syntaxe bloque
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Adobe PDF sur Ne04:", PrintToFile:="Jules.pdf", Collate:=True
 
' Quand j'active la commande ci-dessous, ça plante meme si je fais
' ce qui est demande dans les Options d'Adobe...
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Adobe PDF sur Ne04:", Collate:=True, PrToFileName:="Jules.pdf"
 
End Sub
Comment faire pour spécifier le chemin et le nom du fichier pdf ?

Merci d'avance !