Création arborescence dossiers

**funkyf** · 28/01/2019, 17h39

Bonjour

Je voudrait créer une arborescence à plusieurs niveaux (dossier parent, dossier, sous dossier, sous sous dossier).
J'ai trouvé sur un sujet clos une macro qui me crée mon arborescence jusqu'au sous dossier, mais je n'ai aucun sous sous dossier créé dans ces derniers.
Comment étendre la boucle jusqu'à la colonne D?
Ci-dessous un copié de mon Excel et de la macro utilisée.

A-dossier parent	B-dossier	C-sous dossier	D-sous sous dossier
dossier parent :/F	dossier 12	doc spécifique 61	(vide)
dossier parent :/F	dossier 12	doc spécifique 62	(vide)
dossier parent :/F	dossier 12	doc spécifique 63	(vide)
dossier parent :/F	dossier 12	doc spécifique 64	(vide)
dossier parent :/F	dossier 12	doc spécifique 65	(vide)
dossier parent :/F	dossier 12	doc spécifique 66	(vide)
dossier parent :/F	dossier 12	doc spécifique 67	(vide)
dossier parent :/F	dossier 12	doc spécifique 68	(vide)
dossier parent :/F	dossier 13	doc spécifique 69	(vide)
dossier parent :/F	dossier 13	doc spécifique 70	(vide)
dossier parent :/F	dossier 13	doc spécifique 71	(vide)
dossier parent :/F	dossier 13	doc spécifique 72	(vide)
dossier parent :/F	dossier 13	doc spécifique 73	(vide)
dossier parent :/F	dossier 13	doc spécifique 74	(vide)
dossier parent :/F	dossier 1	sous dossier 10	sous sous dossier 11
dossier parent :/F	dossier 1	sous dossier 10	sous sous dossier 12
dossier parent :/F	dossier 1	sous dossier 10	sous sous dossier 13
dossier parent :/F	dossier 1	sous dossier 10	sous sous dossier 14
dossier parent :/F	dossier 1	sous dossier 10	sous sous dossier 15
dossier parent :/F	dossier 1	sous dossier 10	sous sous dossier 16
dossier parent :/F	dossier 1	sous dossier 10	sous sous dossier 17
dossier parent :/F	dossier 1	sous dossier 10	sous sous dossier 18
dossier parent :/F	dossier 1	sous dossier 10	sous sous dossier 19
dossier parent :/F	dossier 1	sous dossier 20	sous sous dossier 21
dossier parent :/F	dossier 1	sous dossier 20	sous sous dossier 22
dossier parent :/F	dossier 1	sous dossier 20	sous sous dossier 23
dossier parent :/F	dossier 1	sous dossier 20	sous sous dossier 24
dossier parent :/F	dossier 1	sous dossier 20	sous sous dossier 25
dossier parent :/F	dossier 1	sous dossier 20	sous sous dossier 26
dossier parent :/F	dossier 1	sous dossier 20	sous sous dossier 27
dossier parent :/F	dossier 1	sous dossier 20	sous sous dossier 28
dossier parent :/F	dossier 1	sous dossier 20	sous sous dossier 29
dossier parent :/F	dossier 1	sous dossier 30	sous sous dossier 31
dossier parent :/F	dossier 1	sous dossier 30	sous sous dossier 32
dossier parent :/F	dossier 1	sous dossier 30	sous sous dossier 33
dossier parent :/F	dossier 1	sous dossier 30	sous sous dossier 34
dossier parent :/F	dossier 1	sous dossier 30	sous sous dossier 35
dossier parent :/F	dossier 1	sous dossier 30	sous sous dossier 36
dossier parent :/F	dossier 1	sous dossier 30	sous sous dossier 37
dossier parent :/F	dossier 1	sous dossier 30	sous sous dossier 38
dossier parent :/F	dossier 1	sous dossier 30	sous sous dossier 39
dossier parent :/F	dossier 1	sous dossier 40	sous sous dossier 41
dossier parent :/F	dossier 1	sous dossier 40	sous sous dossier 42
dossier parent :/F	dossier 1	sous dossier 40	sous sous dossier 43
dossier parent :/F	dossier 1	sous dossier 40	sous sous dossier 44
dossier parent :/F	dossier 1	sous dossier 40	sous sous dossier 45
dossier parent :/F	dossier 1	sous dossier 40	sous sous dossier 46
dossier parent :/F	dossier 1	sous dossier 40	sous sous dossier 47
dossier parent :/F	dossier 1	sous dossier 40	sous sous dossier 48
dossier parent :/F	dossier 1	sous dossier 40	sous sous dossier 49
dossier parent :/F	dossier 1	sous dossier 50	sous sous dossier 51
dossier parent :/F	dossier 1	sous dossier 50	sous sous dossier 52
dossier parent :/F	dossier 1	sous dossier 50	sous sous dossier 53
dossier parent :/F	dossier 1	sous dossier 50	sous sous dossier 54
dossier parent :/F	dossier 1	sous dossier 50	sous sous dossier 55
dossier parent :/F	dossier 1	sous dossier 50	sous sous dossier 56
dossier parent :/F	dossier 1	sous dossier 50	sous sous dossier 57
dossier parent :/F	dossier 1	sous dossier 50	sous sous dossier 58
dossier parent :/F	dossier 1	doc spécifique 1	(vide)
dossier parent :/F	dossier 1	doc spécifique 2	(vide)
dossier parent :/F	dossier 1	doc spécifique 3	(vide)
dossier parent :/F	dossier 1	doc spécifique 4	(vide)
dossier parent :/F	dossier 1	doc spécifique 5	(vide)
dossier parent :/F	dossier 1	doc spécifique 6	(vide)
dossier parent :/F	dossier 2	sous dossier 10	sous sous dossier 11
dossier parent :/F	dossier 2	sous dossier 10	sous sous dossier 12
dossier parent :/F	dossier 2	sous dossier 10	sous sous dossier 13
dossier parent :/F	dossier 2	sous dossier 10	sous sous dossier 14
dossier parent :/F	dossier 2	sous dossier 10	sous sous dossier 15
dossier parent :/F	dossier 2	sous dossier 10	sous sous dossier 16
dossier parent :/F	dossier 2	sous dossier 10	sous sous dossier 17
dossier parent :/F	dossier 2	sous dossier 10	sous sous dossier 18
dossier parent :/F	dossier 2	sous dossier 10	sous sous dossier 19
dossier parent :/F	dossier 2	sous dossier 20	sous sous dossier 21
dossier parent :/F	dossier 2	sous dossier 20	sous sous dossier 22
dossier parent :/F	dossier 2	sous dossier 20	sous sous dossier 23
dossier parent :/F	dossier 2	sous dossier 20	sous sous dossier 24
dossier parent :/F	dossier 2	sous dossier 20	sous sous dossier 25
dossier parent :/F	dossier 2	sous dossier 20	sous sous dossier 26
dossier parent :/F	dossier 2	sous dossier 20	sous sous dossier 27
dossier parent :/F	dossier 2	sous dossier 20	sous sous dossier 28
dossier parent :/F	dossier 2	sous dossier 20	sous sous dossier 29
dossier parent :/F	dossier 2	sous dossier 30	sous sous dossier 31
dossier parent :/F	dossier 2	sous dossier 30	sous sous dossier 32
dossier parent :/F	dossier 2	sous dossier 30	sous sous dossier 33
dossier parent :/F	dossier 2	sous dossier 30	sous sous dossier 34
dossier parent :/F	dossier 2	sous dossier 30	sous sous dossier 35
dossier parent :/F	dossier 2	sous dossier 30	sous sous dossier 36
dossier parent :/F	dossier 2	sous dossier 30	sous sous dossier 37
dossier parent :/F	dossier 2	sous dossier 30	sous sous dossier 38
dossier parent :/F	dossier 2	sous dossier 30	sous sous dossier 39
dossier parent :/F	dossier 2	sous dossier 40	sous sous dossier 41
dossier parent :/F	dossier 2	sous dossier 40	sous sous dossier 42
dossier parent :/F	dossier 2	sous dossier 40	sous sous dossier 43
dossier parent :/F	dossier 2	sous dossier 40	sous sous dossier 44
dossier parent :/F	dossier 2	sous dossier 40	sous sous dossier 45
dossier parent :/F	dossier 2	sous dossier 40	sous sous dossier 46
dossier parent :/F	dossier 2	sous dossier 40	sous sous dossier 47
dossier parent :/F	dossier 2	sous dossier 40	sous sous dossier 48
dossier parent :/F	dossier 2	sous dossier 40	sous sous dossier 49
dossier parent :/F	dossier 2	sous dossier 50	sous sous dossier 51
dossier parent :/F	dossier 2	sous dossier 50	sous sous dossier 52
dossier parent :/F	dossier 2	sous dossier 50	sous sous dossier 53
dossier parent :/F	dossier 2	sous dossier 50	sous sous dossier 54
dossier parent :/F	dossier 2	sous dossier 50	sous sous dossier 55
dossier parent :/F	dossier 2	sous dossier 50	sous sous dossier 56
dossier parent :/F	dossier 2	sous dossier 50	sous sous dossier 57
dossier parent :/F	dossier 2	sous dossier 50	sous sous dossier 58
dossier parent :/F	dossier 2	doc spécifique 7	(vide)
dossier parent :/F	dossier 2	doc spécifique 8	(vide)
dossier parent :/F	dossier 2	doc spécifique 9	(vide)
dossier parent :/F	dossier 2	doc spécifique 10	(vide)
dossier parent :/F	dossier 2	doc spécifique 11	(vide)
dossier parent :/F	dossier 2	doc spécifique 12	(vide)
dossier parent :/F	dossier 3	sous dossier 10	sous sous dossier 11
dossier parent :/F	dossier 3	sous dossier 10	sous sous dossier 12
dossier parent :/F	dossier 3	sous dossier 10	sous sous dossier 13
dossier parent :/F	dossier 3	sous dossier 10	sous sous dossier 14
dossier parent :/F	dossier 3	sous dossier 10	sous sous dossier 15
dossier parent :/F	dossier 3	sous dossier 10	sous sous dossier 16
dossier parent :/F	dossier 3	sous dossier 10	sous sous dossier 17
dossier parent :/F	dossier 3	sous dossier 10	sous sous dossier 18
dossier parent :/F	dossier 3	sous dossier 10	sous sous dossier 19
dossier parent :/F	dossier 3	sous dossier 20	sous sous dossier 21
dossier parent :/F	dossier 3	sous dossier 20	sous sous dossier 22
dossier parent :/F	dossier 3	sous dossier 20	sous sous dossier 23
dossier parent :/F	dossier 3	sous dossier 20	sous sous dossier 24
dossier parent :/F	dossier 3	sous dossier 20	sous sous dossier 25
dossier parent :/F	dossier 3	sous dossier 20	sous sous dossier 26
dossier parent :/F	dossier 3	sous dossier 20	sous sous dossier 27
dossier parent :/F	dossier 3	sous dossier 20	sous sous dossier 28
dossier parent :/F	dossier 3	sous dossier 20	sous sous dossier 29
dossier parent :/F	dossier 3	sous dossier 30	sous sous dossier 31
dossier parent :/F	dossier 3	sous dossier 30	sous sous dossier 32
dossier parent :/F	dossier 3	sous dossier 30	sous sous dossier 33
dossier parent :/F	dossier 3	sous dossier 30	sous sous dossier 34
dossier parent :/F	dossier 3	sous dossier 30	sous sous dossier 35
dossier parent :/F	dossier 3	sous dossier 30	sous sous dossier 36
dossier parent :/F	dossier 3	sous dossier 30	sous sous dossier 37
dossier parent :/F	dossier 3	sous dossier 30	sous sous dossier 38
dossier parent :/F	dossier 3	sous dossier 30	sous sous dossier 39
dossier parent :/F	dossier 3	sous dossier 40	sous sous dossier 41
dossier parent :/F	dossier 3	sous dossier 40	sous sous dossier 42
dossier parent :/F	dossier 3	sous dossier 40	sous sous dossier 43
dossier parent :/F	dossier 3	sous dossier 40	sous sous dossier 44
dossier parent :/F	dossier 3	sous dossier 40	sous sous dossier 45
dossier parent :/F	dossier 3	sous dossier 40	sous sous dossier 46
dossier parent :/F	dossier 3	sous dossier 40	sous sous dossier 47
dossier parent :/F	dossier 3	sous dossier 40	sous sous dossier 48
dossier parent :/F	dossier 3	sous dossier 40	sous sous dossier 49
dossier parent :/F	dossier 3	sous dossier 50	sous sous dossier 51
dossier parent :/F	dossier 3	sous dossier 50	sous sous dossier 52
dossier parent :/F	dossier 3	sous dossier 50	sous sous dossier 53
dossier parent :/F	dossier 3	sous dossier 50	sous sous dossier 54
dossier parent :/F	dossier 3	sous dossier 50	sous sous dossier 55
dossier parent :/F	dossier 3	sous dossier 50	sous sous dossier 56
dossier parent :/F	dossier 3	sous dossier 50	sous sous dossier 57
dossier parent :/F	dossier 3	sous dossier 50	sous sous dossier 58
dossier parent :/F	dossier 3	doc spécifique 13	(vide)
dossier parent :/F	dossier 3	doc spécifique 14	(vide)
dossier parent :/F	dossier 3	doc spécifique 15	(vide)
dossier parent :/F	dossier 3	doc spécifique 16	(vide)
dossier parent :/F	dossier 3	doc spécifique 17	(vide)
dossier parent :/F	dossier 3	doc spécifique 18	(vide)
dossier parent :/F	dossier 4	sous dossier 10	sous sous dossier 11
dossier parent :/F	dossier 4	sous dossier 10	sous sous dossier 12
dossier parent :/F	dossier 4	sous dossier 10	sous sous dossier 13
dossier parent :/F	dossier 4	sous dossier 10	sous sous dossier 14
dossier parent :/F	dossier 4	sous dossier 10	sous sous dossier 15
dossier parent :/F	dossier 4	sous dossier 10	sous sous dossier 16
dossier parent :/F	dossier 4	sous dossier 10	sous sous dossier 17
dossier parent :/F	dossier 4	sous dossier 10	sous sous dossier 18
dossier parent :/F	dossier 4	sous dossier 10	sous sous dossier 19
dossier parent :/F	dossier 4	sous dossier 20	sous sous dossier 21
dossier parent :/F	dossier 4	sous dossier 20	sous sous dossier 22
dossier parent :/F	dossier 4	sous dossier 20	sous sous dossier 23
dossier parent :/F	dossier 4	sous dossier 20	sous sous dossier 24
dossier parent :/F	dossier 4	sous dossier 20	sous sous dossier 25
dossier parent :/F	dossier 4	sous dossier 20	sous sous dossier 26
dossier parent :/F	dossier 4	sous dossier 20	sous sous dossier 27
dossier parent :/F	dossier 4	sous dossier 20	sous sous dossier 28
dossier parent :/F	dossier 4	sous dossier 20	sous sous dossier 29
dossier parent :/F	dossier 4	sous dossier 30	sous sous dossier 31
dossier parent :/F	dossier 4	sous dossier 30	sous sous dossier 32
dossier parent :/F	dossier 4	sous dossier 30	sous sous dossier 33
dossier parent :/F	dossier 4	sous dossier 30	sous sous dossier 34
dossier parent :/F	dossier 4	sous dossier 30	sous sous dossier 35
dossier parent :/F	dossier 4	sous dossier 30	sous sous dossier 36
dossier parent :/F	dossier 4	sous dossier 30	sous sous dossier 37
dossier parent :/F	dossier 4	sous dossier 30	sous sous dossier 38
dossier parent :/F	dossier 4	sous dossier 30	sous sous dossier 39
dossier parent :/F	dossier 4	sous dossier 40	sous sous dossier 41
dossier parent :/F	dossier 4	sous dossier 40	sous sous dossier 42
dossier parent :/F	dossier 4	sous dossier 40	sous sous dossier 43
dossier parent :/F	dossier 4	sous dossier 40	sous sous dossier 44
dossier parent :/F	dossier 4	sous dossier 40	sous sous dossier 45
dossier parent :/F	dossier 4	sous dossier 40	sous sous dossier 46
dossier parent :/F	dossier 4	sous dossier 40	sous sous dossier 47
dossier parent :/F	dossier 4	sous dossier 40	sous sous dossier 48
dossier parent :/F	dossier 4	sous dossier 40	sous sous dossier 49
dossier parent :/F	dossier 4	sous dossier 50	sous sous dossier 51
dossier parent :/F	dossier 4	sous dossier 50	sous sous dossier 52
dossier parent :/F	dossier 4	sous dossier 50	sous sous dossier 53
dossier parent :/F	dossier 4	sous dossier 50	sous sous dossier 54
dossier parent :/F	dossier 4	sous dossier 50	sous sous dossier 55
dossier parent :/F	dossier 4	sous dossier 50	sous sous dossier 56
dossier parent :/F	dossier 4	sous dossier 50	sous sous dossier 57
dossier parent :/F	dossier 4	sous dossier 50	sous sous dossier 58
dossier parent :/F	dossier 4	doc spécifique 19	(vide)
dossier parent :/F	dossier 4	doc spécifique 20	(vide)
dossier parent :/F	dossier 4	doc spécifique 21	(vide)
dossier parent :/F	dossier 4	doc spécifique 22	(vide)
dossier parent :/F	dossier 4	doc spécifique 23	(vide)
dossier parent :/F	dossier 4	doc spécifique 24	(vide)
dossier parent :/F	dossier 5	sous dossier 10	sous sous dossier 11
dossier parent :/F	dossier 5	sous dossier 10	sous sous dossier 12
dossier parent :/F	dossier 5	sous dossier 10	sous sous dossier 13
dossier parent :/F	dossier 5	sous dossier 10	sous sous dossier 14
dossier parent :/F	dossier 5	sous dossier 10	sous sous dossier 15
dossier parent :/F	dossier 5	sous dossier 10	sous sous dossier 16
dossier parent :/F	dossier 5	sous dossier 10	sous sous dossier 17
dossier parent :/F	dossier 5	sous dossier 10	sous sous dossier 18
dossier parent :/F	dossier 5	sous dossier 10	sous sous dossier 19
dossier parent :/F	dossier 5	sous dossier 20	sous sous dossier 21
dossier parent :/F	dossier 5	sous dossier 20	sous sous dossier 22
dossier parent :/F	dossier 5	sous dossier 20	sous sous dossier 23
dossier parent :/F	dossier 5	sous dossier 20	sous sous dossier 24
dossier parent :/F	dossier 5	sous dossier 20	sous sous dossier 25
dossier parent :/F	dossier 5	sous dossier 20	sous sous dossier 26
dossier parent :/F	dossier 5	sous dossier 20	sous sous dossier 27
dossier parent :/F	dossier 5	sous dossier 20	sous sous dossier 28
dossier parent :/F	dossier 5	sous dossier 20	sous sous dossier 29
dossier parent :/F	dossier 5	sous dossier 30	sous sous dossier 31
dossier parent :/F	dossier 5	sous dossier 30	sous sous dossier 32
dossier parent :/F	dossier 5	sous dossier 30	sous sous dossier 33
dossier parent :/F	dossier 5	sous dossier 30	sous sous dossier 34
dossier parent :/F	dossier 5	sous dossier 30	sous sous dossier 35
dossier parent :/F	dossier 5	sous dossier 30	sous sous dossier 36
dossier parent :/F	dossier 5	sous dossier 30	sous sous dossier 37
dossier parent :/F	dossier 5	sous dossier 30	sous sous dossier 38
dossier parent :/F	dossier 5	sous dossier 30	sous sous dossier 39
dossier parent :/F	dossier 5	sous dossier 40	sous sous dossier 41
dossier parent :/F	dossier 5	sous dossier 40	sous sous dossier 42
dossier parent :/F	dossier 5	sous dossier 40	sous sous dossier 43
dossier parent :/F	dossier 5	sous dossier 40	sous sous dossier 44
dossier parent :/F	dossier 5	sous dossier 40	sous sous dossier 45
dossier parent :/F	dossier 5	sous dossier 40	sous sous dossier 46
dossier parent :/F	dossier 5	sous dossier 40	sous sous dossier 47
dossier parent :/F	dossier 5	sous dossier 40	sous sous dossier 48
dossier parent :/F	dossier 5	sous dossier 40	sous sous dossier 49
dossier parent :/F	dossier 5	sous dossier 50	sous sous dossier 51
dossier parent :/F	dossier 5	sous dossier 50	sous sous dossier 52
dossier parent :/F	dossier 5	sous dossier 50	sous sous dossier 53
dossier parent :/F	dossier 5	sous dossier 50	sous sous dossier 54
dossier parent :/F	dossier 5	sous dossier 50	sous sous dossier 55
dossier parent :/F	dossier 5	sous dossier 50	sous sous dossier 56
dossier parent :/F	dossier 5	sous dossier 50	sous sous dossier 57
dossier parent :/F	dossier 5	sous dossier 50	sous sous dossier 58
dossier parent :/F	dossier 5	doc spécifique 25	(vide)
dossier parent :/F	dossier 5	doc spécifique 26	(vide)
dossier parent :/F	dossier 5	doc spécifique 27	(vide)
dossier parent :/F	dossier 5	doc spécifique 28	(vide)
dossier parent :/F	dossier 5	doc spécifique 29	(vide)
dossier parent :/F	dossier 5	doc spécifique 30	(vide)
dossier parent :/F	dossier 6	sous dossier 10	sous sous dossier 11
dossier parent :/F	dossier 6	sous dossier 10	sous sous dossier 12
dossier parent :/F	dossier 6	sous dossier 10	sous sous dossier 13
dossier parent :/F	dossier 6	sous dossier 10	sous sous dossier 14
dossier parent :/F	dossier 6	sous dossier 10	sous sous dossier 15
dossier parent :/F	dossier 6	sous dossier 10	sous sous dossier 16
dossier parent :/F	dossier 6	sous dossier 10	sous sous dossier 17
dossier parent :/F	dossier 6	sous dossier 10	sous sous dossier 18
dossier parent :/F	dossier 6	sous dossier 10	sous sous dossier 19
dossier parent :/F	dossier 6	sous dossier 20	sous sous dossier 21
dossier parent :/F	dossier 6	sous dossier 20	sous sous dossier 22
dossier parent :/F	dossier 6	sous dossier 20	sous sous dossier 23
dossier parent :/F	dossier 6	sous dossier 20	sous sous dossier 24
dossier parent :/F	dossier 6	sous dossier 20	sous sous dossier 25
dossier parent :/F	dossier 6	sous dossier 20	sous sous dossier 26
dossier parent :/F	dossier 6	sous dossier 20	sous sous dossier 27
dossier parent :/F	dossier 6	sous dossier 20	sous sous dossier 28
dossier parent :/F	dossier 6	sous dossier 20	sous sous dossier 29
dossier parent :/F	dossier 6	sous dossier 30	sous sous dossier 31
dossier parent :/F	dossier 6	sous dossier 30	sous sous dossier 32
dossier parent :/F	dossier 6	sous dossier 30	sous sous dossier 33
dossier parent :/F	dossier 6	sous dossier 30	sous sous dossier 34
dossier parent :/F	dossier 6	sous dossier 30	sous sous dossier 35
dossier parent :/F	dossier 6	sous dossier 30	sous sous dossier 36
dossier parent :/F	dossier 6	sous dossier 30	sous sous dossier 37
dossier parent :/F	dossier 6	sous dossier 30	sous sous dossier 38
dossier parent :/F	dossier 6	sous dossier 30	sous sous dossier 39
dossier parent :/F	dossier 6	sous dossier 40	sous sous dossier 41
dossier parent :/F	dossier 6	sous dossier 40	sous sous dossier 42
dossier parent :/F	dossier 6	sous dossier 40	sous sous dossier 43
dossier parent :/F	dossier 6	sous dossier 40	sous sous dossier 44
dossier parent :/F	dossier 6	sous dossier 40	sous sous dossier 45
dossier parent :/F	dossier 6	sous dossier 40	sous sous dossier 46
dossier parent :/F	dossier 6	sous dossier 40	sous sous dossier 47
dossier parent :/F	dossier 6	sous dossier 40	sous sous dossier 48
dossier parent :/F	dossier 6	sous dossier 40	sous sous dossier 49
dossier parent :/F	dossier 6	sous dossier 50	sous sous dossier 51
dossier parent :/F	dossier 6	sous dossier 50	sous sous dossier 52
dossier parent :/F	dossier 6	sous dossier 50	sous sous dossier 53
dossier parent :/F	dossier 6	sous dossier 50	sous sous dossier 54
dossier parent :/F	dossier 6	sous dossier 50	sous sous dossier 55
dossier parent :/F	dossier 6	sous dossier 50	sous sous dossier 56
dossier parent :/F	dossier 6	sous dossier 50	sous sous dossier 57
dossier parent :/F	dossier 6	sous dossier 50	sous sous dossier 58
dossier parent :/F	dossier 6	doc spécifique 31	(vide)
dossier parent :/F	dossier 6	doc spécifique 32	(vide)
dossier parent :/F	dossier 6	doc spécifique 33	(vide)
dossier parent :/F	dossier 6	doc spécifique 34	(vide)
dossier parent :/F	dossier 6	doc spécifique 35	(vide)
dossier parent :/F	dossier 6	doc spécifique 36	(vide)
dossier parent :/F	dossier 7	sous dossier 10	sous sous dossier 11
dossier parent :/F	dossier 7	sous dossier 10	sous sous dossier 12
dossier parent :/F	dossier 7	sous dossier 10	sous sous dossier 13
dossier parent :/F	dossier 7	sous dossier 10	sous sous dossier 14
dossier parent :/F	dossier 7	sous dossier 10	sous sous dossier 15
dossier parent :/F	dossier 7	sous dossier 10	sous sous dossier 16
dossier parent :/F	dossier 7	sous dossier 10	sous sous dossier 17
dossier parent :/F	dossier 7	sous dossier 10	sous sous dossier 18
dossier parent :/F	dossier 7	sous dossier 10	sous sous dossier 19
dossier parent :/F	dossier 7	sous dossier 20	sous sous dossier 21
dossier parent :/F	dossier 7	sous dossier 20	sous sous dossier 22
dossier parent :/F	dossier 7	sous dossier 20	sous sous dossier 23
dossier parent :/F	dossier 7	sous dossier 20	sous sous dossier 24
dossier parent :/F	dossier 7	sous dossier 20	sous sous dossier 25
dossier parent :/F	dossier 7	sous dossier 20	sous sous dossier 26
dossier parent :/F	dossier 7	sous dossier 20	sous sous dossier 27
dossier parent :/F	dossier 7	sous dossier 20	sous sous dossier 28
dossier parent :/F	dossier 7	sous dossier 20	sous sous dossier 29
dossier parent :/F	dossier 7	sous dossier 30	sous sous dossier 31
dossier parent :/F	dossier 7	sous dossier 30	sous sous dossier 32
dossier parent :/F	dossier 7	sous dossier 30	sous sous dossier 33
dossier parent :/F	dossier 7	sous dossier 30	sous sous dossier 34
dossier parent :/F	dossier 7	sous dossier 30	sous sous dossier 35
dossier parent :/F	dossier 7	sous dossier 30	sous sous dossier 36
dossier parent :/F	dossier 7	sous dossier 30	sous sous dossier 37
dossier parent :/F	dossier 7	sous dossier 30	sous sous dossier 38
dossier parent :/F	dossier 7	sous dossier 30	sous sous dossier 39
dossier parent :/F	dossier 7	sous dossier 40	sous sous dossier 41
dossier parent :/F	dossier 7	sous dossier 40	sous sous dossier 42
dossier parent :/F	dossier 7	sous dossier 40	sous sous dossier 43
dossier parent :/F	dossier 7	sous dossier 40	sous sous dossier 44
dossier parent :/F	dossier 7	sous dossier 40	sous sous dossier 45
dossier parent :/F	dossier 7	sous dossier 40	sous sous dossier 46
dossier parent :/F	dossier 7	sous dossier 40	sous sous dossier 47
dossier parent :/F	dossier 7	sous dossier 40	sous sous dossier 48
dossier parent :/F	dossier 7	sous dossier 40	sous sous dossier 49
dossier parent :/F	dossier 7	sous dossier 50	sous sous dossier 51
dossier parent :/F	dossier 7	sous dossier 50	sous sous dossier 52
dossier parent :/F	dossier 7	sous dossier 50	sous sous dossier 53
dossier parent :/F	dossier 7	sous dossier 50	sous sous dossier 54
dossier parent :/F	dossier 7	sous dossier 50	sous sous dossier 55
dossier parent :/F	dossier 7	sous dossier 50	sous sous dossier 56
dossier parent :/F	dossier 7	sous dossier 50	sous sous dossier 57
dossier parent :/F	dossier 7	sous dossier 50	sous sous dossier 58
dossier parent :/F	dossier 7	doc spécifique 37	(vide)
dossier parent :/F	dossier 7	doc spécifique 38	(vide)
dossier parent :/F	dossier 7	doc spécifique 39	(vide)
dossier parent :/F	dossier 7	doc spécifique 40	(vide)
dossier parent :/F	dossier 7	doc spécifique 41	(vide)
dossier parent :/F	dossier 7	doc spécifique 42	(vide)
dossier parent :/F	dossier 8	sous dossier 10	sous sous dossier 11
dossier parent :/F	dossier 8	sous dossier 10	sous sous dossier 12
dossier parent :/F	dossier 8	sous dossier 10	sous sous dossier 13
dossier parent :/F	dossier 8	sous dossier 10	sous sous dossier 14
dossier parent :/F	dossier 8	sous dossier 10	sous sous dossier 15
dossier parent :/F	dossier 8	sous dossier 10	sous sous dossier 16
dossier parent :/F	dossier 8	sous dossier 10	sous sous dossier 17
dossier parent :/F	dossier 8	sous dossier 10	sous sous dossier 18
dossier parent :/F	dossier 8	sous dossier 10	sous sous dossier 19
dossier parent :/F	dossier 8	sous dossier 20	sous sous dossier 21
dossier parent :/F	dossier 8	sous dossier 20	sous sous dossier 22
dossier parent :/F	dossier 8	sous dossier 20	sous sous dossier 23
dossier parent :/F	dossier 8	sous dossier 20	sous sous dossier 24
dossier parent :/F	dossier 8	sous dossier 20	sous sous dossier 25
dossier parent :/F	dossier 8	sous dossier 20	sous sous dossier 26
dossier parent :/F	dossier 8	sous dossier 20	sous sous dossier 27
dossier parent :/F	dossier 8	sous dossier 20	sous sous dossier 28
dossier parent :/F	dossier 8	sous dossier 20	sous sous dossier 29
dossier parent :/F	dossier 8	sous dossier 30	sous sous dossier 31
dossier parent :/F	dossier 8	sous dossier 30	sous sous dossier 32
dossier parent :/F	dossier 8	sous dossier 30	sous sous dossier 33
dossier parent :/F	dossier 8	sous dossier 30	sous sous dossier 34
dossier parent :/F	dossier 8	sous dossier 30	sous sous dossier 35
dossier parent :/F	dossier 8	sous dossier 30	sous sous dossier 36
dossier parent :/F	dossier 8	sous dossier 30	sous sous dossier 37
dossier parent :/F	dossier 8	sous dossier 30	sous sous dossier 38
dossier parent :/F	dossier 8	sous dossier 30	sous sous dossier 39
dossier parent :/F	dossier 8	sous dossier 40	sous sous dossier 41
dossier parent :/F	dossier 8	sous dossier 40	sous sous dossier 42
dossier parent :/F	dossier 8	sous dossier 40	sous sous dossier 43
dossier parent :/F	dossier 8	sous dossier 40	sous sous dossier 44
dossier parent :/F	dossier 8	sous dossier 40	sous sous dossier 45
dossier parent :/F	dossier 8	sous dossier 40	sous sous dossier 46
dossier parent :/F	dossier 8	sous dossier 40	sous sous dossier 47
dossier parent :/F	dossier 8	sous dossier 40	sous sous dossier 48
dossier parent :/F	dossier 8	sous dossier 40	sous sous dossier 49
dossier parent :/F	dossier 8	sous dossier 50	sous sous dossier 51
dossier parent :/F	dossier 8	sous dossier 50	sous sous dossier 52
dossier parent :/F	dossier 8	sous dossier 50	sous sous dossier 53
dossier parent :/F	dossier 8	sous dossier 50	sous sous dossier 54
dossier parent :/F	dossier 8	sous dossier 50	sous sous dossier 55
dossier parent :/F	dossier 8	sous dossier 50	sous sous dossier 56
dossier parent :/F	dossier 8	sous dossier 50	sous sous dossier 57
dossier parent :/F	dossier 8	sous dossier 50	sous sous dossier 58
dossier parent :/F	dossier 8	doc spécifique 43	(vide)
dossier parent :/F	dossier 8	doc spécifique 44	(vide)
dossier parent :/F	dossier 8	doc spécifique 45	(vide)
dossier parent :/F	dossier 8	doc spécifique 46	(vide)
dossier parent :/F	dossier 8	doc spécifique 47	(vide)
dossier parent :/F	dossier 8	doc spécifique 48	(vide)
dossier parent :/F	dossier 10	sous dossier 10	sous sous dossier 11
dossier parent :/F	dossier 10	sous dossier 10	sous sous dossier 12
dossier parent :/F	dossier 10	sous dossier 10	sous sous dossier 13
dossier parent :/F	dossier 10	sous dossier 10	sous sous dossier 14
dossier parent :/F	dossier 10	sous dossier 10	sous sous dossier 15
dossier parent :/F	dossier 10	sous dossier 10	sous sous dossier 16
dossier parent :/F	dossier 10	sous dossier 10	sous sous dossier 17
dossier parent :/F	dossier 10	sous dossier 10	sous sous dossier 18
dossier parent :/F	dossier 10	sous dossier 10	sous sous dossier 19
dossier parent :/F	dossier 10	sous dossier 20	sous sous dossier 21
dossier parent :/F	dossier 10	sous dossier 20	sous sous dossier 22
dossier parent :/F	dossier 10	sous dossier 20	sous sous dossier 23
dossier parent :/F	dossier 10	sous dossier 20	sous sous dossier 24
dossier parent :/F	dossier 10	sous dossier 20	sous sous dossier 25
dossier parent :/F	dossier 10	sous dossier 20	sous sous dossier 26
dossier parent :/F	dossier 10	sous dossier 20	sous sous dossier 27
dossier parent :/F	dossier 10	sous dossier 20	sous sous dossier 28
dossier parent :/F	dossier 10	sous dossier 20	sous sous dossier 29
dossier parent :/F	dossier 10	sous dossier 30	sous sous dossier 31
dossier parent :/F	dossier 10	sous dossier 30	sous sous dossier 32
dossier parent :/F	dossier 10	sous dossier 30	sous sous dossier 33
dossier parent :/F	dossier 10	sous dossier 30	sous sous dossier 34
dossier parent :/F	dossier 10	sous dossier 30	sous sous dossier 35
dossier parent :/F	dossier 10	sous dossier 30	sous sous dossier 36
dossier parent :/F	dossier 10	sous dossier 30	sous sous dossier 37
dossier parent :/F	dossier 10	sous dossier 30	sous sous dossier 38
dossier parent :/F	dossier 10	sous dossier 30	sous sous dossier 39
dossier parent :/F	dossier 10	sous dossier 40	sous sous dossier 41
dossier parent :/F	dossier 10	sous dossier 40	sous sous dossier 42
dossier parent :/F	dossier 10	sous dossier 40	sous sous dossier 43
dossier parent :/F	dossier 10	sous dossier 40	sous sous dossier 44
dossier parent :/F	dossier 10	sous dossier 40	sous sous dossier 45
dossier parent :/F	dossier 10	sous dossier 40	sous sous dossier 46
dossier parent :/F	dossier 10	sous dossier 40	sous sous dossier 47
dossier parent :/F	dossier 10	sous dossier 40	sous sous dossier 48
dossier parent :/F	dossier 10	sous dossier 40	sous sous dossier 49
dossier parent :/F	dossier 10	sous dossier 50	sous sous dossier 51
dossier parent :/F	dossier 10	sous dossier 50	sous sous dossier 52
dossier parent :/F	dossier 10	sous dossier 50	sous sous dossier 53
dossier parent :/F	dossier 10	sous dossier 50	sous sous dossier 54
dossier parent :/F	dossier 10	sous dossier 50	sous sous dossier 55
dossier parent :/F	dossier 10	sous dossier 50	sous sous dossier 56
dossier parent :/F	dossier 10	sous dossier 50	sous sous dossier 57
dossier parent :/F	dossier 10	sous dossier 50	sous sous dossier 58
dossier parent :/F	dossier 10	doc spécifique 49	(vide)
dossier parent :/F	dossier 10	doc spécifique 50	(vide)
dossier parent :/F	dossier 10	doc spécifique 51	(vide)
dossier parent :/F	dossier 10	doc spécifique 52	(vide)
dossier parent :/F	dossier 10	doc spécifique 53	(vide)
dossier parent :/F	dossier 10	doc spécifique 54	(vide)
dossier parent :/F	dossier 11	sous dossier 10	sous sous dossier 11
dossier parent :/F	dossier 11	sous dossier 10	sous sous dossier 12
dossier parent :/F	dossier 11	sous dossier 10	sous sous dossier 13
dossier parent :/F	dossier 11	sous dossier 10	sous sous dossier 14
dossier parent :/F	dossier 11	sous dossier 10	sous sous dossier 15
dossier parent :/F	dossier 11	sous dossier 10	sous sous dossier 16
dossier parent :/F	dossier 11	sous dossier 10	sous sous dossier 17
dossier parent :/F	dossier 11	sous dossier 10	sous sous dossier 18
dossier parent :/F	dossier 11	sous dossier 10	sous sous dossier 19
dossier parent :/F	dossier 11	sous dossier 20	sous sous dossier 21
dossier parent :/F	dossier 11	sous dossier 20	sous sous dossier 22
dossier parent :/F	dossier 11	sous dossier 20	sous sous dossier 23
dossier parent :/F	dossier 11	sous dossier 20	sous sous dossier 24
dossier parent :/F	dossier 11	sous dossier 20	sous sous dossier 25
dossier parent :/F	dossier 11	sous dossier 20	sous sous dossier 26
dossier parent :/F	dossier 11	sous dossier 20	sous sous dossier 27
dossier parent :/F	dossier 11	sous dossier 20	sous sous dossier 28
dossier parent :/F	dossier 11	sous dossier 20	sous sous dossier 29
dossier parent :/F	dossier 11	sous dossier 30	sous sous dossier 31
dossier parent :/F	dossier 11	sous dossier 30	sous sous dossier 32
dossier parent :/F	dossier 11	sous dossier 30	sous sous dossier 33
dossier parent :/F	dossier 11	sous dossier 30	sous sous dossier 34
dossier parent :/F	dossier 11	sous dossier 30	sous sous dossier 35
dossier parent :/F	dossier 11	sous dossier 30	sous sous dossier 36
dossier parent :/F	dossier 11	sous dossier 30	sous sous dossier 37
dossier parent :/F	dossier 11	sous dossier 30	sous sous dossier 38
dossier parent :/F	dossier 11	sous dossier 30	sous sous dossier 39
dossier parent :/F	dossier 11	sous dossier 40	sous sous dossier 41
dossier parent :/F	dossier 11	sous dossier 40	sous sous dossier 42
dossier parent :/F	dossier 11	sous dossier 40	sous sous dossier 43
dossier parent :/F	dossier 11	sous dossier 40	sous sous dossier 44
dossier parent :/F	dossier 11	sous dossier 40	sous sous dossier 45
dossier parent :/F	dossier 11	sous dossier 40	sous sous dossier 46
dossier parent :/F	dossier 11	sous dossier 40	sous sous dossier 47
dossier parent :/F	dossier 11	sous dossier 40	sous sous dossier 48
dossier parent :/F	dossier 11	sous dossier 40	sous sous dossier 49
dossier parent :/F	dossier 11	sous dossier 50	sous sous dossier 51
dossier parent :/F	dossier 11	sous dossier 50	sous sous dossier 52
dossier parent :/F	dossier 11	sous dossier 50	sous sous dossier 53
dossier parent :/F	dossier 11	sous dossier 50	sous sous dossier 54
dossier parent :/F	dossier 11	sous dossier 50	sous sous dossier 55
dossier parent :/F	dossier 11	sous dossier 50	sous sous dossier 56
dossier parent :/F	dossier 11	sous dossier 50	sous sous dossier 57
dossier parent :/F	dossier 11	sous dossier 50	sous sous dossier 58
dossier parent :/F	dossier 11	doc spécifique 55	(vide)
dossier parent :/F	dossier 11	doc spécifique 56	(vide)
dossier parent :/F	dossier 11	doc spécifique 57	(vide)
dossier parent :/F	dossier 11	doc spécifique 58	(vide)
dossier parent :/F	dossier 11	doc spécifique 59	(vide)
dossier parent :/F	dossier 11	doc spécifique 60	(vide)

