Signaler

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

Posez votre question HibikiKun 95Messages postés vendredi 30 avril 2004Date d'inscription 8 avril 2013 Dernière intervention - Dernière réponse le 27 juil. 2015 à 10:00 par lrock
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
Utile
+1
plus moins
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
Cette réponse vous a-t-elle aidé ?  
Utile
+1
plus moins
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
Cette réponse vous a-t-elle aidé ?  
Utile
+0
plus moins
Merci Michel,

Mais ca veut dire quoi tout ca ?
Macro Excel ? Et si oui comment ca marche ?
Utile
+0
plus moins
Bonjour,

est-ce réellement un dossier (répertoire) que tu veux créer ou un fichier excel portant ce nom ?
Utile
+0
plus moins
C'est bien un dossier (répertoire) que je veux créer :-)
Utile
+0
plus moins
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.
Utile
+0
plus moins
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 21179Messages postés mardi 11 septembre 2007Date d'inscription ContributeurStatut 18 novembre 2017 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.
lrock- 27 juil. 2015 à 09:57
j'ai trouvé la source d'erreur qui était le fait d'avoir des : et des / dans mes noms de fichiers mais merci encore !
Utile
+0
plus moins
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 ! :)

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !