recup nom de fichier

[loloman]

salut a tous,
je ne sais pas si c'est possible mais je voudrais savoir si l'on peut recuperer les noms de fichiers TXt puis les affichés dans une list box pour qu'ils puissent etre selectionnable aprés, j'ai cherché dans le forum mais sans succes, pourriez vous SVP m'aidez merci d'avance

 

[Michel_M]

SAlut lolo

A tout hasard, regardes le zip de mon fil de 19,12H sur "exporter excel..." ou kk chose comme ça.
Peut-etre pourras tu l'adapter à ton pb

Amicalement
Michel

 

[loloman]

je ne le trouves pas pourrais tu me donner la date plus precisement ou e raccourci
merci beaucoup

 

[Roland]

Bonsoir à tous

Il y a sur le site Téléchargement rubrique Utilitaires page 3 un prog RECHERCHE qui doit t'aider mais je n'ai pas regardé si le code était accessible


A+ Roland

 

[Myta]

Bonsoir le Forum

Sub Recuperer_fichier_texte()

Dim I As Byte

Chemin = "C:\"

With Application.FileSearch
.NewSearch
.FileName = "*.txt"
.LookIn = Chemin
.SearchSubFolders = False
.Execute

If .FoundFiles.Count <> 0 Then
With .FoundFiles
Sheets("Accueil").ListBox1.Clear
For I = 1 To .Count
Sheets("Accueil").ListBox1.AddItem .Item(I)
Next I
End With

Else

MsgBox "Aucun fichier trouvé dans l'arborescence " & Chemin
Exit Sub

End If

End With

End Sub

Mytå