Private Sub CommandButton41_Click()
Dim fichier$, Chemin$, sousdossier$, chemin_complet
With Worksheets("Feuil4")
fichier = Feuil4.Range("F11") & ".pdf"
Chemin = " C:\Users\Admin\Documents\Sauvegarde\"
sousdossier = Feuil4.Range("E4")
If Dir(Chemin, vbDirectory) <> "" Then
MkDir Chemin & sousdossier
Else
MsgBox "la racine" & vbCrLf & Chemin & vbCrLf & "n'existe pas": Exit Sub
End If
chemin_complet = Chemin & sousdossier & "\" & fichier
'**************************************
'si tu veux plusieurs feuilles dans ton pdf
'sheets(array("toto","riri","loulou").select' ce sont leurs noms et pas leurs codename
'****************************************
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin_complet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub