recup fichier bis

[loloman]

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

 

[Jean-Marie]

Bonsoir

Il faut placer dans cette feuille "Accueil" un objet listBox, nommé ListBox1

Pour ajouter le contrôle dans ta feuille, fait ceci :
- Affiche la barre d'outils Contrôles,
- Clique sur l'objet ListBox (laisse le pointeur de la souris, pour voir le nom de l'objet),
- Clique sur ta feuille et fait glisser le pointeur de la souris, tout en maintenant le clique enfoncé, tu viens de tracer l'objet.

Dans la barre de d'outils "formule", la où est affiché la référence de la cellule, tu dois avoir le nom de l'objet, vérifie le numéro à la fin du nom, il doit correspondre au nom fixé dans la macro. Si ce n'est pas le cas, le plus simple est de le modifier dans la macro.

@+Jean-MArie