Boucle pour création dossiers

[Hulk]

Hello tout le monde 🙂

Je n'arrive pas à faire une boucle avec ceci... 😡

Sub Test()
    
    MkDir ThisWorkbook.Path & "\" & Range("A2").Value
    MkDir ThisWorkbook.Path & "\" & Range("A3").Value
    MkDir ThisWorkbook.Path & "\" & Range("A4").Value
    MkDir ThisWorkbook.Path & "\" & Range("A5").Value
    MkDir ThisWorkbook.Path & "\" & Range("A6").Value

End Sub

Ni une simple boucle For, ni un For Each... Dingue ça..

Merci pour les pistes !

 

[Pierrot93]

Re : Boucle pour création dossiers

Bonjour Hulk🙂

ceci devrait fonctionner...

Dim i As Byte
For i = 2 To 6
    MkDir ThisWorkbook.Path & "\" & Range("A" & i).Value
Next i

edition : les noms dans les cellules doivent être valides pour des dossiers, et ceux-ci pas déjà créés...

bon après midi
@+

 

[Hulk]

Re : Boucle pour création dossiers

Slt,

Moi je faisais..

For i = 2 To 6
    MkDir ThisWorkbook.Path & "\" & Cells(i, 0).Value
Next i

Au lieu de

For i = 2 To 6
    MkDir ThisWorkbook.Path & "\" & Cells(i, 1).Value
Next i

Et sans penser à ta façon !

Pouaf la honte 😎

Merci Pierrot !