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
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
