VBA Créer dossiers à partir de cellules Excel

Bonjour,

Je me sens vraiment bête de poser cette question, mais j'ai beau éplucher les sites web, je n'y arrive pas...

Je possède une liste de cellules avec des noms différents et souhaite enregistrer un dossier au nom de chaque cellule (de A1 à A33), sur la feuille "Feuil1". Le dossier dans lequel je souhaite enregistrer ces sous-dossiers se nomme "C:\Users\Marine\Dropbox".

Pouvez-vous m'indiquer la marche à suivre SVP ?

Mille merci !

Marine

7 réponses

  1. Contributeur
    Bonjour,

    Voici une macro qui doit fonctionner :
    Sub Creer_Dossiers()
    Dim ligne As Integer
    ChDir "C:\Users\Marine\Dropbox"
    For ligne = 1 To 33
    MkDir Sheets("Feuil1").Cells(ligne, 1).Value
    Next ligne
    End Sub


    Cordialement,
    0