[VBA] Chemin accessible ? Résolu/Fermé

Question

Bonjour,  

Existe-t-il une commande en VBA pour savoir si un chemin vers un fichier est disponible ou non ? 

Je voudrai accéder à un fichier se trouvant sur le réseau, mais si celui-ci est indisponible, j'aimerai pouvoir utiliser le fichier se trouvant sur mon ordinateur portable. Le code se présente ainsi : 

For each lWorkbook in Workbooks 
     If lWorkbooks.Name = "Fichier à trouver.xls" then 
           Found = True 
     Else  Found = False 
     End If 
Next 

If Found = False then  
     Workbooks.open Filename:="\[Le chemin sur le réseau]\"Fichier à trouver.xls", ReadOnly:=1 
End If

Juste après "If Found = False then", je pensai rajouter une condition "Si [LE chemin sur le réseau] est accessible, alors... Sinon, ouvrir le fichier se trouvant sur l'ordinateur." Est-ce possible ? 


Configuration: Windows XP / Safari 535.1

pijaku · Answer

Salut,
Pour tester si le chemin d'un répertoire est valide, on peux utiliser Dir.
Mais dans certains cas, cela ne fonctionne pas (si le répertoire est vide).
Je te recommande cette astuce de Lermite222.
A+

Jadeus08 · Answer

Merci :D c'est exactement ce qu'il me fallait. En l'occurence, le répertoire que je veux vérifier ne sera jamais vide, donc l'utilisation simple de Dir suffit.

Bonne journée !

[VBA] Chemin accessible ?

2 réponses

Discussions similaires