creer des repertoire sous excel

[nabyl]

Bonjour je voulais utiliser une macro pour creer des repertoire avec excel

En fait j'ai un tableau excel avec 2 colonnes A et B et je veux pour chaque ligne creer un repertoire A et un sous repertoire B dans A

exple si mon tableau est comme ca :
a | b
aa | bb
aaa | bbb

j'obtiens 3 repertoires : a, aa et aaa avec a l'interieur respectivement un sous repertoire b (pour le premier) bb (pour le second) et bbb (pour le dernier)

je crois qu'il faut utiliser la fonction mkdir avec une double boucle ms je ne vois pas trop comment faire (je debute en vba excel)

si quelqu'un peut m'aider merci d'avance

 

[A_Binouze_Drinker_Among_Others]

un exemple pour donner une idée
en supposant que ta liste de répertoires commence en A2, et le sous répertoires en B2
Sub dd()
'MsgBox CurDir
For i = 2 To ActiveSheet.Range("A65536").End(xlUp).Row
If Dir(Cells(i, 1).Value, vbDirectory) = "" Then MkDir Cells(i, 1).Value
If Dir(Cells(i, 1).Value & "\" & Cells(i, 2).Value) = "" Then MkDir Cells(i, 1).Value & "\" & Cells(i, 2).Value
Next i
End Sub

 

[Cathy]

Salut Nabyl et le forum

par exemple, une p'tite macro du style :

repactif = ActiveWorkbook.Path

For lign = 1 To 3
rep = Range("A" & lign).Value
MkDir rep
sousrep = Range("B" & lign).Value
ChDir rep
MkDir sousrep
ChDir repactif
Next lign
End Sub

@+

C@thy

 

[nabyl]

Merci pour votre aide en bidouillant un peu j'ai reussi a faire ce que je voulais