[Excel VBA] Sauvegarde multiple automatique à la fermeture

Fermé

Pagga - Modifié le 14 juil. 2019 à 22:45
Pagga - 17 juil. 2019 à 21:29

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

A voir également:

[Excel VBA] Sauvegarde multiple automatique à la fermeture
Liste déroulante excel - Guide
Aller à la ligne excel - Guide
Logiciel de sauvegarde - Guide
Formule excel - Guide
Sauvegarde automatique - Guide

2 réponses

Réponse 1 / 2

danielc0 Messages postés 834 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 20 avril 2024 74
15 juil. 2019 à 12:20

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

Réponse 2 / 2

Pagga
17 juil. 2019 à 21:29

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

Discussions similaires

Paris multiple : explications de 2/3, 3/4, 2/4, 2/5, etc.

Discussions similaires

Newsletters