Impression pdf et VBA [Résolu]

[tom0ne]

Merci Oli,

J'ai ajouté la référence PDFcreator,

Tout de suite beaucoup mieux !

J'ai deux résultats du code :

- 1) soit je n'active pas "enregistrement automatique" dans pdf creator et je reçois une demande de chemin et de nom pour l'enregistrement du fichier pdf,

- 2) soit j'active "enregistrement automatique" dans pdf creator et le fichier est enregistré automatiquement sur mon bureau.
Cependant, il ne porte pas le nom du code mais celui configuré dans les paramètres de pdfcreator, idem pour le chemin.

Je te joint 2 copies écran pour être plus clair.

En attendant ta réponse, je te souhaite d'excellent fêtes de fin d'année et un joyeux nouvel an.
Merci énormément de faire partager ton savoir comme tu le fais sur ce forum.

En vacances?

Personne d'autre?

Merci

[kiki29]

Salut, pour en revenir à Acrobat Distiller voir sur http://www.developpez.net/forums/d43...bat-distiller/ Post #6

[tom0ne]

Merci KiKi29,

Il est vrai qu'au départ, je voulais utiliser acrobat distiller mais finalement, j'ai adopté PDFCREATOR que je trouve plus léger et plus rapide.

C'est avec celui-ci que je n'arrive pas donner un nom et un chemin de mon choix.
Il y a une semaine que je le tourne dans tous les sens... et rien, je n'y arrive pas,

[kiki29]

Salut,

j'ai également les 2 et avec PDFCreator reste quand même un pb récurrent (moindre que dans les versions < à la 1.2.3) de process actif

[tom0ne]

Bonsoir kiki,

Merci de ta réponse,

Tu as raison, je veux bien repartir avec distiller.

Je vais tester ton code mais j'ai déjà des choses pour lesquelles j'ai besoin d'aide :
1- mon imprimante par défaut n'est pas distiller,
Je dois enregistrer mon imprimante par défaut avant de lancer distiller.

2-

Code :

Le N° de port réseau NeXY varie suivant le PC sur lequel la macro tourne

C'est quoi NeXY? ou se trouve ce numéro de port?

3- pourquoi 3 fichiers?
.ps et .log sont ils nécessaires?
Peut-on les mettre dans le répertoire "temp" de windows?

Code :

1
2
3
Dim sNomFichierPS As String
Dim sNomFichierPDF As String
Dim sNomFichierLOG As String

Merci de ton aide,

Tom0ne

[kiki29]

Salut, L'imprimante par défaut est sauvegardée en début de procédure et rétablie en fin, le code a depuis été modifié et allégé

PrintOut ne génère pas un fichier PDF mais un fichier PostScript

PS pour PostScript
LOG contient un journal des évènements avec les éventuels messages d'erreur lors de la génération du fichier Pdf
PDF fichier final Pdf

les fichiers PS et LOG sont effacés en fin de procédure Tst_WORD_Adobe_PDF par un kill

[tom0ne]

Salut,
Merci de tes explications qui me permettent de mieux comprendre le code.

Le code le plus abouti est il celui-ci ?
Les parties en rouge sont-elles bien celles où ecrire le chemin et le nom du fichier?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
Sub Tst_WORD_Adobe_PDF()
Dim sNomFichierPS As String
Dim sNomFichierPDF As String
Dim sNomFichierLOG As String
Dim PDFDist As PdfDistiller
Dim PrinterDefault As String
 
    PrinterDefault = Application.ActivePrinter
    Application.ActivePrinter = "Adobe PDF"
 
    sNomFichierPS = ThisDocument.Path & "MON CHEMIN" & "Essai_Word_AdobePDF.ps"
    sNomFichierPDF = ThisDocument.Path & "MON CHEMIN" & "Essai_Word_AdobePDF.pdf"
    sNomFichierLOG = ThisDocument.Path & "MON CHEMIN" & "Essai_Word_AdobePDF.log"
 
    ThisDocument.PrintOut outputFilename:=sNomFichierPS, PrintToFile:=True, Background:=False, Range:=wdPrintAllDocument
 
    Set PDFDist = New PdfDistiller
    PDFDist.FileToPDF sNomFichierPS, sNomFichierPDF, "MON FICHIER"
    Set PDFDist = Nothing
 
    Kill sNomFichierPS
    Kill sNomFichierLOG
 
    Application.ActivePrinter = PrinterDefault
