Création dossier suivant liste EXCELRésolu/Fermé

Question

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

HibikiKun · Accepted Answer

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.

michel_m · Answer

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 · Answer

Merci Michel,

Mais ca veut dire quoi tout ca ?
Macro Excel ? Et si oui comment ca marche ?

eriiic · Answer

Bonjour,

est-ce réellement un dossier (répertoire) que tu veux créer ou un fichier excel portant ce nom ?

HibikiKun · Answer

C'est bien un dossier (répertoire) que je veux créer :-)

michel_m · Answer

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

lrock · Answer

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

Création dossier suivant liste EXCEL

7 réponses

Discussions similaires

Newsletters