création d'un dossier en VBA

bonjour à tous,
voila mon code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub créer_dossier_Click() On Error GoTo Err_créer_dossier_Click   Dim MyDate   MyDate = "X:\Comptes Utilisateurs\stagebeluc\Loïc\archive\MAJ_" & Date & "\" MkDir MyDate ' Name "X:\Comptes Utilisateurs\stagebeluc\Loïc\travail Excel\DOCQUEST.xls" As "X:\Comptes Utilisateurs\stagebeluc\Loïc\DOCQUEST.xls"   Exit_créer_dossier_Click: Exit Sub   Err_créer_dossier_Click: MsgBox err.Description Resume Exit_créer_dossier_Click   End Sub

---

mon problème c'est qu'il ne fait rien c'est à dire que le dossier MAJ_[DATE]ne se cré pas.
MyDate est une variable.
DATE est la fonction qui permet d'avoir la date actuelle.
MkDir est la commande pour créer un dossier.
Donc depuis hier j'essaye de résoudre mon problème mais malheureusement je n'y arrive pas.
Si quelqu'un y voit un défaut ou à une solution pour régler mon problème, qu'il fasse signe s'il vous plait.
Merci d'avance!!

Bonjour,

c'est le format de la date qui pose problème.
utilise plutot ce format :

Code:

---

1 2	MyDate = "C:\Temp\MAJ_" & Format(Date, "yyyy_mm_dd")

---

et pas de "\" en fin non plus.

ok, je vien justement de trouver le pourquoi au problème mais je savait pas comment le résoudre, je vais essayer ta manière et je te tiens au courant, merci!!

Salut,
c'est le format de la date qui pose problème avec les /

utilises ceci

Code:

---

MyDate = "X:\Comptes Utilisateurs\stagebeluc\Loïc\archive\MAJ_" & Format(Date, "dd_mm_yyyy") & "\"

---

voila, je vien d'essayer, c'est bon, ça fonctionne, il fallait juste que je modifie ton format car je ne voulais pas l'année au début mais à la fin, idem pour le jour.
Merci beaucoup!!
voici le résultat :

Code:

---

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

Private Sub créer_dossier_Click() On Error GoTo Err_créer_dossier_Click   Dim MyDate MyDate = "X:\Comptes Utilisateurs\stagebeluc\Loïc\archive\MAJ_" & Format(Date, "dd-mm-yyyy") MkDir MyDate   Exit_créer_dossier_Click: Exit Sub   Err_créer_dossier_Click: MsgBox err.Description Resume Exit_créer_dossier_Click   End Sub

---