Public Sub Sauvegardepdf()
' Sauvegarde en .pdf iso 19005 1
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
ChemFichTot, ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportFromTo, From:=1, To:=2, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=True
MsgBox "Fichier enregistré sous le nom :" & vbCrLf & NomFichSauv & ".pdf" & vbCrLf & _
"dans le dossier :" & vbCrLf & CheminFichier
' If varFctSauv(1) Then
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End If
End