XL 2013 Ajouter des dossiers dans une arborescence

[Jacques25]

Bonjour à tous,

Après quelques recherches sur le forum je m'en remets à vous. J'ai une arborescence de 500 à 600 dossiers tous construit de la même manière (Dossier et Titre sont des dossiers et dans chaque dossier nommé titre dans l'exemple se trouve des fichiers) :
Dossier A
01 titre 1
02 titre 2
03 titre 3
Dossier B
01 titre 1
02 titre 2
03 titre 3
Dossier C
01 titre 1
02 titre 2
03 titre 3
...

Ma question :
Dans mes 5 ou 600 dossiers (A, B, C...) je souhaiterai rajouter 1 dossier vide nommé 04 titre 4.

Pensez vous que c'est faisable?
et la question d'après vous vous en doutez : si oui comment fait on?

Merci d'avance de votre aide.

Jack

 

[Dydou76]

bonsoir,

j'ai un p'tit souci.
dans mon programme j'ai un txbox qui demande dans quel dossier enregistrer la feuille et si se dossier n'existe pas il le créé.
jusque là ça marche tres bien, mais si se dossier existe dejas j'aimerai qu'il l'enregistre dans ce dossier deja existant mais il ne le fait pas
voila mon code:
NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier")
CheminDossier = "C:\Users\*********\Documents\***\Sauvegarde\" & NomDossier & "\"
If Dir(CheminDossier, vbDirectory) <> vbNullString Then
Else
MkDir (CheminDossier)

Merci pour votre aide