End Sub

Merci beaucoup.

[kiki29]

Re, cela dépendra de la façon dont tu écriras Mon Chemin (je ne suis pas SOURD), Option Explicit n'est pas là pour rien.

[tom0ne]

Bonsoir,

Je viens de tester le code ci-dessous :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
Sub Tst_WORD_Adobe_PDF()
Dim sNomFichierPS As String
Dim sNomFichierPDF As String
Dim sNomFichierLOG As String
Dim PDFDist As PdfDistiller
Dim PrinterDefault As String
 
    PrinterDefault = Application.ActivePrinter
    Application.ActivePrinter = "Adobe PDF"
 
    sNomFichierPS = ThisDocument.Path & "E:\Documents and Settings\Thom@s\Bureau" & "Essai_Word_AdobePDF.ps"
    sNomFichierPDF = ThisDocument.Path & "E:\Documents and Settings\Thom@s\Bureau" & "Essai_Word_AdobePDF.pdf"
    sNomFichierLOG = ThisDocument.Path & "E:\Documents and Settings\Thom@s\Bureau" & "Essai_Word_AdobePDF.log"
 
    ThisDocument.PrintOut outputFilename:=sNomFichierPS, PrintToFile:=True, Background:=False, Range:=wdPrintAllDocument
 
    Set PDFDist = New PdfDistiller
    PDFDist.FileToPDF sNomFichierPS, sNomFichierPDF, "mon_fichier"
    Set PDFDist = Nothing
 
    Kill sNomFichierPS
    Kill sNomFichierLOG
 
    Application.ActivePrinter = PrinterDefault
End Sub

J'ai en effet un problème de chemin.

Mon bureau ne se trouve pas sur le disque C:\ mais sur la partition E:\

Je reçois l'erreur suivante et je ne sais vraiment pas comment modifier le chemin qui renvoi sur C:/
Je suis sur un ordinateur personnel.

Merci de votre aide et bon week-end.

[kiki29]

Re, encore un drame du copier/coller car visiblement tu ne maitrises même pas le B A BA, et tu ne comprends rien à ce que tu fais. Pour ma part je renonce

2 échantillons :

Code :

ThisDocument.Path & "E:\Documents

Code :

PDFDist.FileToPDF sNomFichierPS, sNomFichierPDF, "mon_fichier"

[tom0ne]

Re,
Je te remercie de ta réponse,
Je ne suis pas un grand professionnel du VBA en effet et je n'ai jamais dit le contraire.

Je suis venu sur ce forum pour trouver une réponse, je me suis peut-être trompé de forum.

Quant au chemin, j'ai suivi ton exemple cité ici :

http://www.developpez.net/forums/d43...bat-distiller/
"
Les chemins PS PDF LOG devront être de la forme "

Code :

"C:\Documents and Settings\UserName\.....\....."

Merci

[kiki29]

Re, même pas, car regarde ton code

Code :

sNomFichierPS = "E:\Documents and Settings\Thom@s\Bureau" &"\"& "Essai_Word_AdobePDF.ps"

Code :

PDFDist.FileToPDF sNomFichierPS, sNomFichierPDF, ""

[tom0ne]

Ok je vais essayer de m'appliquer

[tom0ne]

Envoyé par kiki29

Re, même pas, car regarde ton code

Code :

sNomFichierPS = "E:\Documents and Settings\Thom@s\Bureau" &"\"& "Essai_Word_AdobePDF.ps"

Code :

PDFDist.FileToPDF sNomFichierPS, sNomFichierPDF, ""

