Création de sous repertoire

[jjjerome]

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 ??

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

 

[Efgé]

Re : Création de sous repertoire

Re,
J'ai modifié le fichier de mon post précédent pour éviter les chemins n'existant pas...
Cordialement

 

[jjjerome]

Re : Création de sous repertoire

Bonjour Efgé, il doit manquer le fichier joint dANS ton dernier post, en esperant que ce ne soit pas rop tard...

 

[Efgé]

Re : Création de sous repertoire

Bonjour jjjeromen
Je l'avais laissé dans le post 14.
Cordialement

 

[jjjerome]

Re : Création de sous repertoire

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 !!

 

[Efgé]

Re : Création de sous repertoire

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

 

[jjjerome]

Re : Création de sous repertoire

ça y est, c'était la dernière sur ce post !! Merci

Par contre, j'ai créé d'autres posts pour d'autres problèmes.... Au cas ou