VBA : Sauvegarder des dossiers via un button click

Bonjour à tous,

Je souhaiterais sauvegarder un dossier dans lequel 8 sous-dossiers seront enregistrés.

Le problème que je rencontre est concernant le nom du dossier de tête, j'aimerais qu'il prenne la valeur des 6 premiers caractères d'un textbox préalablement rempli.

Voici le code que j'ai écrit jusqu'à mtn :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

ChDrive ("J") ChDir ("\A\B\C\D") MkDir (Left(TextBox1.Value, 6)) 'Nom du répertoire à sauvegarder   ChDir (Left(TextBox1.Value, 6)) MkDir ("00") MkDir ("01") MkDir ("02") MkDir ("03") MkDir ("04") MkDir ("05") MkDir ("06") MkDir ("07")

---

Cependant, ça me renvoie une erreur. Pouvez-vous m'aider svp ?

D'avance merci

ChDrive n'aide pas vraiment.
ChDir doit mentionner le chemin en partant depuis le nom du disque, donc "J:\A\..."
Idem pour les MkDir, il faut donner le chemin complet depuis le nom du disque.
Qq chose de ce genre devrait fonctionner (non testé)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test() Dim sDir As String sDir = "J:\A\B\C\D" If Len(Dir(sDir, vbDirectory)) = 0 Then MsgBox "Le dossier " & sDir & " n'existe pas!" Else MkDir sDir & "\00" MkDir sDir & "\01" MkDir sDir & "\02" '--- etc End If End Sub

---

Bonne continuation.

la fonction mkdir il lui faut le chemin complet de tes sous dossier

Code:

---

1 2 3 4 5 6 7

ChDrive ("J") ChDir ("\A\B\C\D") ' MkDir (Left(TextBox1.Value, 6)) 'Nom du répertoire à sauvegarder 'ChDir (Left(TextBox1.Value, 6)) MkDir (lettredisque &":" & "\A\B\C\D\" & Left(TextBox1.Value, 6)) etc...

---