Bonjour,

Je possède un dossier contenant d'innombrables fichiers dans des sous-répertoires. Régulièrement des fichiers sont ajoutés, et il est nécessaire que je puisse compter le nombre de fichier dans tel ou tel répertoire. J'ai donc créé un fichier Excel avec les noms des différents répertoires voulus. J'arrive à avoir jusqu'à 5 niveaux de répertoires avec des fichiers.

Exemple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
- Dossier Général
   - Energie
      - Travaux
         - Public
            - Droit
            - ...
            - Fichier 4
         - ...
         - Fichier 3
      - ...
      - Fichier 2
   - ...
   - Fichier 1
Je voudrais connaître le nombre de fichiers contenu dans le dossier "Energie" par exemple.
J'arrive a compter le nombre de fichier en utilisant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Function NombreFichiers(ByVal Dossier As String) As Long
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    NombreFichiers = fso.GetFolder(Dossier).Files.Count
    Set fso = Nothing
End Function
Mais ce code ne compte pas les fichiers dans les sous-répertoires (la macro me dirait 1 car le seul fichier qu'elle voit est le "Fichier 2" et je voudrais aussi compter le fichier 3 et 4).

Pouvez-vous m'aider sans qu'il soit nécessaire d'utiliser le code d'au dessus à tout les sous-répertoires (je pense que j'ai facilement plus de 1000 sous-répertoires) ?

En espérant avoir été assez clair
Merci d'avance,
Cdlt,
Doltd