Ah oui là j'avoue l'erreur est grossière !
Tu vois grâce à toi je viens de comprendre cette ligne.

A quoi servent le guillements à la fin de cette ligne de code ?

Code :

 PDFDist.FileToPDF sNomFichierPS, sNomFichierPDF, ""

[kiki29]

Re, extrait de la Doc Adobe

strInputPostScript The PostScript file to process.
strOutputPDF The name of the PDF filename.
strPDFOptions The name and path of the Adobe PDF settings file to use.

[tom0ne]

Re,

Merci de ta réponse,

Je viens de tester le code ci-dessous,
Je ne rencontre aucune erreur et le fichier pdf abouti bien sur mon bureau.

Par contre, sais-tu pourquoi le fichier pdf est vide?
J'ai essayé en envoyant les polices ou sans envoyer les polices et j'ai le même résultat. (une seule page blanche)

Et enfin j'ai essayé de paramétrer l'ouverture automatique du pdf généré mais il semble qu'il faille envoyer la commande depuis le Postscript.

qu'en penses-tu?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
Sub Tst_WORD_Adobe_PDF()
Dim sNomFichierPS As String
Dim sNomFichierPDF As String
Dim sNomFichierLOG As String
Dim PDFDist As PdfDistiller
Dim PrinterDefault As String
 
    PrinterDefault = Application.ActivePrinter
    Application.ActivePrinter = "Adobe PDF"
 
    sNomFichierPS = "E:\Documents and Settings\Thom@s\Bureau" & "\" & "Essai_Word_AdobePDF.ps"
    sNomFichierPDF = "E:\Documents and Settings\Thom@s\Bureau" & "\" & "Essai_Word_AdobePDF.pdf"
    sNomFichierLOG = "E:\Documents and Settings\Thom@s\Bureau" & "\" & "Essai_Word_AdobePDF.log"
 
    ThisDocument.PrintOut outputFilename:=sNomFichierPS, PrintToFile:=True, Background:=False, Range:=wdPrintAllDocument
 
    Set PDFDist = New PdfDistiller
    PDFDist.FileToPDF sNomFichierPS, sNomFichierPDF, ""
    Set PDFDist = Nothing
 
    Kill sNomFichierPS
    Kill sNomFichierLOG
 
    Application.ActivePrinter = PrinterDefault
End Sub

Merci

[kiki29]

Re, j'ose espérer que le document concerné à imprimer n'est pas vierge ?
à voir également le fichier de paramétrage par défaut de Distiller
Ne pas "killer" le fichier LOG et le lire pour y voir peut-être qqch ?

[tom0ne]

Salut et merci de ton aide encore une fois,

Non quand même , le document n'est pas vierge,

Si je teste le même fichier :

- Soit directement en sélectionnant l'imprimante, le nom et le dossier de sortie à la main, le fichier s'imprime correctement.
Toutes les préférences de distiller sont appliquées (ouverture du fichier pdf généré, demande du nom du fichier....)
A coté de l'horloge, le logo d'acrobat tourne.

- Soit avec le code et les polices envoyées.(paramètres de l'impression)
Au lancement de la macro, il y a une petite fenêtre grise, trop rapide pour que je la vois et immédiatement la création du fichier ps qui se "change" en pdf. Le document ne s'ouvre pas et la page est vierge


- Soit avec le code et les polices non envoyées.
J'obtiens les erreurs suivantes.

Là je ne sais plus par quel bout l'attraper.
Sans ton aide j'aurais déjà renoncé.

Pour le fichier .ps, c'était une page avec ecrit "test"

Merci encore

[kiki29]

Salut, ou as-tu placé le code ? pas dans Normal.dot mais dans un module car alors remplacer ThisDocument par ActiveDocument ?

Ton fichier Txt : l'extension changée en PS un double clic lance Distiller et génère un Pdf vide

[tom0ne]

Bravo Kiki !!
Merci beaucoup, tu es un champion !

Thomas