Ouvrir un fichier excel depuis une cle USB (lecteur variable)

Bonjour,

J'ai un fichier excel sur une cle usb qui me sert pour récupérer des données. Suivant le pc sur laquelle elle est utilisée, elle peut prendre la lettre E ou la F. J'aurais voulu savoir s'il était possible de faire une macro voir si le fichier xxx.xls existe sur le lecteur E: et l'ouvrir le cas échéant. Si ce n'est pas le cas, allez voir sur le lecteur F: et l'ouvrir.

La fonction IF est-elle adaptée à cela ou peut-être CHdrive?

Cordialement

Tu utilises : Workbook.Path

Citation:

---

Envoyé par Guizmonster

J'aurais voulu savoir s'il était possible de faire une macro voir si le fichier xxx.xls existe sur le lecteur E: et l'ouvrir le cas échéant. Si ce n'est pas le cas, allez voir sur le lecteur F: et l'ouvrir.

---

Utilise la fonction Dir() pour vérifier l'existence du fichier.
Si l'existence est avérée à cet emplacement, mets le chemin complet dans le Workbooks.Open pour ouvrir le fichier.

Citation:

---

La fonction IF est-elle adaptée à cela ou peut-être CHdrive?

---

L'instruction If sert à vérifier une condition. Mais il faut déterminer quelle est la condition à tester (voir ci-dessus).

Le ChDrive n'a pas d'intérêt ici.
Il est sans doute plus pratique de mettre le chemin complet (lecteur compris) dans les méthodes et fonctions concernées.

Bonjour,

Merci à vous 2 pour les réponses. Je suis parti sur la fonction DIR que j'ai associé avec un IF pour commencer ce qui me donne ce code fonctionnel (je ne suis pas du tout informaticien):

Code:

---

1 2 3 4 5 6

File = Dir("E:\test.xlsm") If Len(File) > 0 Then Workbooks.Open Filename:="e:\test.xlsm" Else Workbooks.Open Filename:="f:\test.xlsm" End If

---

Il doit surement avoir moyen de faire une boucle pour tester tout les lecteurs?

Citation:

---

Envoyé par Guizmonster

Il doit surement avoir moyen de faire une boucle pour tester tout les lecteurs?

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Lecteur As Variant Dim L As Long Lecteur = Array("E", "F")   For L = LBound(Lecteur) To UBound(Lecteur) File = Dir(Lecteur(L) & ":\test.xlsm") If Len(File) > 0 Then Workbooks.Open Filename:=Lecteur(L) & ":\test.xlsm" Exit For End If Next L

---

A toi de compléter le Array avec les lettres possibles pour tes lecteurs.