Création dossier suivant liste EXCEL
Résolu/Fermé
HibikiKun
Efrancoue - 19 mai 2020 à 18:26
- Messages postés
- 95
- Date d'inscription
- vendredi 30 avril 2004
- Statut
- Membre
- Dernière intervention
- 8 avril 2013
Efrancoue - 19 mai 2020 à 18:26
A voir également:
- Créer des dossiers à partir d'une liste excel
- Créer dossier à partir liste excel - Meilleures réponses
- Créer des dossier à partir d'une liste excel - Meilleures réponses
- Création dossier suivant liste EXCEL ✓ - Forum - Excel
- Création automatique de dossiers à partir d'une liste dans Excel ✓ - Forum - Bureautique
- VBA Créer dossiers à partir de cellules Excel - Forum - Programmation
- Créer des dossiers automatiquement à partir d'une liste ? ✓ - Forum - Windows 8 / 8.1
- Création dossier et sous dossier a partir d'excel ✓ - Forum - Excel
8 réponses
HibikiKun
13 nov. 2008 à 11:59
- Messages postés
- 95
- Date d'inscription
- vendredi 30 avril 2004
- Statut
- Membre
- Dernière intervention
- 8 avril 2013
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.
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.
19 mai 2020 à 18:26