La macro qui ne fonctionne pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Arborescence()
    Dim FSO As Object, Dossier As Object
    Dim oWSS As Object, oGenvag As Object
    Dim CheminBureau As String, C As Range
    Dim wdApp As Object, pptApp As Object
    Dim wdDoc As Object, pptDoc As Object
    Set wdApp = CreateObject("Word.Application")
    Set pptApp = CreateObject("Powerpoint.Application")
    Set oWSS = CreateObject("WScript.Shell")
    CheminBureau = oWSS.SpecialFolders("Desktop")
    Set oWSS = Nothing
    Set FSO = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    Set Dossier = FSO.GetFolder(CheminBureau & "\F")
    If Not Dossier Is Nothing Then
        MsgBox "Le dossier F existe"
        Exit Sub
    End If
    MkDir CheminBureau & "\F"
    ChDir CheminBureau & "\F"
    For Each C In Range([A2], Cells(Rows.Count, 1).End(xlUp))
        ChDir CheminBureau & "\F"
        For i = 2 To 100
            If Cells(C.Row, i).Value = "" Then Exit For
 
            If Cells(C.Row, i + 1) <> "" And Cells(C.Row, i) <> Cells(C.Row - 1, i) Then
                MkDir CurDir & "\" & Cells(C.Row, i)
                ChDir CurDir & "\" & Cells(C.Row, i)
            Else
                ChDir CurDir & "\" & Cells(C.Row, i)
            End If
        Next i
    Next C
    On Error GoTo 0
    wdApp.Quit
    pptApp.Quit
