Création Dossiers / Sous dossiers / Sous sous dossier via liste

[Niko Las]

Bonjour à tous !

J'ai trouvé une macro sur le site, pour la création de dossiers via liste excel, c'est parfait, mais :

Je voudrai y apporter une modification, mais mes connaissances ne suffisent pas..

Voici le lien vers le fichier :

http://www.cjoint.com/c/FHeon6RElcS

Voici la macro :

Sub CreationRepertoires()
On Error Resume Next
i = 1
While Cells(i, 1).Value <> ""
MkDir ActiveWorkbook.Path & "\" & Cells(i, 1).Value
For j = 2 To 7
MkDir ActiveWorkbook.Path & "\" & Cells(i, 1).Value & "\" & Cells(i, j).Value
Next j
i = i + 1
Wend
End Sub


Ici nous avons Dossier / Sous Dossiers

Je voudrais Dossier / Sous Dossiers / Sous Sous Dossiers..

Est ce possible ?

Merci d'avance !

 

[Jacky67]

Bonjour à tous !

Je voudrais Dossier / Sous Dossiers / Sous Sous Dossiers..
Est ce possible ?
Merci d'avance !

Bonjour,

Avec le nom des 'sous dossiers' en A2;An
Celui des 'sous sous dossiers' en B2:Bn
Ceci crée a partir du dossiers de ce classeur un sous dossier dont le nom figure en colonne A, puis dans ce dossier un second dossier ayant comme nom celui de la colonne B

Sub CreationRepertoires()
    Dim i As Long
    On Error Resume Next
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        MkDir ActiveWorkbook.Path & "\" & Cells(i, 1).Value & "\"
        MkDir ActiveWorkbook.Path & "\" & Cells(i, 1).Value & "\" & Cells(i, 2).Value
    Next
End Sub

Salutations
JJ

 

[Niko Las]

Merci Jacky !

Je suis nul en macro.. je n'ai pas réussir à faire fonctionner ce que tu m'as transmis.
Pourrais je abuser de ta bonté et te demander, si tu as quelques minutes, si tu peux me l'envoyer dans le fichier excel que j'ai mis en PJ ? :/

Merci d'avance..

 

[Jacky67]

Merci Jacky !

Je suis nul en macro.. je n'ai pas réussir à faire fonctionner ce que tu m'as transmis.
Pourrais je abuser de ta bonté et te demander, si tu as quelques minutes, si tu peux me l'envoyer dans le fichier excel que j'ai mis en PJ ? :/

Merci d'avance..

Re..
Regarde la PJ
Salutations
JJ

 

[Niko Las]

Merci !
Mais ce n'est pas tout à fait ce que je recherche à faire. Je vais essayer de "dessiner" ce que je cherche à faire :

1. Dossier 1
   1. Sous dossier 1
   2. Sous dossier 2
      1. Sous sous dossier 1
      2. Sous sous dossier 2
   3. Sous dossier 3
      1. Sous sous dossier 1
      2. Sous sous dossier 2
   4. Sous dossier 4
   5. Sous dossier 5
      1. Sous sous dossier 1
      2. Sous sous dossier 2
      3. Sous sous dossier 3
      4. Sous sous dossier 4
      5. Sous sous dossier 5
      6. Sous sous dossier 6
   6. Sous dossier 6
      1. Sous sous dossier 1
      2. Sous sous dossier 2
      3. Sous sous dossier 3
      4. Sous sous dossier 4
      5. Sous sous dossier 5
      6. Sous sous dossier 6

Voilà l'arborescence que je veux créer.
Et je veux donc créer une centaine de "Dossier 1" à partir d'une liste (j'ai des noms pour chaque item)

J'ai tenté de modifier la macro dans ce sens, sans succès..

 

[Jacky67]

Mais ce n'est pas tout à fait ce que je recherche à faire. Je vais essayer de "dessiner" ce que je cherche à faire :
.

RE..
Ok Regarde la PJ cela devrait faire
JJ

 

[Niko Las]

Merci pour ton retour rapide !

