Dim Nom_Fichier as string
Nom_Fichier="monsite/_images/"&SI(A2<10000;"/_1/";SI(A2<20000;"/_2/";SI(A2<30000;"/_3/";"/_4/")))&[mainbase.xlsx]Base!$A2&"-main.gif
If dir(Nom_Fichier,vbnormal)>"" then
msgbox Nom_Fichier & "monsite/_images/"&SI(A2<10000;"/_1/";SI(A2<20000;"/_2/";SI(A2<30000;"/_3/";"/_4/")))&[mainbase.xlsx]Base!$A2&"-main.gif"
else
msgbox ""
end if