Enregistrer Word en PDF

Bonjour Tous le monde,

voila je voudrais ouvrir un fichier word a partir d'un repertoire et l'enregistrer (save as ) en pdf dans le meme repertoire. Please help

Sub test()

'nécessite d'activer la référence "Microsoft Word xx.x Object Library"

Dim wApp As Object 'Fichier As Variant

Dim wDoc As Object 'Fichier As Variant

Set wApp = CreateObject("Word.Application")

Set wDoc = CreateObject("Word.Document")

'Dim wApp As Word.Application, wDoc As Word.Document

wApp.Visible = True

Set wDoc = wApp.Documents.Open("C:\Users\100731462\Desktop\Nouveau dossier\test.doc")

wDoc.ExportAsFixedFormat OutputFilename:= _

"C:\Users\100731462\Desktop\Nouveau dossier\test.pdf", ExportFormat:=wdExportFormatPDF

End Sub

ce code se bloque a ce niveau :

wDoc.ExportAsFixedFormat OutputFilename:= _

"C:\Users\100731462\Desktop\Nouveau dossier\test.pdf", ExportFormat:=wdExportFormatPDF

Bonjour

Avec la version 2010 de Word on ne fait plus d'export mais on enregistre sous ...pdf

En lançant un enregistrement de ton action " Enregistrer sous" tu pourrais disposer d'une syntaxe nouvelle

Cordialement

FINDRH

Rechercher des sujets similaires à "enregistrer word pdf"