Effectivement, ça marche bien, les sous sous dossiers sont parfaits !

Par contre, je n'arrive pas à créer la centaine de dossiers (selon la liste dispo en "Feuil1").

Chaque dossier aura donc un nom différent, mais dedans, les sous dossiers seront identiques.

EDIT de 10h21 :

Je modifie la PJ, car dans ma liste de noms pour les dossiers, il y avait des sauts de lignes, je pense que ça causait des problèmes. Donc voici à la PJ Rev 2.
J'essaye de bosser dessus, mais je n'arrive toujours pas à m'approcher de ce que je cherche à faire..

 

[Niko Las]

Jacky, un grand GRAND merci à toi !

J'ai continuer mon investigation (je n'y connais strictement rien en macro..)
Et donc, en bidouillant au hasard, en essayant de donner une certaine "logique" au chinois que représente la macro : BINGO !
Ca marche !

C'est certainement pas orthodoxe, mais ça marche !

Je te laisse jeter un oeil pour me dire ce que tu en penses !

Bonne journée à toi !

 

[Jacky67]

Jacky, un grand GRAND merci à toi !

C'est certainement pas orthodoxe, mais ça marche !
Je te laisse jeter un oeil pour me dire ce que tu en penses !

Re...
Bravo, tu as obtenu ce que tu souhaitais faire.
Un peu plus 'orthodoxe' comme tu dis en pj

Bon courage
JJ

 

[Bedo Cool-Man]

Re...
Bravo, tu as obtenu ce que tu souhaitais faire.
Un peu plus 'orthodoxe' comme tu dis en pj

Bon courage
JJ

Salut Jacky,
peux tu mettre tout en colonne et arriver le niveau jusqu'à 4 ou 6?

Merci deja pour ton aide,
Bedo

 

[kiki29]

Salut, pour info, si curieux voir ici

 

[Bedo Cool-Man]

Salut, pour info, si curieux voir ici

Merci Kiki pour ta reponse rapide, mais je cherche à le faire en utilisant une liste excel pour mettre les noms des dossiers et sous dossiers.

 

[Bedo Cool-Man]

Salut, pour info, si curieux voir ici

Je voudrais creer les dossier avec une arboresence comme celle ci:

Niveau 1	Niveau 2	Niveau 3	Niveau 4	Niveau 5	Niveau 6
C:\MonRep
	1 - Dossier A
		1 - sous dossier A
		2 - sous dossier A
			1 - sous sous dossier A
			2 - sous sous dossier A
	2 - Dossier B
		1 - sous dossier B
	3 - Dossier C
	4 - Dossier D
		1 - sous dossier D
		2 - sous dossier D
			1 - sous sous dossier D
			2 - sous sous dossier D
				1 - sous sous sous dossier D
					1 - sous sous sous sous dossier D
					2 - sous sous sous sous dossier D
				2 - sous sous dossier D

 

[kiki29]

Re, il te suffit de créer ces chaines et de les passer en paramètre à la fonction idoine.

Option Explicit

Sub Tst()
Dim sDoss As String
    sDoss = "C:\Essai1\Essai2\Essai3\Essai4\Essai5\Essai6\Essai7\Essai8\Essai9\Essai10"
    CreationDossier sDoss
End Sub

Private Function CreationDossier(sDossier As String)
Dim sChaine As String
    sChaine = Environ("comspec") & " /c mkdir " & sDossier
    Shell sChaine, 0
End Function

 

[Bedo Cool-Man]

Re, il te suffit de créer ces chaines et de les passer en paramètre à la fonction idoine.

Option Explicit

Sub Tst()
Dim sDoss As String
    sDoss = "C:\Essai1\Essai2\Essai3\Essai4\Essai5\Essai6\Essai7\Essai8\Essai9\Essai10"
    CreationDossier sDoss
End Sub

Private Function CreationDossier(sDossier As String)
Dim sChaine As String
    sChaine = Environ("comspec") & " /c mkdir " & sDossier
    Shell sChaine, 0
End Function

J'ai essaye mais rien ne se passe. aucun dossier n'est cree