[VBA] Chemin accessible ?

Résolu
Jadeus08 Messages postés 81 Statut Membre -  
Jadeus08 Messages postés 81 Statut Membre -
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 ?


A voir également:

2 réponses

pijaku Messages postés 13513 Statut Modérateur 2 763
 
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+
0
Jadeus08 Messages postés 81 Statut Membre 4
 
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 !
0