Bonjour le Forum,
J'arrive a créer des répertoires avec le code ci-dessous, par contre j'ai une erreur si le répertoire est déjà créé, et je ne parviens pas a créer des sous répertoires (En colonne B).
Pouvez vous m'aider ??
J'arrive a créer des répertoires avec le code ci-dessous, par contre j'ai une erreur si le répertoire est déjà créé, et je ne parviens pas a créer des sous répertoires (En colonne B).
Pouvez vous m'aider ??
Code:
Sub CREERdossier()
Dim cell As Range
Dim chemin As String, NomRep
chemin = Range("D1")
For Each cell In Range("A4:A" & Range("A65536").End(xlUp).Row)
If cell <> "" Then
NomRep = cell
MkDir chemin & cell.Value
End If
Next
End Sub