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
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
Regarde là, le premier exemple. Tu ajoutes un test ici
A+
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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 )
J'ai relu ta question et je corrige mon code.
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 suitEnvoyé par Tu
A+
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
PS - Comment "entres-tu" ces caractères ?
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
qui renverra tous les fichier xls du chemin myPath
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 s=dir(myPath & "*.xls")
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à
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager