' Enregistrer Feuille sous format PDF avec date dans le nom
Dim LaDate$, Nom$, Rep$
Dim Cancel As Boolean
LaDate = Format(Now, "yyyy_mm_dd")
Nom = "Feuil1"
Rep = "Chemin\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nom & "_" & LaDate & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
ActiveWorkbook.Saved = True
MsgBox ("Enregistrement effectué")
Application.Quit