Private Sub CommandButton1_Click()
Dim Chemin As String, Nom As String, Fichier As String
Chemin = ThisWorkbook.Path & "\" & Year(Now) & "\"
On Error Resume Next
Application.DisplayAlerts = 0 'attention, fichier écrasé sans préavis !
MkDir Chemin
Nom = Feuil1.[C4] & " F " & Application.Proper(Format(Now, "mmmm yyyy"))
Fichier = Nom & ".Pdf"
ThisWorkbook.ExportAsFixedFormat 0, Chemin & Fichier, 1, 1, 0, 1, 1, 0
Application.DisplayAlerts = 1
'si pas utile, effacer la ligne suivante
MsgBox Nom & vbLf & " en Pdf" & vbLf & "dans le dossier " & Left(Chemin, Len(Chemin) - 1), , "Enregistré sous le nom "
End Sub