VBA Créer dossiers à partir de cellules Excel [Fermé]

Signaler
Messages postés
13
Date d'inscription
lundi 22 octobre 2012
Statut
Membre
Dernière intervention
25 novembre 2013
-
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
-
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

Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
605
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,
Messages postés
13
Date d'inscription
lundi 22 octobre 2012
Statut
Membre
Dernière intervention
25 novembre 2013

Génial, merci ! Ca marche parfaitement !
Messages postés
13
Date d'inscription
lundi 22 octobre 2012
Statut
Membre
Dernière intervention
25 novembre 2013

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
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
605
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,
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 !
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
605
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,
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 !
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
605
Je ne comprend pas.
Peut-être en nous mettant le classeur à disposition pourrait-on mieux voir.
Pour cela enlever toutes les données confidentielles et le déposer sur le site www.cjoint.com

Nous mettre ici le lien pour le télécharger

A+