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