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