Bonjour SoumZoum
Désolé si je vous ai induit en erreur.
Effectivement, c'est un backup protégé que je souhaite obtenir.
J'ai essayé en mettant le code que vous m'avez fourni ici:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Fermeture
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
Dim wbi As String
Set aWb = ActiveWorkbook
aWb.Save
wbi = aWb.FullName 'Enregistre le nom complet, chemin compris
aWb.SaveAs "C:\Users\ulangzx\Desktop\backup\beta2.xls", , "mlbk"
Application.Workbooks.Open (wbi)
aWb.Close True
End Sub
Le beta2 dans le dossier backup est bien protégé, mais à la fermeture du dossier, il y a l'erreur 1004 la méthode SaveAs de la classe workbook a échoué.
Quant au fichier source, en voulant quitter, il y a le message «un fichier "C:\Users\ulangzx\Desktop\backup\beta2.xls" existe déjà, voulez vous le remplacer». Si je répond oui, le classeur ne se ferme pas. Si je répond non il y a le même message d'erreur du classeur beta2!
Vraiment désolé de vous importuner avec ces problèmes qui s'accumulent. J'apprécie beaucoup votre aide.
Merci