Sauvegarde PDF qui ne fonctionne pas

JE VOUDRAIS SAVOIR POURQUOI CETTE FORMULE NE FONCTIONNE PAS quand je clic sur le bouton

Sub Creation_PDF_nouvelle_facture_2020()

Dim Nomfichier As String, Chemin As String

Chemin = "C:\Users\DANIEL\Documents\STEH\DOSSIER 2020\"

'Chemin = "C:\Users\DANIEL\Documents\STEH\DOSSIER 2020\"

Nomfichier = Range("f2").Value & Range("H2").Value & " " & Range("B9:G9").Value

'Nomfichier = Range("E2").Value & Range("H2").Value & " " & Value & Range("B9").Value

Range("A1:J39").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Nomfichier, _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

'Range("A1:J41").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Nomfichier, _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Salut Daniel,

Nomfichier = Range("f2").Value & Range("H2").Value & " " & Range("B9:G9").Value

c'est quoi l'erreur reçue? Erreur 13?

le problème vient de cette syntaxe Range("B9:G9").Value !!!

c'est quoi le but? concatener les valeurs de la plage B9:G9?

@+++

merci pour ta réponse c'est pour enregistrer la facture en PDF avec les valeurs des cellules et certaines sont fusionnées comme B9:G9