creer des repertoire sous excel

  • Initiateur de la discussion nabyl
  • Date de début
N

nabyl

Guest
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

A_Binouze_Drinker_Among_Others

Guest
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
 
C

Cathy

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 971
Membres
101 852
dernier inscrit
dthi16088