Ouvrir un document Word et l'exporter en PDF depuis macro VBA Excel Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
apambian
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 6 février 2019
Version d'Excel : 2016 FR

Message par apambian » 6 février 2019, 14:14

Bonjour,

J'aimerai avoir une macro qui m'exporte un fichier word (sans l'ouvrir) en pdf depuis mon classeur excel. :) J'ai beau chercher je n'ai pas réussi...
Quelqu'un peut-il m'aider? :lole:

Cordialement,
Alexandre
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 4'859
Appréciations reçues : 240
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 6 février 2019, 17:45

Bonjour,

à tester,
Sub Save_DOC_PDF()
'nécessite la référence à Microsoft Word xx
Dim wApp As Word.Application, wDoc As Document, sDoc As String, sPDF As String

sDoc = "C:\Users\isabelle\Documents\Test1\Aaax.docx"
sPDF = "C:\Users\isabelle\Documents\Test1\Aaax.pdf"

Set wApp = CreateObject("word.application")
wApp.Documents.Open sDoc
wApp.Visible = False
Set wDoc = wApp.ActiveDocument

wDoc.ExportAsFixedFormat OutputFileName:=sPDF, _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=True
        
wDoc.Close
Set wDoc = Nothing
Set wApp = Nothing
End Sub
Merci! de faire un clic sur le bouton résolu pour nous aider à t'aider.
isabelle
Avatar du membre
apambian
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 6 février 2019
Version d'Excel : 2016 FR

Message par apambian » 6 février 2019, 19:25

Merci ;;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message