VBA Créer dossiers à partir de cellules Excel

Babayaga3001 Messages postés 13 Statut Membre -  
pilas31 Messages postés 1878 Statut Contributeur -
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

pilas31 Messages postés 1878 Statut Contributeur 646
 
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