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
ha Ok, je ne savais pas que c'était possible. Sinon est possible de n epas avoir accès au débogage et pouvoir uniquement faire fin pour modifier le chemin ?
Sinon, ce n'est pas bien grave, c'est déjà parfait !!
Bonjour jjjerome, Ton dernier post m'a inquiété, et effectivement, je m'étais emmêlé les pinceaux. Désolé. Une (dernière ? ) version. Le chemin d'origine doit être indiqué en D4 de la feuille1. Cordialement