End Sub

/// oui le dossier 9 est parti aux oubliettes
///et oui je suis une bille en VBA O

Fanny

**boisgontierjacques** · 28/01/2019, 18h01

Bonsoir,

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Dim ligne
Sub arborescence()
  Application.ScreenUpdating = False
  racine = ChoixDossier()          ' ou un répertoire C:\xxx e.g.
  If racine = "" Then Exit Sub
  Range("A3:E20000").ClearContents
  Range("A3").Select
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set dossier_racine = fs.GetFolder(racine)
  ligne = 3
  Lit_dossier dossier_racine, 1
End Sub
 
Sub Lit_dossier(ByRef dossier, ByVal niveau)
   Cells(ligne, 1) = String(4 * (niveau - 1), " ") & "[" & dossier.Path & "]"
   Cells(ligne, 2) = dossier.Size
   Cells(ligne, 4) = dossier.Files.Count
   Cells(ligne, 1).Interior.ColorIndex = 36
   ligne = ligne + 1
   For Each f In dossier.Files
     Cells(ligne, 1) = String(4 * niveau, " ") & f.Name
     Cells(ligne, 1).Interior.ColorIndex = xlNone
     Cells(ligne, 2) = f.Size
     Cells(ligne, 3) = f.DateLastModified
     Cells(ligne, 4) = f.Attributes
     If f.Attributes And vbHidden Then Cells(ligne, 5) = "Caché"
     ligne = ligne + 1
   Next
   For Each d In dossier.SubFolders
     Lit_dossier d, niveau + 1
   Next
