J'en ai bien une que Galopin avait donné à un moment donné.

Elle n'est plus tout-à-fait conforme, je l'ai un peu modifiée (pour 3 sauvegardes différentes) mais je la trouve imparfaite pour mon usage.

Sub Sauve()
Dim NomFichier As String, Chemin1 As String, Chemin2 As String
Chemin1 = "E:\répertoire\Nom du fichier_"
'Chemin2 = "C:\Users\Utilisateur\Répertoire\Nom du fichier_"
'Chemin2 = "E:\z.Svg\Mes documents\SOS\Nom du fichier_"
NomFichier = Format(Now(), "dd mmmm yyyy - hh mm ss")
ActiveWorkbook.SaveAs (Chemin1 & NomFichier)
ActiveWorkbook.SaveAs (Chemin2 & NomFichier)
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Protect ("Mot_de_passe")
Next
ActiveWorkbook.SaveAs (Chemin1 & NomFichier)
End Sub

Merci Gabrilou

Je regarderai demain si ça peut me convenir, mais à priori d'un premier coup d’œil ça doit me convenir (moyennant peut-être quelques adaptations)

Encore merci.

Bonsoir,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim chDos$, Fich
Fich = Split(Me.Name, ".")
Fich(UBound(Fich)) = ""
Fich = Join(Fich, ".")
Mid(Fich, Len(Fich), 1) = "_"
Fich = Fich & Format(Now, "yyyymmdd""_""hhmm") & ".xlsm"
chDos = "J:\Sauvegardes Excel\"
Me.SaveCopyAs chDos & Fich
End Sub

Private Sub Workbook_Open()
Me.Saved = True
End Sub

La procédure _Open évite que des modifications lors de l'ouverture provoquent la demande d'enregistrement si l'on ferme sans avoir rien fait.

La procédure _BeforeSave intervient lors de l'enregistrement pour effectuer une copie de sauvegarde datée. La copie faite, l'enregistrement normal se poursuit... Ajuster le chemin du dossier d'enregistrement de la copie.

NB- Version simple : on peut le cas échéant enregistrer la copie en xlsx, sans les macros...

Cordialement.

Merci ferrand

Je teste dans la journée

Olman, Ferrand

Merci Ferrand. Je vais abandonner ma macro. La tienne corrige les imperfections de celle que je pensais pouvoir bricoler.

Bonne journée

Comme Gabrilou je dis merci à Ferrand pour sa macro qui a résolu mes interrogations.

Content que cela colle aussi pour toi Gabrilou .

Bonne soirée à tous deux.