XL 2010 VBA - Bouton extraction structure dossier sélectionné

[Titi456]

Bonjour,

Je recherche un code VBA à mettre sur un bouton pour pouvoir extraire la structure de tout ce qui se trouve dans un dossier sélectionné.

Exemple: Lorsque je clique sur le bouton, un explorateur de fichier apparait et je peux sélectionner le dossier dont j'aimerais extraire la structure.
Dans ma cellule A1, le nom de ce dossier apparait, dans mes cellules B2:BX les noms des fichiers se trouvant dans ce dossier apparaissent.
Si un sous-dossier se trouve dans mon dossier, etc... idem pour tous les sous-dossiers.

Je n'ai pas besoin que l'extension des fichiers extraits (.xls, .doc, .jpg, autres) soit affichée.

Pouvez-vous m'aider?

Mes meilleures salutations,

Thierry

 

[Oneida]

Bonjour,
Ici, y a un code pas mal, a adapter pour ecrire dans des cellules

[VBA-*]Lister les sous-répertoires et les fichiers de ceux-ci - Contribuez

Demande de valider la référence "Microsoft Scripting Runtime" Inspiré de l'aide en ligne Code : - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub ListerLesSsRepEtLeursFichiers (

www.developpez.net

 

[sylvanu]

Bonjour Titi, Oneida,
Peut être une piste à adapter en PJ.
1- Demande le dossier à traiter
2- Fait la liste des fichiers avec le chemin complet
3- En feuil2 splite les hiérarchies, un niveau par colonne, avec nom fichier en avant dernière colonne et extension en dernière colonne.
Donc je pense assez simple à adapter à votre besoin.

 

[Titi456]

Bonjour Oneida et Sylvanu,

Merci beaucoup pour vos propositions. Sylvanu, votre fichier me convient tout à fait.

Mes meilleures salutations et bon début de semaine à vous deux.

Thierry

 

[sylvanu]

Bonjour Titi,
Prenez donc cette PJ.
J'y ai ajouté une feuille donnant l'arborescence du dossier analysé ainsi que les extensions utilisées.

 

[Titi456]

Bonjour Titi,
Prenez donc cette PJ.
J'y ai ajouté une feuille donnant l'arborescence du dossier analysé ainsi que les extensions utilisées.

Je comprends vraiment rien à votre code mais on voit que vous avez bien quelques années d'expérience en VBA.

Encore merci et bonne fin d'après-midi!