lire des fichiers excel avec zone de liste

[Fred]

Bonjour a tous !!!

Alors, tous les jours je sauvegarde une feuille appele fiche ds un rep du disque dur avec la date.
style
fiche_10/08/2004
fiche_11/08/2004
ect ect....

Je voudrais grace a une 'zone de liste' ou autre controle pouvoir lire tous mes enregistrement situe sur C:\toto\ par exemple
pour pouvoir consulter a tout moment l'enregistrement de ya 2 semaines par exemple...

Si vs avez la solution

Un grand Merci d'avance !!!!

 

[Zon]

Salut,

Cette fonction te renvoie un tableau :

Function ChercheFichier(Nomf$, Rep$, Optional Sourep As Boolean=False)
Dim I&, Tablo
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Rep
.Filename = Nomf & "*.*"
.SearchSubFolders = Sourep
.Execute
ReDim Tablo(.FoundFiles.Count)
For I = 0 To .FoundFiles.Count
Tablo(I) = .FoundFiles(I)
Next I
End With
On Error GoTo 0
ChercheFichier = Tablo
End Function


Par exemple dans une listbox cela donne
lenomdelalistbox.list=cherchefichier("fiche","C:\toto\")

A+++