XL 2010 une macro magique ?

erwanhavre

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonjour erwanhavre,

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

VB:
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
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
499

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla