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