Bonjour j'ai un petit problème avec mon code, je dois lister les fichiers *.sfc d'un dossier et de ces sous dossier. Cela fonctionne mais le programme ne rentre pas directement dans ma boucle et n'affiche pas le 1er fichier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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

Mercii

Thomas