XL 2016 Depuis Excel enregistrement d'un document word sous format pdf

alexane

XLDnaute Occasionnel
Bonjour à tous
J'ai une macro sous excel qui ouvre plusieurs documents word, y récupère des données, les injecte dans un tableau excel (du classeur qui contient la macro)
Jusqu'ici tout va bien. Ce qui me pose problème c'est que je souhaite enregistré après le document word au format pdf et là ça marche pas :
Voici le code allégé (sans les traitements sous excel) :

VB:
Sub Test()
    chemin = ActiveWorkbook.Path
    mesfichiers = Dir(chemin & "\" & "*.docx")
    Set AppliWord = CreateObject("word.application")
    AppliWord.Visible = True
    AppliWord.DisplayAlerts = False
    AppliWord.ShowMe
    Do While mesfichiers <> ""
        monDocument = chemin & "\" & mesfichiers
        Set DocWord = AppliWord.Documents.Open(monDocument)
        AppliWord.Documents(monDocument).Activate
        ChDir (chemin)
        i = i + 1
        'Enregistrer aussi sous PDF
            DocWord.ExportAsFixedFormat OutputFileName:= _
        "C:\Users\Pro_PC\Desktop\VBA PDF Word\TestPdf" & i & ".pdf", _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
        DocWord.Close
        'Passer au doc word suivant :
        mesfichiers = Dir
    Loop
End Sub
Auriez vous une solution ?
 
Haut Bas