Reconstitution d'un arbre de dossiers

[sophie]

Bonjour,

Quelqu'un peut me dire comment faire pour reconstituer une arborescence de dossiers sous Excels ?

Exemple : g un dossier A et des sous dossiers A1, A2, A3 et je voudrais transférer sous Excel l'arborescence de ce dossier, en ayant par exemple :
A A1
A2
A3

D'avance, cimer.

 

[Michel_M]

bonjour Sophie

tu as les méthodes movefolder et copyfolder de l'objet filesystemobject; par exemple:

Dim transf As Object

Set transf = CreateObject("Scripting.FileSystemObject")

transf.movefolder source, cible


tu peux employer des termes génériques dans source mais pas dans destination

attention au piège du "\" à la fin: consultes l'aide à ce sujet.


Michel

 

[Sophie]

Merci pour ton aide mais je ne comprend pas tout. Je suis débutante sur Excel. Y a t'il d'autres moyens ?

Dans l'idéal, je voudrais pouvoir simplement cliquer sur un bouton, choisir le dossier dont je veux reconsituter l'arborescence, et avoir le résultat directement.

A la limite, je saurais importer un fichier texte séparé par des points-virgules mais je ne vois pas comment créer ce fichier à partir de l'explorateur Windows.

 

[Hervé]

bonjour sophie et michel

J'ai un classeur (pas de moi) qui fait ceci très bien.

Mais il est trop gros pour le mettre sur le forum si tu me laisse ton adresse email je te propose de te l'envoyer.

Salut
Hervé

 

[sophie]

OK hervé,

J'espère que ton fichier fera l'affaire, sachant que je ne veux pas avoir les noms des fichiers mais des dossiers uniquement. Mon adresse :agui3@netcourrier.com"

Merci A+