Private Sub CommandButton1_Click()
Dim NomFicXL As String, CheminXL As String
Dim NomFicPDF As String, CheminPDF As String
Dim DLig As Long
Dim shp As Shape
Dim Sht As Worksheet
Set Sht = ThisWorkbook.Sheets("Feuil1")
'sauvegarde a partir de la dernière ligne écrite
DLig = Sht.Range("A" & Rows.Count).End(xlUp).Row
Dim NomDeFichier As String
'donner le nom au fichier
NomDeFichier = Sht.Range("B11").Value & " - " & Sht.Range("D10").Value
NomFicXL = NomDeFichier & ".xlsm"
NomFicPDF = NomDeFichier & ".pdf"
'pensez a chager le chemin
CheminPDF = "D:\essai perso\facturePDF" & "\"
CheminXL = "D:\essai perso\Facturexlsx" & "\"
' Sauvegarder le classeur actif dans le chemin et le nom determiné
ActiveWorkbook.SaveAs Filename:=CheminXL & NomFicXL, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
' Exporter en PDF
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminPDF & NomFicPDF, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox "Votre sauvegarde porte la référence : " & " " & NomFicXL & vbCrLf _
& "Le fichier PDF à été créé sous le nom : " & NomFicPDF
End Sub