Bonsoir,
Merci pour ton aide Whismeril.
J'ai utilisé ce code et ca fonctionne bien pour le moment :
Dim dateJour As String
Dim strPdfFileName As String
dateJour = Format(Date, "ddmmyyyy")
Debug.Print strFilePath
With Dialogs(wdDialogFileSaveAs)
.Name = Left(ThisDocument.FullName, InStrRev(ThisDocument.FullName, ".") - 1) & "_" & dateJour
.Format = wdFormatDocument
.Show
End With
strPdfFileName = Left(ThisDocument.FullName, InStrRev(ThisDocument.FullName, ".") - 1)
ThisDocument.ExportAsFixedFormat _
OutputFileName:=strPdfFileName, _
ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False
Tant mieux.
Pour te prochains posts, merci d'utiliser la coloration syntaxique, voir https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code
Attention à bien sélectionner "Basic".
Pense à marquer le sujet résolu si ça te convient