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

[Malachim]

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) :

Code: Tout sélectionner

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.

[Math]

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

Code: Tout sélectionner


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
 

[Banzai64]

Bonsoir

A voir

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

[Mytå]

Salut le forum

A adapter

Code: Tout sélectionner


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å

[Banzai64]

Bonsoir

Bonsoir Mytå

Je crois (sans être sur à 100%) que FileSearch n'est pas supporté par 2007

Bonne nuit

[Mytå]

Re le forum

Un complément FileSearch pour Excel 2007

ou

File Search pour excel 2007

Mytå

[Banzai64]

Bonjour

Merci je ne connaissais pas ce "détournement"

Au moins j'aurai appris quelque chose de plus

Bonne nuit

[Malachim]

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.