[Excel VBA] Sauvegarde multiple automatique à la fermeture Fermé

Question

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 fichierFichier = "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

danielc0 · Answer

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

Pagga · Answer

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

[Excel VBA] Sauvegarde multiple automatique à la fermeture

2 réponses

Discussions similaires