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 !

 

[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

Ce code semble creer plusieurs niveaux de sous dossiers mais avec un seul dossier à chaque fois. Moi J'aimerais pouvoir creer des dossiers ayant plusieurs sous dossiers et certains sous dossiers pourraient avoir plusieur sous sous dossiers et ainsi de suite...
Merci

 

[kiki29]

Re, peut-être ici ? En attendant un retour de ta part avant de poster les applis.

 

[kiki29]

Salut, merci qui ? merci Jacques !