End Sub
 
Function ChoixDossier()
    If Val(Application.Version) >= 10 Then
       With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count > 0 Then
           ChoixDossier = .SelectedItems(1)
        Else
           ChoixDossier = ""
        End If
       End With
     Else
       ChoixDossier = InputBox("Répertoire?")
     End If
End Function

Boisgontier

**funkyf** · 28/01/2019, 18h23

Bonsoir Boisgautier

Je vois qu'avec cette macro je peux extraire mes arborescences pour les mettre sur un Excel.
Je voudrait faire l'exacte opposé: créer des dossier à partir d'une arborescence Excel.
Vous avez une fonction magique pour ca aussi?
J'ai du mal à coordonner des fonctions et des procédures

Fanny

**boisgontierjacques** · 28/01/2019, 18h39

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
   chemin = chemin & RepNiv(i) & "\"
  Next i
  MkDir chemin
  For i = 1 To n
    If Tbl(i, 2) = parent Then CréeRep Tbl(i, 1), niv + 1
  Next i
End Sub

Boisgontier

**funkyf** · 07/02/2019, 13h33

Merci boisgontier

Je n'arrive pas à utiliser ton code, peut-etre que c'est par ce que c'est pour une construction d'arborescence complétement différente.
Je simplifie le problème. Si j'arrive à créer tous les sous sous dossier 1 a 60 je peux les redispatcher en copier collé rapidement dans des sous dossier.

