1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
|
Sub Test()
Dim Tbl() As String
Dim I As Integer
'adapter le chemin !!!
Tbl = ChargeFichiers("D:\Mon dossier\")
For I = 1 To UBound(Tbl)
If InStr(Tbl(I), "1234567890") <> 0 Then
MsgBox Tbl(I)
End If
Next I
End Sub
Function ChargeFichiers(Chemin As String) As String()
Dim TableauFichiers() As String
Dim Fichier As String
Dim I As Integer
If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
Fichier = Dir(Chemin)
Do While (Len(Fichier) > 0)
If Right(Fichier, 3) = "xls" Then 'ou xlsx ou autres
I = I + 1
ReDim Preserve TableauFichiers(1 To I)
TableauFichiers(I) = Fichier
End If
Fichier = Dir()
Loop
ChargeFichiers = TableauFichiers()
End Function |
Partager