Discussion :

[loic20h28]

bonjour à tous,
voila mon code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Trini]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et pas de "\" en fin non plus.

[loic20h28]

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

[loic20h28]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jean-paul lepetit]

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

utilises ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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