Discussion :

[Guizmonster]

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

[zoltar_x]

Tu utilises : Workbook.Path

[Menhir]

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.

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.

[Guizmonster]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Menhir]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.