Menu

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

HibikiKun 95 Messages postés vendredi 30 avril 2004Date d'inscription 8 avril 2013 Dernière intervention - 30 oct. 2008 à 15:41 - 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 

10 réponses

Meilleure réponse
michel_m 15352 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 19 juin 2018 Dernière intervention - 10 nov. 2008 à 16:16
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

Merci michel_m 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 24285 internautes ce mois-ci

Meilleure réponse
HibikiKun 95 Messages postés vendredi 30 avril 2004Date d'inscription 8 avril 2013 Dernière intervention - 13 nov. 2008 à 11:59
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.

Merci HibikiKun 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 24285 internautes ce mois-ci

michel_m 15352 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 19 juin 2018 Dernière intervention - 30 oct. 2008 à 17:30
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
HibikiKun 95 Messages postés vendredi 30 avril 2004Date d'inscription 8 avril 2013 Dernière intervention - 10 nov. 2008 à 09:35
0
Merci
Merci Michel,

Mais ca veut dire quoi tout ca ?
Macro Excel ? Et si oui comment ca marche ?
eriiic 21676 Messages postés mardi 11 septembre 2007Date d'inscriptionContributeurStatut 19 juin 2018 Dernière intervention - 10 nov. 2008 à 10:35
0
Merci
Bonjour,

est-ce réellement un dossier (répertoire) que tu veux créer ou un fichier excel portant ce nom ?
HibikiKun 95 Messages postés vendredi 30 avril 2004Date d'inscription 8 avril 2013 Dernière intervention - 10 nov. 2008 à 15:55
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 21676 Messages postés mardi 11 septembre 2007Date d'inscriptionContributeurStatut 19 juin 2018 Dernière intervention - 10 juil. 2015 à 21:34
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 ! :)