Comment ajouter la recherche dans les sous-dossiers, à cette macro qui est fonctionne

[Dolin]

Bonjour à tous.

J'aurais besoin d'un petit coup de main....alors si qqun à une petite idée....ca serait avec très grand plaisir

J'ai une macro (fonctionnelle), qui me permet de lister les fichiers d'un répertoire, et, à l'ouverture du fichier, de réactualiser la liste en ajoutant uniquement les nouveaux fichiers qui ne sont pas encore mentionnés dans la page Excel.
Jusque là....tout roule à merveille !
Par contre....petit soucis, je ne parviens pas à modifier ce code pour qu'il cherche également dans les sous-répertoires....
Auriez-vous une petite idée qui serait la bienvenue ?

Je vous mets en attachement le fichier en question

Un grand merci !!!!

Bonne soirée

Fred

 

[Dranreb]

Re : Comment ajouter la recherche dans les sous-dossiers, à cette macro qui est fonct

Bonsoir.
L'idée serait une procédure récursive à laquelle vous passez un Folder, mettons:
Sub SousDosEtFic(ByVal Dos As Folder)
Vous y faites une boucle pour les fichiers:
For Each Fic In Dos.Files
Passons sur les détails, cette partie est déjà faite, puis une boucle pour les SubFolders:

For Each SDos In Dos.SubFolders
   SousDosEtFic SDos
   Next SDos

Il y a un exemple dans le ficher joint, feuille FInvent (Inventaire)

À +