Urgent Enregistrer Word en PDF

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
Répondre
I
IMODANE
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 15 septembre 2013
Version d'Excel : 2007

Message par IMODANE » 22 août 2014, 15:54

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
F
FINDRH
Membre impliqué
Membre impliqué
Messages : 1'402
Appréciations reçues : 15
Inscrit le : 12 février 2010
Version d'Excel : 2016

Message par FINDRH » 22 août 2014, 17:39

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
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message