VBA Créer dossiers à partir de cellules Excel

Fermé
Babayaga3001 Messages postés 13 Date d'inscription lundi 22 octobre 2012 Statut Membre Dernière intervention 25 novembre 2013 - 28 oct. 2013 à 11:05
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 8 janv. 2014 à 17:37
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
A voir également:

7 réponses

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
Modifié par pilas31 le 28/10/2013 à 18:53
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