Arborescence dossier conditionnée par cellule excel

tchangy71

XLDnaute Occasionnel
Bonjour,
Je souhaite réaliser une macro qui me permet de créer une arborescence de dossiers représentées dans mes différentes cellule Excel.
Si dessous la macro déjà réalisée :

Sub test()
Dim c As Range, d As Range, e As Range
For Each c In Range("B1")
MkDir "C:\Users\CITYLINKBABETTE\Desktop\DEV_EXCEL\" & c.Value 'création fichier client
For Each d In Range("B3", Range("B65000").End(xlUp))
MkDir "C:\Users\CITYLINKBABETTE\Desktop\DEV_EXCEL\" & c.Value & "\" & d.Value 'création des groupes
Next d
For Each e In Range("E2", Range("E65000").End(x1Up))
MkDir ("A42") & e.Value 'création des lieux, A42 par ce que je ne sais pas trop comment indiqué autrement que les cellules E2 à E15 doivent être créer dans le chemin correspondant à ma première valeur d
Next e
Next c
End Sub

J'ai bien l'arborescence correspondant à "c" et "d" mais pas celle de "e"
Mon intention étant :
Cellule B1 : Client ("c") (d'ailleurs il n'y auras toujours qu'un seul client et je pense que la formule For Each c In Range ("B1") n'est pas la plus adaptée ?)

Cellule B3 : Groupe A
Cellule B4 : Groupe B
Etc.(de la cellule B3 à B32)

Cellule E2 : Lieux A (appartient au Groupe A)
Cellule E3 : Lieux B (appartient au Groupe A)
Etc. (de la cellule E2 à E15)

Cellule G2 : Lieux A (Appartient au groupe B)
Cellule G3 : Lieux B' (Appartient au groupe B)
Etc. (de la cellule G2 à G15)
Nombre de groupe 30
Nombre de Lieux 14 par groupe
Et Nombre de Sous Lieux 10 par Lieux

Une idée ?
Merci d'avance
 

BrunoM45

XLDnaute Barbatruc
Re : Arborescence dossier conditionnée par cellule excel

Bonjour

Mauvaise transcription ou vrai erreur :confused:
End(x1Up) ... c'est ... End(XlUp) ... la lettre "L" en minuscule

A+
 

tchangy71

XLDnaute Occasionnel
Re : Arborescence dossier conditionnée par cellule excel

Bonjour et merci,
erreur corrigé, mais cela ne change pas mon problème !! Ça ne marche toujours pas !!
 

BrunoM45

XLDnaute Barbatruc
Re : Arborescence dossier conditionnée par cellule excel

Re,

Si tu veux une réponse correcte, merci de nous joindre un fichier
avec ce que tu as et ce que tu voudrais ;)

A+
 

Discussions similaires


Haut Bas