Voici la dite macro
Private Sub CmdEnregistrer_Click()
'Déclaration des valeurs'
Dim Nomdossier As String
Dim Nomfichier As String
'Nom de dossier'
Nomdossier = "C:\Users\agent\Documents\Inventaire\"
Application.DisplayAlerts = False
'Nom fichier'
Nomfichier = "Inventaire_stock_electrique" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & ".pdf"
'enregistement format PDF'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Nomdossier & Nomfichier & ".PDF", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
MsgBox "Votre fichier intitulé :" & Nomfichier & vbNewLine & _
" dans le dossier suivant : " & Nomdossier, vbOKOnly + vbInformation
End Sub