Discussion :

[shakapouet]

Bonjour,

J'ai un dossier avec 4 fichiers excel, j'aimerait trouver une solution pour liste les fichiers dans ce dossier et récupérer le nom d'un des fichiers qui commencent par une certaine chaine de caractère. C'est possible ?

Cordialement

[Invité]

bonjour,

Code :

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

1
2
3
4
5
6
7
dim Fichier as string
Fichier =dir("c:\toto\Myfichier*.xls")
do While Fichier<>""
if Fichier="MyfichierCeluiLa.xls" then exit do
Fichier=dir
loop
if Fichier <>"" then set wb=Workbooks.Open("c:\toto\" & Fichier  )

[shakapouet]

Merci pour ton code, par contre je ne connais pas le nom du fichier exact, juste le début mais pas la fin, y a-t-il un moyen de palier à cela ?

[Invité]

Merci pour ton code, par contre je ne connais pas le nom du fichier exact, juste le début mais pas la fin, y a-t-il un moyen de palier à cela ?

Code :

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

Fichier =dir("c:\toto\My*")

[shakapouet]

Parfait merci beaucoup.