Discussion :

[Nico451]

Bonsoir

Ave ce code normalement il devrait me remonter 3 fichiers il ne m'affiche que 2 quelqu'un aurait une solution?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim Chemin As String
Dim rep As String
Dim nbfichier As Integer
Chemin = Mypath 'a adapter
rep = Dir(Chemin & "\*ABC*.xls")
While Not rep = ""
nbfichier = nbfichier + 1
rep = Dir
Wend
MsgBox nbfichier

De plus j'aimerais que les fichiers trouver puisse être affiché dans une ListBox3
Merci

[patricktoulon]

Bonjour
un exemple dans un userform
un bouton et une listbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim Chemin As String
Dim rep As String
Chemin = Environ("userprofile") & "\DeskTop"     'a adapter
rep = Dir(Chemin & "\*.xlsm")                           'a adapater
While Not rep = ""
ListBox1.AddItem rep
rep = Dir
Wend
MsgBox ListBox1.ListCount & " fichiers "
End Sub

[Nico451]

Merci.

Le souci du nombre je ne regardé pas dans le bon dossier