Créer un répertoire à partir d'un fichier Excel

Bonjour,

Encore une fois, j'ai besoin de votre aide !

Je dois créer un nouveau répertoire (dans c:\Temp) à partir d'un fichier Excel à 6 niveaux de dossiers (colonnes A à F), pour environ 180 lignes.

J'ai beau fouiller sur le net, je ne trouve pas du tout de macro adaptée à mon besoin.

J'espère que vous pourrez m'apporter votre aide, en pièce-jointe un modèle de mon fichier.

Bonjour,

je ne suis pas d'une grande aide mais la ligne de code que j'utilise pour la création/suppression d'un dossier est :

'Crée le dossier "Temporaire"
MkDir ("C:\temp\Temporaire") 

'Supprime le dossier "Temporaire"
Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")
FS.Deletefolder "C:\temp\Temporaire"

Si ça peut aider ...

RemBabar

Bonjour,

l'urgent est fait, l'impossible est en cours pour les miracles prévoir un délai

Voir la charte

P.

Bonjour Rembabar,

merci pour ta proposition, j'y ai pensé mais cela me ferait trop de manip à faire ...

je cherche une technique plus globale

Mais encore merci

Bonjour patrick1957,

Tu as bien raison ! désolée pour la notion d'urgence ... j'admet que cela fait un petit moment que je bute sur la construction de cette macro ... du coup je stresse un peu !

Merci pour la piqûre de rappel

Bonjour,

Pas de ligne vide comme en 10 !

Sub test()
    Dim datas, chemin As String
    Dim constit(1 To 6), lig As Long, col As Long, i As Long
    Dim nb1 As Long, nb2 As Long
    datas = [A1].CurrentRegion
    For lig = 2 To UBound(datas)
        For col = 1 To UBound(datas, 2)
            If datas(lig, col) <> "" Then
                constit(col) = datas(lig, col)
                chemin = ""
                For i = 1 To col
                    chemin = chemin & "\" & constit(i)
                Next i
                chemin = Mid(chemin, 2) & "\"
                nb1 = nb1 + 1
                If Dir(chemin, vbDirectory) = "" Then MkDir (chemin): nb2 = nb2 + 1
                Exit For
            End If
        Next col
    Next lig
    MsgBox nb1 & " répertoires, " & nb2 & " créés"
End Sub

eric

Merci Eric !

C'est tout à fait la macro qu'il me fallait, elle est parfaite