Sub Macro1()
Dim LaDate$, Chemin$, NomFichier$, NomFeuille$
LaDate = Format(Now, "dd-mm-yyyy")
Chemin = ThisWorkbook.Path & "\"
NomFichier = Split(ThisWorkbook.Name, ".")(0)
NomFeuille = ActiveSheet.Name
' Construction du chemin complet
CheminComplet = Chemin & NomFichier & " " & NomFeuille & " " & LaDate & ".pdf"
' Création fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=CheminComplet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
' Message de confirmation
MsgBox ("Création du fichier PDF effectué" & vbCrLf & vbCrLf & CheminComplet)
End Sub