Macro pour l'enregistrement d'une page en pdf

Bonjour

Objectif:

- enregistrer une page de Facture (sur la feuille "Commande ") en Pdf à l'aide d'un bouton (sur la page "Calcul")

Avec, pour le nom du pdf : nom du fichier, du client, de la référence, de la date et de l'heure

Problématique:

- s'affiche alors à la ligne "ExportAsFixedFormat Type:= ..." : L'erreur d'exécution "1004" : Erreur définie par l'application ou par l'objet

Sub FacturePdf()

Dim Reponse As Integer

NomClient = "Facture " & Range("B5") & " Ref " & Range("G5").Value & " Saisie le " & Format(Now(), "dd-mm-yyyy à Hh-Nn") & ".pdf"

Reponse = MsgBox("Confirmez-vous la création d'un pdf pour l'Offre ?", vbYesNo)
If Reponse = vbYes Then

        With Sheets("Commande")

                Sheets("Commande").Activate
                ExportAsFixedFormat Type:=xlTypePDF, From:=8, To:=8, Filename:=NomClient, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

        End With

    MsgBox "La feuille Pdf de Facture est préparé, merci."

Else

MsgBox "Pdf Annulé"

End If
End Sub

Merci beaucoup

Bonjour et bienvenue sur le forum

Essaie comme ça :

Sub FacturePdf()

    Dim Reponse As Integer
    NomClient = "Facture " & Range("B5") & " Ref " & Range("G5").Value & " Saisie le " & Format(Now(), "dd-mm-yyyy à Hh-Nn") & ".pdf"
    Reponse = MsgBox("Confirmez-vous la création d'un pdf pour l'Offre ?", vbYesNo)
    If Reponse = vbYes Then
        With Sheets("Commande")
            Sheets("Commande").Activate
            ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, From:=8, To:=8, _
                Filename:=ThisWorkbook.Path & "\" & NomClient & ".pdf"
        End With
        MsgBox "La feuille Pdf de Facture est préparé, merci."
    Else
    MsgBox "Pdf Annulé"
    End If
End Sub

Résultat ?

Bye !