Erreur 1004 VBA erreur définie par l'application ou par l'objet

salut les experts

je vous prie de bien vouloir m'aider a trouver mon erreur sur ce bout de code et merci d'avance

Dim FICHIER_DESTINATION As String
Dim FICHIER_DESTINATION2 As String
Dim r As String
Dim f As String
Dim K As String
Dim u As String
Dim s As String
r = Range("i2").Value
f = Range("a2").Value
K = Range("b2").Value
u = Range("m2").Value
s = Range("b1").Value
'On Error Resume Next

        FICHIER_DESTINATION = "C:\Users\omar\OneDrive\Bureau\essai avec BLVENTE DE JAWAD\SAUVEGARDE AVOIR CASSE\"
        FICHIER_DESTINATION2 = FICHIER_DESTINATION & u & "\" & s & " " & K & " " & f & r
         Range("A1:I14").ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        FICHIER_DESTINATION2 & ".pdf", _
        Quality:=xlQualityStandard, OpenAfterPublish:=False

Hello

Hum, tu n'es pas généreux en explication ...

Sur quelle ligne as tu l'erreur ?

Comme tu stockes des valeurs de cellule dans des variables, il serait judicieux de nous transmettre le fichier.

merci rag02700 pour ta reponse

c'est sur ce bout que ca bloque

Range("A1:I14").ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        FICHIER_DESTINATION2 & ".pdf", _
        Quality:=xlQualityStandard, OpenAfterPublish:=False

Bon apparemment tu ne veux pas donner de fichier ...

Pas grave on va essayer de faire sans ...

Que donne :

msgbox FICHIER_DESTINATION2

le fichier est volumineux Rag02700

msgbox donne exactement le résultat attendu

Rechercher des sujets similaires à "erreur 1004 vba definie application objet"