Bonjour à tous,

J'ai un problème avec ce bout de code qui sert à sauvegarder mon fichier. Il créer cependant des dossiers si ils n'ont pas été fait. (Dossier Par année et Dossier par mois, le fichier aura le nom du jour)
Je sais ce qui bloque, c'est la ligne:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dossier = "Documents and Settings\x_tlevent\Mes documents\Enregistrer2\" & Format(Date, "yyyy") & "\" & Format(Date, "mm-yyyy")
et plus particulièrement ce passage (car j'ai essayé en marquant "\Test" et ça fonctionne):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
" & Format(Date, "yyyy") & "\" & Format(Date, "mm-yyyy")

Voici mon code dans sa globalité:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Sauvegarde()
Dim Dossier As String, Fichier As String
 
'Mémorise et vérifie les noms de dossier et fichier
On Error GoTo CreerDossier
 
With ActiveSheet
    Dossier = "Documents and Settings\x_tlevent\Mes documents\Enregistrer2\" & Format(Date, "yyyy") & "\" & Format(Date, "mm-yyyy")
    Fichier = "FUF " & Format(Date, "dd-mm-yyyy")
End With
    If Trim(Dossier) = "" Then
    Exit Sub
    End If
 
    If Trim(Fichier) = "" Then
    Exit Sub
    End If
 
CreerDossier:
 
If Err.Number = 1004 Then
 
'Création du dossier
 
    MkDir "C:\" & Dossier
 
End If
 
'Sauvegarde
 
 
 
Application.DisplayAlerts = False
ThisWorkbook.SaveAs "C:\" & Dossier & "\" & Fichier & ".xls "
Application.DisplayAlerts = True
MsgBox ("Votre fichier a bien été enregistré")
 
 
Exit Sub
 
 
 
End Sub
Merci de votre aide,