Nombre de fichier dans les sous dossiers d'un répertoire

Salut a toutes et tous,

Tout est dit dans le titre, j'ai besoin de faire le compte de fichier dans les sous dossier d'un répertoire ...

J'ai déja trouvé un bout de code pour '"sortir" sous forme d'arborescence les noms des sous dossiers de mon répertoire mais je ne sais pas du tout comment faire pour que excel/vba me compte les fichiers dans chaque sous dossier et me renvoie le nombre en face du nom de chaque sous dossier ...

Le code pour la liste des sous dossiers (on sait jamais ca peut aider) :

Dim ligne
Private Sub CommandButton1_Click()
  racine = MonDossier     ' ou un répertoire C:\xxx e.g.
  If racine = "" Then Exit Sub
  Range("A:E").ClearContents
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set dossier_racine = fs.getfolder(racine)
  ligne = 3
  Lit_dossier dossier_racine, 1
End Sub

Sub Lit_dossier(ByRef dossier, ByVal niveau)
   Cells(ligne, niveau) = dossier.Name
   ligne = ligne + 1
   For Each d In dossier.SubFolders
     Lit_dossier d, niveau + 1
   Next
End Sub

Voila merci de votre aide, en espérant avoir été clair.

Malachim.

Il faudrait que tu modifie ta procédure Lit_dossier pour boucler sur tous les fichiers des répertoires

Sub Lit_dossier(ByRef dossier, ByVal niveau)
       Cells(ligne, niveau) = dossier.Name

       'Compte le nombre de fichier dans le répertoire
       Dim NbFichier As Integer
       For Each F In dossier.Files
        NbFichier = NbFichier + 1
       Next F
       Cells(ligne, niveau + 1) = NbFichier & " Fichier(s)"

       ligne = ligne + 1
       For Each d In dossier.SubFolders
         Lit_dossier d, niveau + 1
       Next
    End Sub

Bonsoir

A voir

Sources diverses et variées mises à mon goût

Salut le forum

A adapter

With Application.FileSearch
.NewSearch
.LookIn = "D:\Essai" 'à déterminer
.Filename = "*.xls"
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
If .Execute > 0 Then
MsgBox .FoundFiles.Count
End If
End With

Mytå

Merci à tous j'ai testé ça aujourd'hui ça marche niquel que ce soit le bout de code a rajouter par Math ou le fichier par Banzai64 ^^ ... J'ai commencé par essayer d'adapter le code de Myta mais je n'arrivais pas a obtenir le compte des fichiers juste une liste ...

Enfin un GRAND merci à vous pour l'aide ça me sauve ^^ ...

Bonne journée et à bientôt.

Malachim.