Bonjour Le forum,
J'ai cette macro de fichier qui fonctionne au poil.
L'arborescence est du Typer "00 - BACKUP\2018\03 - MARS\2018.03.23"

Cela bug "Seulement"si l'année (2018) ou le mois (03 - MARS) n'existe pas.... je pige pas
j'ai pourtant mis un

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
  'Si le dossier 00 - BACKUP n'éxiste pas alors je le créer
  If Dir(Répertoire, vbDirectory) = "" Then MkDir (Répertoire)
Est-ce qu'il faut que je fasse le test sur le mois puis sur l'année ??


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

Sub Sauvegarde_Journaliere()
  Dim Répertoire As String, NomFichier As String, AnneeDossier As String, MoisDossier As String, JourDossier As String
  AnneeDossier = Year(Date)
  MoisDossier = Format(Month(Date), "00") & " - " & UCase(sansAccent(Format(Date, "MMMM")))
  JourDossier = Format(Date, "yyyy.mm.dd")

  Répertoire = ActiveWorkbook.Path & "\00 - BACKUP" & "\" & AnneeDossier & "\" & MoisDossier & "\" & JourDossier


  'Si le dossier 00 - BACKUP n'éxiste pas alors je le créer
  If Dir(Répertoire, vbDirectory) = "" Then MkDir (Répertoire)


  ' Créer un nom de fichier unique par jour
  NomFichier = ThisWorkbook.Name
  NomFichier = Left(NomFichier, Len(NomFichier) - 5)
' NomFichier = NomFichier & "-" & Format(Date, "dd.mm.yyyy") & ".xlsm"
  NomFichier = NomFichier & "-" & Format(Date, "yyyy.mm.dd") & ".xlsm"
  ' Vérifier si le fichier du jour n'existe pas
  If Dir(Répertoire & "\" & NomFichier) = "" Then
    'Sauvegarde une copie du fichier et ne touche donc pas au fichier en cours
    ActiveWorkbook.SaveCopyAs Filename:=Répertoire & "\" & NomFichier
  End If
End Sub
QQn aurait une idée?