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

Niko Las · 4 Août 2016

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 · 4 Août 2016

Niko Las à dit:
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

Code:

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 · 4 Août 2016

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 · 4 Août 2016

Niko Las à dit:
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 · 4 Août 2016

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

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 · 4 Août 2016

Niko Las à dit:
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 · 5 Août 2016

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 · 5 Août 2016

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 · 5 Août 2016

Niko Las à dit:
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 · 27 Mai 2020

Jacky67 à dit:
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 · 27 Mai 2020

Salut, pour info, si curieux voir ici

Bedo Cool-Man · 27 Mai 2020

kiki29 à dit:
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 · 27 Mai 2020

kiki29 à dit:
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 · 27 Mai 2020

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

VB:

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 · 27 Mai 2020

kiki29 à dit:

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

VB:

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

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

Niko Las

XLDnaute Nouveau

Jacky67

XLDnaute Barbatruc

Niko Las

XLDnaute Nouveau

Jacky67

XLDnaute Barbatruc

Pièces jointes

Niko Las

XLDnaute Nouveau

Jacky67

XLDnaute Barbatruc

Pièces jointes

Niko Las

XLDnaute Nouveau

Pièces jointes

Niko Las

XLDnaute Nouveau

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

Bedo Cool-Man

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

Bedo Cool-Man

XLDnaute Nouveau

Bedo Cool-Man

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

Bedo Cool-Man

XLDnaute Nouveau

Discussions similaires