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
A voir également:

7 réponses

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