Création dossier suivant liste EXCEL

Résolu/Fermé
HibikiKun
Messages postés
95
Date d'inscription
vendredi 30 avril 2004
Statut
Membre
Dernière intervention
8 avril 2013
- 30 oct. 2008 à 15:41
 Efrancoue - 19 mai 2020 à 18:26
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

8 réponses

HibikiKun
Messages postés
95
Date d'inscription
vendredi 30 avril 2004
Statut
Membre
Dernière intervention
8 avril 2013
18
13 nov. 2008 à 11:59
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.
12
Merci ça marche super bien
0