Quand je les met donc tous sur ma colonne A2, les un à la suite des autres un certain nombre s'en créé, mais pas l'intégralité.
Sont créés mes sous sous dossier 11 à 14 puis les 21 à 24 etc, mais jamais je n'ai mes sous sous dossier 15 à 19, ni 25 à 29 etc.
J'utilise MkDir CurDir & "\" & Cells(C.Row, i) avec en prérequis For Each C In Range([A2], Cells(Rows.Count, 1).End(xlUp)).
Je ne comprends vraiment pas pourquoi VBA "saute des dossiers" avec ma fonction initiale.
Comment créer des dossier à partir d'une liste complète sur 1 colonne (A2 dans mon cas)? (avant même de partir dans des sous dossiers)

Fanny

**patricktoulon** · 07/02/2019, 14h14

bonjour en fonction du tableau que tu a donné et que j'ai recopier sur une feuille ca donne ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub create_arborescence()
    For lig = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        par = Right(Cells(lig, 1), 1) & ":"
        If Dir(par, vbdyrectory) = "" Then MkDir (par)
        For c = 2 To Cells(lig, 1).End(xlToRight).Column
            par = par & "\" & Cells(lig, c): Debug.Print disque & par
            If Dir(par, vbDirectory) = "" Then MkDir (par)
        Next
    Next
End Sub

Création arborescence dossiers [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager