Menu

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

Messages postés
95
Date d'inscription
vendredi 30 avril 2004
Dernière intervention
8 avril 2013
- - Dernière réponse :  lrock - 27 juil. 2015 à 10:00
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

Meilleure réponse
Messages postés
15605
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
21 janvier 2019
3577
1
Merci
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

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 56983 internautes nous ont dit merci ce mois-ci

Messages postés
95
Date d'inscription
vendredi 30 avril 2004
Dernière intervention
8 avril 2013
6
1
Merci
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.

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 56983 internautes nous ont dit merci ce mois-ci

Messages postés
15605
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
21 janvier 2019
3577
0
Merci
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
Messages postés
95
Date d'inscription
vendredi 30 avril 2004
Dernière intervention
8 avril 2013
6
0
Merci
Merci Michel,

Mais ca veut dire quoi tout ca ?
Macro Excel ? Et si oui comment ca marche ?
Messages postés
22294
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
20 janvier 2019
7143
0
Merci
Bonjour,

est-ce réellement un dossier (répertoire) que tu veux créer ou un fichier excel portant ce nom ?
Messages postés
95
Date d'inscription
vendredi 30 avril 2004
Dernière intervention
8 avril 2013
6
0
Merci
C'est bien un dossier (répertoire) que je veux créer :-)
0
Merci
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
eriiic
Messages postés
22294
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
20 janvier 2019
7143 -
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.
j'ai trouvé la source d'erreur qui était le fait d'avoir des : et des / dans mes noms de fichiers mais merci encore !
0
Merci
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 ! :)