[VBA] Chemin accessible ?

Résolu
Jadeus08 Messages postés 75 Date d'inscription   Statut Membre Dernière intervention   -  
Jadeus08 Messages postés 75 Date d'inscription   Statut Membre Dernière intervention   -
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 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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 75 Date d'inscription   Statut Membre Dernière intervention   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