[Excel VBA] Sauvegarde multiple automatique à la fermeture

Pagga -  
 Pagga -
Bonjour,

Je souhaite créer une macro de sauvegarde multiple automatique. Par "multiple", j'entends, un fichier différent à chaque fois. Du style: Nomduclasseur_yyyymmdd_hhmmss

Mon objectif:
- un fichier se créé à chaque fermeture
- une sauvegarde "normal" (Fichier/Enregistrer), enregistre le fichier source normalement.

J'ai trouvé ce bout de code qui peut être utile: 
Dim Chemin As String, Fichier As String
 
Chemin = "C:\Dossier Archivage\"
'Ajoute la date du jour et l'heure dans le nom du fichier
Fichier = "NomClasseur_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xls"
 
ActiveWorkbook.SaveCopyAs Chemin & Fichier


Débutant dans le VBA, j'ai besoin de vos lumières

Configuration: Windows / Firefox 68.0

2 réponses

  1.
    danielc0 Messages postés 2215 Date d'inscription   Statut Membre Dernière intervention   294
     
    Bonjour,

    Dans le module ThisWorkbook, mets : 

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim Chemin As String, Fichier As String
  Chemin = "C:\Dossier Archivage\"
  'Ajoute la date du jour et l'heure dans le nom du fichier
  ThisWorkbook.Save
  Fichier = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) & "_" & _
    Format(Now, "yyyymmdd_hhmmss") & _
    "." & Split(ThisWorkbook.Name, ".")(UBound(Split(ThisWorkbook.Name, ".")))
  ThisWorkbook.SaveCopyAs Chemin & Fichier
End Sub

    Cordialement.

    Daniel
    1
  2. Pagga
     
    Très fort Daniel. Je te remercie :)
    Correspond exactement à mes attentes
    0