Discussion :

[raulreda]

Bonjour,

Je suis nouveau sur le site et pour l'avoir utilisé plusieurs fois ça m'a beaucoup aidé.

J'ai un problème avec une macro que je vous expose (Que j'ai d'ailleurs eu a travers le site). Je ne suis pas familier avec le calcul des classeurs.

J'ai un répertoire avec des dossiers et dans chaque dossier il y a des sous-dossiers et dans chaque sous-dossier, des fichiers (PDF). J'arrive à calculer le nombre de dossiers et de sous dossiers, mais je voudrais ajouter un code de façon a faire une boucle pour calculer le nombre de fichier PDF dans chacun de mes sous dossiers. Comment je peux le faire ?

Merci beaucoup

Voici le bout de code que j'utilise :

Sub Compter()
chemin = "Monlien"
CompterRep (chemin)
End Sub

Function CompterRep(chemin As String) As Integer
'Compte le nombre de sous-répertoires dans le chemin spécifier
'En ajoutant 2 lignes peut retourner tout les Sous/Sous etc.. répertoires
Dim fs, f, sf, Nb
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(chemin)
Set sf = f.SubFolders
Nb = f.SubFolders.Count - 1
Range("A1") = Nb & " Jours"

Je voudrais continuer sur mon code

End Function

[kiki29]

Salut, en adaptant ceci à ton contexte : liste des fichiers avec visualisation de l'arborescence ou Liste des fichiers d'un dossier : Win 32/64 Bits

[raulreda]

Salut Kiki,

Merci pour ta réponse rapide, le fichier Liste_Fichier est très intéressant. Je vais essayer de l'adapter mais il me parait quand même pas facile à adapter

Je m'y met tout de suite

Bonne journée

[unparia]

Bonjour
1) ce que tu veux faire ne saurait être traité par Excel (la présente section du forum) et nécessite l'utilisation de VBA
2) le code déposé ici :
https://www.developpez.net/forums/d1...me-repertoire/
me parait facilement adaptable. Il suffit d'ajouter une formule Excel NB.SI à chaque dernière ligne de chaque sous-dossier, voire tout simplement d'utiliser un simple compteur remis à zéro à chaque sous-dossier et incrémenté de 1 pour chacun des fichiers y contenus.

PS : je ne comprendrai jamais que l'on développe une application dédiée à ce genre de détermination (on ne fait pas cela tous les jours ...)

[raulreda]

Salut Unparia,

Merci pour ta réponse

Ce que je veux faire me parait simple, j'ai besoin de savoir combien de fichier il me reste dans mes dossiers pour savoir combien de tâches il me reste à traiter. Actuellement, ce calcul est fait tous les matins manuellement (Ouvrir chaque dossier, voir combien de fichiers il y a dedans et transcrire sur la feuille excel manuellement..... Un peu long ). L'automatiser serait plus simple

C'est pour cette raison que je cherchais à l'automatiser

Bonne journée

[unparia]

Tu as alors eu ma réponse plus haut.

EDIT : et si j'étais à ta place et si la finalité était celle que tu exposes, il y a longtemps que j'aurais :
- créé un fichier texte contenant les chemins des fichiers restant à traiter
- effacé de ce fichier chaque chemin traité
- ajouté éventuellement à ce fichier tout nouveau chemin à traiter

Tout cela serait simple et mille fois plus rapide que le recensement/comptage à refaire dans les sous-dossiers.

Même une feuille ad hoc d'un classeur ad hoc ferait d'ailleurs l'affaire...