Macro pour compter le nombre de fichiers dans plusieurs répertoires

[benadry]

Rebonjour le forum,

Je cherche maintenant une macro qui me permet de numéroter automatiquement un fichier tout en comptant le nombre de fichiers qui existent déjà dans différents répertoires d'une mêm racine.

Pour l'instant, j'ai cette macro-ci :

Sub NumerAuto()

Dim num As Integer
Range("B3").Select
num = Range("B3").Value
num = num + 1
Range("B3").Value = num

End Sub

Avec en B3 un numéro masqué et modifiable qui permet à la macro de savoir où on en est.

Je voudrais maintenant que la macro compte le nombre de fichiers présents dans plusieurs répertoires (disons AA, AB, AC, AD, AE, AF, AG, AH), tous dans la même racine et qu'elle vienne mettre le numéro à la suite.
Par exemple, si j'ai dans les répertoires ci-dessus respectivement 10, 2, 3, 11, 9, 14, 1 et 7 fichiers, la macro devrait mettre le numéro 58 (57 +1)

Comment pourrais-je faire ?

Merci d'avance.

Cordialement.

 

[Pierrot93]

Re : Macro pour compter le nombre de fichiers dans plusieurs répertoires

Bonjour,

une macro ci-dessous, boucle sur les sous dossiers dans lequel le classeur est enregistré, renvoie le nom du sous dossier ainsi que le nombre de fichier que celui-ci contien, espérant que ceci te fera avancer...

Option Explicit
Sub test()
Dim fso As Object, chemin As String, f As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
chemin = ThisWorkbook.Path
i = 1
Cells(i, 1) = "Sous dossiers"
Cells(i, 2) = "Nb fichiers"

For Each f In fso.GetFolder(chemin).SubFolders
    i = i + 1
    Cells(i, 1) = f.Name
    Cells(i, 2) = f.Files.Count
Next f
End Sub

bon après midi
@+

 

[benadry]

Re : Macro pour compter le nombre de fichiers dans plusieurs répertoires

Re-,

Merci beaucoup : c'est super !

Ca marche vraiment très bien, sauf que, comme il y a des valeurs tapées dans les lignes du dessous, l'exécution de la macro risque d'aller gêner mes cellules.
Je souhaiterais donc, si c'est possible, qu'au lieu d'être l'une en dessous de l'autre, les valeurs soient l'une à côté de l'autre sur deux lignes (en fait de A2 à E3).
J'ai enlevé le nom du fichier qui, en l'occurrence, ne me sert pas.

Par ailleurs, il faudrait que la macro fasse la somme des différents fichiers contenus dans les répertoires. Sinon, je peux le faire avec une formule Excel.

Merci en tout cas pour ton aide précieuse.

Cordialement.

 

[Pierrot93]

Re : Macro pour compter le nombre de fichiers dans plusieurs répertoires

R,

ceci n'est qu'un exemple, tu peux aussi inverser les argments du "cells" pour avoir les résultats en ligne, à toi d'adapter...

 

[Pierrot93]

Re : Macro pour compter le nombre de fichiers dans plusieurs répertoires

Re,

pour avoir le nombre total de fichiers :

Option Explicit
Sub test()
Dim fso As Object, chemin As String, f As Object, i As Integer, x As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
chemin = ThisWorkbook.Path
i = 1
Cells(i, 1) = "Sous dossiers"
Cells(i, 2) = "Nb fichiers"
For Each f In fso.GetFolder(chemin).SubFolders
    i = i + 1
    Cells(i, 1) = f.Name
    Cells(i, 2) = f.Files.Count
    x = x + f.Files.Count
Next f
MsgBox "Nombre total de fichiers : " & x
End Sub