Création dossier suivant liste EXCEL [Résolu/Fermé]

Signaler
Messages postés
95
Date d'inscription
vendredi 30 avril 2004
Statut
Membre
Dernière intervention
8 avril 2013
 -
 Efrancoue -
Bonjour,

J'ai fais quelques recherches sous google mais sans succès.
En gros :
J'ai un tableau Excel avec une seule colonne et environ 150 Lignes dans chaque case il y a un nom.
Et j'aimerais créer un dossier par case ayant pour nom le contenu de la case donc environ 150 cases.

Si quelqu'un avait une idée pour automatiser tout ca, je lui en serais très reconnaissant.

Merci
Afficher la suite

8 réponses

Réponse 1 / 8
Messages postés
95
Date d'inscription
vendredi 30 avril 2004
Statut
Membre
Dernière intervention
8 avril 2013
 10
Merci ca marche !!

Juste du faire une petite modif :

Sub créer_dossiers()
On Error Resume Next
Dim lig As Byte, cptr As Byte
lig = Range("A65536").End(xlUp).Row
For cptr = 1 To lig
MkDir "C:\dossiers"
MkDir "C:\dossiers\" & Cells(cptr, 1)
Next
End Sub

Sinon il ne savait pas où les créer.
Merci
5
Merci

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez Comment Ça Marche

CCM 61857 internautes nous ont dit merci ce mois-ci

Signaler

Merci ça marche super bien
Réponse 2 / 8
Messages postés
16171
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
9 juillet 2020
 2 989
Bonjour,

tu fais un copier de la macro

dans Xexcel, tu fais Alt+F11 et tu arrives dans VBA

S'il ny a que du gris sous les barres d'outils ou moins dans la fen^tre de droite, tu fais CTrl+R (ou insertion module)

Tu fais un coller

Tu retournes dans Excel: dans outils-personnaliser- tu coches "formulaires puis fermer
tu cliques sur le bouton et tu le dessines; tu l'affecte à la macro

dans XL<2007, dans outils-macros-sécurité tu coches niveau moyen ou faible

Voili, voilou
Réponse 3 / 8
Messages postés
16171
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
9 juillet 2020
 2 989
Bonjour,

Sub créer_dossiers()
Dim lig As Byte, cptr As Byte
lig = Range("A65536").End(xlUp).Row
For cptr = 1 To lig
MkDir Cells(cptr, 1)
Next
End Sub
Réponse 4 / 8
Messages postés
95
Date d'inscription
vendredi 30 avril 2004
Statut
Membre
Dernière intervention
8 avril 2013
 10
Merci Michel,

Mais ca veut dire quoi tout ca ?
Macro Excel ? Et si oui comment ca marche ?
Réponse 5 / 8
Messages postés
23380
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 juillet 2020
 6 231
Bonjour,

est-ce réellement un dossier (répertoire) que tu veux créer ou un fichier excel portant ce nom ?
Réponse 6 / 8
Messages postés
95
Date d'inscription
vendredi 30 avril 2004
Statut
Membre
Dernière intervention
8 avril 2013
 10
C'est bien un dossier (répertoire) que je veux créer :-)
Réponse 7 / 8

bonjour à tous,

Lorsque que je le fais (180 dossiers à créer) il ne m'en crée que 130 et lorsque que je refait la démarche pour les manquants dans une autre feuille ca ne marche pas,
Auriez vous des solutions vis a vis de ca ?

Merci d'avance
Signaler
Messages postés
23380
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 juillet 2020
 6 231
Bonjour,

Lorsque que je le fais
Lorsque tu fais quoi ? Il y a plusieurs propositions...
Et ne met pas On Error Resume Next, ça te permettra d'avoir les erreurs et d'analyser le pourquoi.
eric.
Signaler

j'ai trouvé la source d'erreur qui était le fait d'avoir des : et des / dans mes noms de fichiers mais merci encore !
Réponse 8 / 8

Bonjour à tous,

Encore un petit problèmes, je voudrais générer des dossiers ayant juste des numéros comme noms (éventuellement de la forme 1 , 2 , 3 , ou 1. , 2. , 3. ...) mais lorsque je lance la macro, celle ci zappe l'étape de création de fichiers (vérification faite avec l'exécution pas à pas détaillée de Excel VBA)

Merci d'avance pour votre aide ! :)
Posez votre question