Sub Enregistrer_PDF()
'
' Enregistrer_pdf macro
'
'
Dim fichier As String
fichier = "D:\mes documents\" & [E9].Value & "_" & [e18].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
ignorePrintAreas:=False, OpenAfterPublish:=True
' Enregistrer au format Excel
ActiveSheet.Copy
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs fichier & "xlsx"
.Close
Application.DisplayAlerts = False
End With
End Sub