Bonsoir laurent, bebere
une autre solution peut etre un peu plus courte.
Citation:
Sub Bouton1_QuandClic()
Dim chemin As String
Dim fichier As String
Dim ligne As Integer
ligne = 1
chemin = 'c:\\\\\\\\Aherve\\\\\\\\'
fichier = Dir(chemin & '*.XLS')
DoWhile fichier DIFFERENT ''
Cells(ligne, 1) = fichier: ligne = ligne + 1
fichier = Dir
Loop
End Sub
|
remplacer DIFFERENT par le signe équivalent.
salut
Message édité par: hervé, à: 09/02/2006 18:41