recup nom de fichier

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

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

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

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å