Solution en VBA : convertir un .doc en .pdf

Question

Tous les messages que j'ai pu trouver sur le sujet n'ont pas répondu à ma question : comment transformer mon fichier "Machin.doc" en "Truc.pdf" sans que la boite de dialogue demande à l'utilisateur où et comment nommer son fichier pdf.

Voici la solution qui marche impeccable (penser à ajouter la référence "Acrobat Distiller" et aussi "Microsoft Word")
     

     Dim wrd As New Word.Application
     Dim doc As Word.Document
     wrd.Visible = False
     wrd.ScreenUpdating = False
     wrd.ActivePrinter = "Acrobat Distiller"
     'ouvrir le document Word
     Set doc = wrd.Documents.Open("worddoc.doc")
     'convertir en fichier PostScript
     doc.PrintOut False, False, , "c:	est.ps", , , , , , , True
     doc.Close False
     wrd.Quit False
     Set doc = Nothing
     Set wrd = Nothing
     'convertir PostScript en Pdf
     Dim acr As New ACRODISTXLib.PdfDistiller
     acr.bShowWindow = False
     acr.FileToPDF "c:	est.ps", "pdfdoc.pdf", ""
     Set acr = Nothing
     'supprimer le fichier PostScript
     Kill "c:	est.ps"
     Done


Bon courage. Attention, l'action ActivePinter=Acrobat Distiller passe cette imprimante par défaut. Penser à récupérer d'abord le nom de l'imprimante par défaut pour la remettre en fin de code.

Jolie fleur :-p

xhill · Answer

Dis moi j'utilise le meme système que toi...

Cela marche impécable sous Windows 2000, mais en revanche, j'ai des difficultés a le faire sous NT4. Quand il passe sur la ligne //// acr.FileToPDF "c:	est.ps", "pdfdoc.pdf", "" //// VB6 me génére une erreur : "Erreur 429 Le composant ActiveX ne peut créer l'objet"

Voila j'aurais voulu savoir si tu avais développé sous Windows 2000 ?

Xhill :)

fmarmey · Answer

J'ai le même soucis sous NT, une erreur 429 est générée.

Par contre cette erreur n'apparait pas si on est administrateur de la machine.

Je cherche plus en détail quel(s) droit(s) est nécessaire pour que cela fonctionne en tant que simple utilisateur...

Mon premier dev a été réalisé sous Win2000.

gbeauvoir · Answer

Auriez vous la solution pour réaliser exactement la même chose à la seule différence que ce n'est pas un .doc que je voudrais convertir mais un état d'access...

Merci beaucoup,
Guillaume

webcyril · Answer

Moi aussi, je cherche à la faire depuis MS-Access 2002

webcyril

cs_pilz · Answer

Bonjour,
Comment je fais pour referencer Acrobat Distiller dans mon projet ? car cette librairie n'apparait pas chez moi ...
Merci

Solution en VBA : convertir un .doc en .pdf

5 réponses

Discussions similaires