Utiliser Mkdir a partir de plusieur cellules

[tchangy71]

Bonjour,
Je souhaite utiliser la fonction Mkdir pour créer mes dossier selon une arborescence excel.
Ainsi j'ai en I5 le début de mon cheminement et en D6 la fin !!
J'ai essayé cela :
For Each d In Range("D6")
MkDir Line(Range("I5")) & d.Value
Next d
Mais, cela va de soi, ça ne marche pas !!
Une idée ???
Merci d'avance,
Philippe

 

[MJ13]

Re : Utiliser Mkdir a partir de plusieur cellules

Bonjour Tchang

Je te conseille ce lien:

https://www.excel-downloads.com/threads/creer-dossier-enregistrer-dedans.110203/

 

[tchangy71]

Re : Utiliser Mkdir a partir de plusieur cellules

Je n'arrive pas à l'adapter pour mon cas !
Car en faite je dois l'insérer dans une boucle et il s'agit bien d'aller chercher le texte dans une cellule, et le texte correspond au cheminement d'enregistrement. Cellule qui, elle aussi, est variable suivant les éléments indiqués dans une d'autres cellules ! ^^
Voila !!
Une idée ??

 

[tchangy71]

Re : Utiliser Mkdir a partir de plusieur cellules

Voila j'ai fais quelque essaies :
Sub Tst()
Dim Rep As String, b As String, a As String
a = 6
While Cells(a, 4) <> ""
Rep = Cells(a - 1, 9)
b = Cells(a, 4)
MkDir Rep & b
a = a + 1
Wend
End Sub
je pense en être pas loin mais !!
Quelqu'un aurait un petit conseil a me donner ^^
Merci.