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
| Sub ListeFichiersCSV()
Dim fso As Object
Dim FsoRepertoire As Object
Dim FsoFichier As Object
Dim str() As String
Dim Wrk as workbook
Set fso = CreateObject("Scripting.FileSystemObject")
Set FsoRepertoire = fso.GetFolder("K:\Pole CG\Contrôle Gestion\_1. BUDGET\2011\ETABLISSEMENTS\Base")
'Boucle sur fichiers du repertoire
For Each FsoFichier In FsoRepertoire.Files
'Filtre l'extension XLS
str = Split(FsoFichier.Name, ".")
If str(UBound(str)) = "xls" Then
set Wrk = Application.Workbooks.open(ThisWorkbook.Path & "\" & FsoFichier.Name)
... Traitement
Close wrk false
End If
Next
End Sub |
Partager