recup fichier bis

L

loloman

Guest
merci a tous pour votre aide mais j'ai encore un petit pb lorsque j'excute cette macro j'ai un pb avec Sheets("Accueil") la macro se bloque j'ai essayer de nommer la feuille sur laquelle j'excute cette macro (Accueil) mais cela ne change rien
pourriez vous svp m'aidez de nouveau
merci

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
 

Discussions similaires

Réponses
4
Affichages
229
Réponses
17
Affichages
892

Statistiques des forums

Discussions
312 378
Messages
2 087 753
Membres
103 658
dernier inscrit
Laurent2017