XL 2010 une macro magique ?

[erwanhavre]

Bonjour à tous
J’ai un petit projet sur lequel j’ai besoin d’un coup de main svp

L’idée : je pars d’une feuille Excel "matrice" dans lequel j’insère une donnée dans la cellule a1

J’aimerais à l’aide d’une macro créer un dossier dans lequel le fichier matrice portera le nom noté en a1 et dans ce même dossier créer des dossiers vides :

1 portant le nom avant et l’autre dossier portant le nom après puis revenir sur la matrice

pouvez-vous m’aider en tout cas merci

 

[Lone-wolf]

Bonjour erwanhavre,

En A1 le dossier , de B2 à B4 les sous-dossiers.

Option Explicit

Sub créer_dossiers()
Dim chemin As String, nom As String
Dim lig As Long, i As Long

    With Feuil1
        nom = .Range("a1").Value
        lig = .Cells(Rows.Count, 2).End(xlUp).Row
        ' chemin à modifier
        chemin = ThisWorkbook.Path & "\" & nom

        MkDir chemin

        For i = 2 To lig
            MkDir chemin & "\" & .Cells(i, 2)
        Next
    End With
End Sub

 

[erwanhavre]

top il me manque juste la copie du fichier excel portant le nom en a1
merciii

 

[erwanhavre]

Bonjour Lone-wolf
ce n'est pas faisable ?