Discussion :

[hthiriez]

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 !

[fring]

Bonjour,

As-tu essayé en spécifiant le nom et le chemin complet ?
Exemple :

Code :

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

PrintToFile:="C:\Temp\Jules.pdf"

[hthiriez]

Cela ne marche pas mieux avec le chemin, ni avec la seconde ni avec la troisième instruction...

[fring]

Je n'ai pas testé mais peut-être que cet article dans la FAQ pourra t'inspirer

Comment créer un fichier PDF en pilotant Acrobat Distiller ?

.

[peofofo]

Si tu trouves la solution hthiriez peus tu la mettre sur ce topic, le sujet m'intéresse également.

[kiki29]

Salut,
Voir aide en ligne sur PrintOut
Avec Distiller PrToFileName génère un fichier ps ( PostScript ) et non un pdf
Le N° d'imprimante Nexy change suivant le PC sur laquelle la macro tourne
Il faut prédéfinir soit manuellement ou par programmation pour chaque feuille la zone et le format d'impression

voir http://www.developpez.net/forums/sho...d.php?t=431662
qui est maj avant la FAQ http://excel.developpez.com/faq/?pag...erPdfDistiller