Créer une arborescence de dossier

Bonjour,

Est-il possible de créer une arborescence de dossier à partir d'un tableau Excel?

Je vais essaye d'être plus clair : J'aimerais créer cette arborescence sous Windows qui se complèterait au fur et à mesure que je remplirait un tableau Excel, sachant que "dossier 1 serait en A1, sous dossier 1 serait en B2 , sous sous dossier1 en C3, Dossier 2 en D1? ETC....

Dossier 1

________sous dossier 1

____________________sous sous dossier 1

Dossier 2

________sous dossier 2

____________________sous sous dossier 2

D'avance merci pour vos réponses.

0 réponse,je pense que ma question était mal posée, je clôture le sujet et je relancerai un nouveau sujet.

merci

Bonsoir,

la question est bien posée, mais elle manque peut-être de "support"...

Un fichier joint comme celui joint ici donnerait peut-être plus de "caractère" à votre question...

Alors toujours rien de la part des grand "programmeur" formulaticien ?

@ bientôt

LouReeD

Bonsoir LouReed,

tu as très bien retranscrit ma demande. Merci

C-dessous, un début de code trouvé sur le net, qui permet déjà de créer les dossiers à partir de la colonne A .

Si je n'ai pas mieux, je me débrouillerai en rabattant tout sur la colonne A, puis je ferai glisser les dossiers, mais long et fastidieux hélas.

Merci pour ta participation.

3'124crer-repertoire.xlsm (18.41 Ko)

Bonsoir

De mes archives, à tester

Mal compris (cela ne m'étonne pas) le problème

Message à supprimer SVP ?

Bonjour,

Dim n, ligne, Tbl(), RepNiv(1 To 6)
Sub CreeArboRepertoire()
  Tbl = Range("A2:B" & [A65000].End(xlUp).Row).Value
  n = UBound(Tbl)
  niv = 1
  CréeRep Tbl(1, 1), niv
End Sub

Sub CréeRep(parent, niv) ' procédure récursive
  chemin = ""
  RepNiv(niv) = parent
  For i = 1 To niv - 1
   chemin = chemin & RepNiv(i) & "\"
  Next i
  chemin = chemin & parent
  MkDir chemin
  For i = 1 To n
    If Tbl(i, 2) = parent Then CréeRep Tbl(i, 1), niv + 1
  Next i
End Sub

Ceuzin

3'189arborescencerep.zip (63.78 Ko)

Bonsoir Ceuzin,

Merci pour ta réponse.

Ta macro fonctionne très bien.

Mais le souci, c'est que le tableau dont je dispose n'est pas agencé comme celui de ton exemple, et je voudrai éviter d'avoir à déplacer les cellules (près de 500 cellules env.).

J'ai trouvé sur le net un macro qui s'approche de ce que je souhaite que je mets en pj.

Celle ci me permet de choisir le dossier racine, mais je ne suis pas intéressé par la création des noms de sous dossier, par contre, j'aurais aimé ajouter au moins deux niveaux de sous-dossier.

Si tu as une idée, je suis preneur. D'avance merci

Bonsoir,

pour rebondir, vu que la macro de ceuzin fonctionne bien comme cela, pourquoi ne pas créer une macro qui met en forme votre fichier source pour que la seconde macro fonctionne ?

@ bientôt

LouReeD

NB : vous avez vu, avec un simple fichier qui permet d'avoir un support, il y a plus de réponses, non ? et nul besoin d'ouvrir un deuxième post...

Bonsoir,

Transforme l'organigramme fourni en BD

Sub transforme()
 For ligne = 2 To 21
    Cells(ligne, 1) = ""
    For k = 4 To 8
      Cells(ligne, 1) = Cells(ligne, 1) & Cells(ligne, k)
    Next k
 Next ligne
 '--
 For col = 5 To 8
   For ligne = 3 To 21
     If Cells(ligne, col) <> "" Then
       x = Cells(ligne, col - 1).End(xlUp).Row
       Cells(ligne, 2) = Cells(x, col - 1)
     End If
   Next ligne
 Next col
End Sub

On peut ensuite créer l'arborescence à partir de la BD

Ceuzin

1'929crer-repertoire.zip (18.43 Ko)

Bonsoir Ceuzin,

merci pour le temps que tu as consacré à ma question.

Je devrais arriver à me débrouiller avec tes macros.

merci encore

Merci aussi à Loureed pour ces conseils.

Rechercher des sujets similaires à "creer arborescence dossier"