Tester si un fichier sur un serveur distant existe et appliquer son adresse

[nytro]

Bonjour,

Actuellement je définie la présence d'un fichier par l'intermédiaire d'une colonne excel (1 existe, 0 n'existe pas)
J'ai fait évoluer le système, mais pas forcément la dite colonne.

=SI([mainbase.xlsx]Base!$AA2="1";"monsite/_images/"&SI(A2<10000;"/_1/";SI(A2<20000;"/_2/";SI(A2<30000;"/_3/";"/_4/")))&[mainbase.xlsx]Base!$A2&"-main.gif";"")

Je voudrait donc changer ce contrôle de colonne en contrôle de fichier.
J'ai trouvé différentes versions de macros qui permettent de faire ce contrôle, mais ne maîtrisant pas le langage, je n'arrive pas à l'adapter.

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

Comment dois-je m'y prendre pour que :

-nomfichieravecpath renvoie "monsite/_images/"&SI(A2<10000;"/_1/";SI(A2<20000;"/_2/";SI(A2<30000;"/_3/";"/_4/")))&[mainbase.xlsx]Base!$A2&"-main.gif" avec les valeurs remplacées correspondantes à la ligne où je me trouve

- la cellule accueil le résultat voulu à la place de la msgbox

J'espère avoir été assez clair.
D'avance merci !