ouvrir fichier nom variable

[GUS]

http://www.excel-downloads.com/html/French/forum/messages/1_88411_88411.htm

dans le lien ci-dessus la réponse est valable pour un fichier ouvert à l'écran. QUi peut me donner la solution SVP pour aller ouvrir un fichier 1) dont le début du nom est connu et 2) le directory est connu Mais le fichier n'est pas encore ouvert, à VBA justement d'aller faire le travail tout seul.
Merci
Guillaume

 

[Abel]

Bonjour GUS,

Peut être quelques éléments supplémentaires :

http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=106431&t=106290

Abel

 

[GUS]

Bonjour ABel,

J'avais cherché par là aussi (je viens de passer une bonne heure à regarder dans le forum) mais je ne trouve pas pour mon problème.. ou alors mes yeux s'excellisent trop!
VOilà ou je plante:
dossier = "X:\xxx"
ChDir (dossier)
for each fichier in ???
if left (fichier.name,6)= "Export" then workbooks.open fichier

voilà, c'est pas très beau, je plante sur le ??? (si je remplace ??? par workbooks ca ne marche pas car le fichier n'est aps ouvert) et le phrasé du workbooks.open fichier n'est pas parfait non plus.

Recherche solution...
Guillaume

 

[STéphane]

bonjour


inspires toi du code suivant


Sub FillListBox()
dim List1 As ListBox
dim DirVar As String
Set List1 = dialogsheets(1).ListBoxes(1)
List1.RemoveAllItems
DirVar = Dir("c:\document\xls\*.*")
do While DirVar <> ""
List1.addItem Text:=DirVar
DirVar = Dir()
loop
end Sub


Bye
STéph

http://xlbysteph.free.fr

 

[GUS]

Merci Stéphane, c'est un peu complexe pour moi. J'ai trouvé une autre réponse assez simple avec :
fichier = dir$(directory & "\*.xls").

J'ai vu sur ton site qu'on (a bossé?) pour la même boite 🙂
Guillaume