Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 
C

Compte Supprimé 979

Guest
Re : Arborescence dossier conditionnée par cellule excel

Bonjour

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

A+
 
C

Compte Supprimé 979

Guest
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

Réponses
7
Affichages
328
Réponses
1
Affichages
168
Réponses
12
Affichages
252
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…