VBA trouver un fichier dans un repertoire

[darkspoilt]

Bonjour,
je voudrais savoir comment je peux trouver un fichier donc les caracteres correspondent a ce que j'ai entrer préalablement dans un formulaire afin d'utiliser le fichier correspondant. Suisje assez clair??
Merci d'avance

[ouskel'n'or]

Regarde là, le premier exemple. Tu ajoutes un test ici

Code :

1
2
3
4
5
6
        If fso.GetExtensionName(Wk) = "xls" Then 
           if lcase(Wk) = lcase(LeNomQueTuVeux) then
                Workbooks.Open Filename:=Wk
                DoEvents 'Laisse le temps au système d'ouvrir le fichier
           endif
        endif

A+

[Maxence HUBICHE]

tu peux aussi tout simplement utiliser la fonction Dir(Path)

pour savoir s'il existe ou pas, il suffit de tester si Dir renvoie "" ou pas (merci F1 )

[ouskel'n'or]

J'ai relu ta question et je corrige mon code.

Envoyé par Tu

je voudrais savoir comment je peux trouver un fichier donc les caracteres correspondent a ce que j'ai entrer préalablement dans un formulaire

Si ce que tu as saisi est le nom du fichier, le code fourni par Maxence HUBICHE suffit. Mais si ce n'est qu'une partie du nom du fichier que tu as "entré", tu peux essayer de modifier ma réponse précédente comme suit

Code :

1
2
3
4
5
6
        If fso.GetExtensionName(Wk) = "xls" Then 
           if instr(lcase(Wk), lcase(LeNomQueTuVeux))<> 0 then
                Workbooks.Open Filename:=Wk
                DoEvents
           endif
        endif

A+
PS - Comment "entres-tu" ces caractères ?

[Maxence HUBICHE]

dans la solution que j'ai indiqué, l'usage d'un nom partiel fonctionne également, puisque l'aide indique qu'on peut utiliser les caractères générique, tels l'étoile (*) ...

Donc, on peut faire

Code :

1
2
 
s=dir(myPath & "*.xls")

qui renverra tous les fichier xls du chemin myPath

L'avantage de Dir, c'est qu'il sert uniquement à cela, et qu'il est dans la bibliothèque VBA (donc obligatoirement présent) et donc, il devient inutile de référenceer les fso en plus.

vàlà vàlà