Macro Enregistrer en PDF avec date actuelle

Bonjour,

Dans le fichier ci-joint en page "Commande écran" j'aimerais que l'action du bouton de la macro enregistrer en PDF

Enregistre comme actuellement une sélection de cellules dans un répertoire distinct, un fichier en PDF nommé "Commande écrans du ...[Valeur de I2]cad la date actuelle...."

Merci pour votre aide

Bonjour,

Un exemple à adapter :

Sub SavePDF()
Dim strFilename As String
Const strPath As String = "C:\Users\Faissal.attache\Desktop\Commandes ecran\"
    strFilename = strPath & "Commande écrans " & Format(Date, "yyyymmdd") & ".pdf"
    Range("B2:K24").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=strFilename, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
End Sub

Parfait tout marche à merveille

Merci