1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Public Function Lister(chemin As String)
Dim fs, Rep As Variant, NewRep As String, Nomfich As String
Set fs = CreateObject("Scripting.FileSystemObject")
Lister = fs.GetFolder(chemin).Files.Count
Nomfich = Dir(chemin & "\*.sfc")
Do While Nomfich <> ""
nb = nb + 1
Range("J" & CStr(nb)) = Replace(Nomfich, ".SFC", "")
Cells(nb, 3) = chemin & "\" & Nomfich 'liste dans la feuille de calculs active
tableau = Split(chemin, "\")
Nomfich = Dir()
Loop
For Each Rep In fs.GetFolder(chemin).SubFolders
NewRep = Lister(Rep.Path)
Next Rep
End Function |
Partager