Double saugegarde cachée

Bonjour à vous,

Je sollicite votre aide pour un de mes projets.

Etant un fichier que je souhaite pas perdre (que quelqu'un le supprime "involontairement"), je souhaite faire un système de double sauvegarde auquel la deuxième sauvegarde serai cachée (CAD non visible dans le listing des fichiers recent par exemple).

Je posséde un code qui fait la double sauvegarde mais sans cette subtilité là

Pouvez-vous éclairer ma lanterne?

Private Sub Workbook_BeforeClose(cancel As Boolean)
'
'
Dim chemin As String

'Sauvegarde classique
Call Sauvegarde_fichier

'Suspenssion des alertes de excel
Application.DisplayAlerts = False
Application.EnableEvents = False

'Sauvegarde du fichier de secour en cas de suppression involontaire
ActiveWorkbook.SaveAs Filename:="R:\Dossier de sauvegarde\" & ActiveWorkbook.Name & "-" & "sauvegarde de secour" & ".xlsm"

'Remise en fonction des alertes de excel
Application.EnableEvents = True
Application.DisplayAlerts = True

End Sub

Bonjour,

vous pouvez faire une sauvegarde ou une copie (SaveCopyAs) et la nommer sous n'importe quel nom, chemin ou extension. Cela devrait être bien suffisant !

Ex : D:\SOS\2010140643.dat

Cette sauvegarde est celle du 14/10/2020 à 6h43...

A+

Bonjour "Galopin01",

Merci pour la réponse rapide ;-)

Cependant, ce mode de sauvegarde "classique" laissera une trace sur l'historique des fichier "ouvert" (quand tu fais clic droit sur le symbole de Excel par exemple)

C'est malheureusement la grosse subtilité de ma demande ^^