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

[alexane]

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) :

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 ?