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