Tous les sous dossiers ne sont pas traités

Bonjour,

J'utilise ce code en VBA pour coller les noms de toutes les images d'un dossier dans un tableau sur une feuille Excel . Or certains sous dossiers ne sont pas traités dans le dossier dont je donne le lien. Quelqu'un a t'il une solution ?

Voici le code utilisé :

Public Sub CommandButton2_Click()

Dim Repertoire As FileDialog
lien = "tatatatata" 'lien du fichier à traiter
num = 1
ListeFichiers (lien)

End Sub

Sub ListeFichiers(Repertoire As String) 'procédure permettant de trouver le nom de l'image dans le répertoire ou sous répertoires, la cellule est colorée si l'image trouvée n'a pas la bonne extension

Dim fso, SourceFolder, SubFolder, fichier, cheminETnom
Set fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = fso.GetFolder(Repertoire)
num = 1
    For Each fichier In SourceFolder.Files
            cheminETnom = LCase$(Repertoire & "\" & fichier.Name)
            Range("Tableau5[nom des images]")(num) = Split(cheminETnom, "\")(UBound(Split(cheminETnom, "\")))
            num = num + 1
    Next fichier

    For Each SubFolder In SourceFolder.subfolders
        ListeFichiers SubFolder.Path
    Next SubFolder

End Sub

Bonne journée

Bonjour,

Un pas à pas sur le code révèle que le souci provient de "num = 1" dans la macro "ListeFichiers(Repertoire As String)" ...

"num = 1" est déjà présent dans la macro "Public Sub CommandButton2_Click()"

À chaque appel de " ListeFichiers(Repertoire As String) " pour un sous-dossier "ListeFichiers SubFolder.Path" > num reprend la valeur 1 et écrase les données dans le tableau ...

Place "Dim num As Long" ou "Dim num As interger" (selon le nombre de lignes à traiter) tout au haut du module ...

ric

Merci beaucoup cela fonctionne !!!

ric