[Excel VBA] Sauvegarde multiple automatique à la fermeture
Pagga
-
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:
Débutant dans le VBA, j'ai besoin de vos lumières
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
- Logiciel de sauvegarde automatique gratuit - Guide
- Liste déroulante excel - Guide
- Réponse automatique thunderbird - Guide
- Word et excel gratuit - Guide
- Comment calculer la moyenne sur excel - Guide
2 réponses
Bonjour,
Dans le module ThisWorkbook, mets :
Cordialement.
Daniel
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
