Création dossier suivant liste EXCEL

Résolu/Fermé
HibikiKun Messages postés 95 Date d'inscription   Statut Membre Dernière intervention   -  
 Efrancoue -
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

7 réponses

HibikiKun Messages postés 95 Date d'inscription   Statut Membre Dernière intervention   19
 
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
Efrancoue
 
Merci ça marche super bien
0