Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion nytro
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

nytro

Guest
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.

Code:
=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.

Code:
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 !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…