Bonjour toutes et tous
un exemple qui a été donné merci à Gelinotte clic ici !
tu peux t'en inspirer, juste à modifier le code ci-dessous: MONEXEMPLE du
pour que cela fonctionne , la feuille soit active
Sub Enregpdf()
Dim Chemin, NFichier As String
Chemin = Application.ActiveWorkbook.Path & "\"
NFichier = "MONEXEMPLE du " & Format(Now, "dd-mmm-yyyy") & " à " & Format(Now, "hh-mm") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= Chemin & NFichier, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
crdlt,
André