VBA Créer dossiers à partir de cellules Excel

Question

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

pilas31 · Answer

Bonjour,

Voici une macro qui doit fonctionner :
Sub Creer_Dossiers()Dim ligne As IntegerChDir "C:\Users\Marine\Dropbox"For ligne = 1 To 33MkDir Sheets("Feuil1").Cells(ligne, 1).ValueNext ligneEnd Sub 
 
Cordialement,

Babayaga3001 · Answer

Génial, merci ! Ca marche parfaitement !

Babayaga3001 · Answer

Bonjour à nouveau,

J'ai essayé de reproduire la même chose sur un autre document Excel - sur la page se nommant également "Feuil1", mais le code ne marche pas cette fois, je reçois le message d'erreur suivant :
"Erreur d'exécution '75':
Erreur d'accès Chemin/Fichier"

lorsque je clique sur "Débogage", la ligne suivante est pointée du doigt :
"MkDir Sheets("Feuil1").Cells(ligne, 1).Value"

Je ne comprends pas où est le problème. Ce serait vraiment gentil de m'aider.

Bonne journée et merci,

Marine

pilas31 · Answer

Bonjour,

Je suppose qu'il y a bien dans la colonne 1 les noms des répertoires à créer.
Si c'est bien le cas alors je pense que cette erreur se produit parce que l'un des répertoires à créer existe déjà.

Pour savoir lequel, il suffit de déplacer le pointeur de la souris sur la variable "ligne" après avoir cliqué sur "débogage". Une petite bulle va s'afficher avec "ligne=xx"

La valeur xx qui s'affiche est la ligne qui pose problème

A vérifier.
 
Cordialement,

Babayaga3001 · Answer

Merci pour ton aide et désolée pour le délai. Il y a effectivement problème sur la ligne 15, mais je ne comprends pas pourquoi. Surtout, j'ai changé de classeur Excel et je crois que ma  macro continue de faire référence au même classeur et crée les dossiers provenant de celui que je n'utilise plus (même si je supprime la macro et en crée une nouvelle identique). Qu'en penses-tu ?

Merci pour ton aide et bonne année 2014 !

pilas31 · Answer

Bonjour et bonne année également,

Lorsque la macro s'exécute, elle parcours la feuille active donc si tu es positionné sur la feuille qui contient la liste des répertoires à créer, il n'y aucune raison qu'elle aille chercher l'ancien classeur.
Par ailleurs le chemin des dossiers est donné par l'instruction suivante :
ChDir "C:\Users\Marine\Dropbox"

Il faut vérifier que c'est bien le bon chemin.
 
Cordialement,

Babayaga3001 · Answer

Bonjour et merci !

Malheureusement j'ai bien vérifié le chemin, c'est le bon. D'ailleurs des dossiers de l'ancien classeur sont bien créés dans le bon dossier.

Tant pis ; merci pour ton aide !

VBA Créer dossiers à partir de cellules Excel

7 réponses

Votre réponse

Discussions similaires