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
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:
VB:
For Each SDos In Dos.SubFolders
SousDosEtFic SDos
Next SDos
Il y a un exemple dans le ficher joint, feuille FInvent (Inventaire)