Salut PY, Michel
Oui hier soir j'étais à la bourre, mais je viens de tester et çà tourne à condition que, comme te le dit très justement Michel, tu t'assures bien que le Path indiqué dan l'initialisation de la Variable de type String "Chemin" soit bien Exactement celui qui existe sur ton Disque Dûr.
On peut aussi virer le message qui t'alertera si le fichier "Back Up" existe déjà dans le répertoire "Test XLD"...
Voici la Procédure modifiée :
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
SauveAs
End Sub
Sub SauveAs()
Dim SauverSous As String
Dim Fichier As String
Dim Chemin As String
Fichier = ThisWorkbook.Name
Chemin = "c:\mes documents\Test XLD\"
SauverSous = Chemin & Fichier
ThisWorkbook.Save
Application.DisplayAlerts = False
ThisWorkbook.SaveAs SauverSous
Application.DisplayAlerts = True
End Sub
Sinon, si tu veux avoir un Back Up à chaque fermeture pour avoir un historique alors je te propose ceci :
Sub SauveAs()
Dim SauverSous As String
Dim Fichier As String
Dim Chemin As String
Dim X As Byte
Fichier = ThisWorkbook.Name
Chemin = "c:\mes documents\Test XLD\"
X = Len(Fichier)
SauverSous = Chemin & Left(Fichier, X - 4) & " BackUp " & Format(Now, "YY-MM-DD HH-MM")
ThisWorkbook.Save
ThisWorkbook.SaveAs SauverSous
End Sub
Et donc tu auras, à chaque fermeture, un fichier sauvé avec un nom de la sorte : "TestCloseBackUp 03-07-22 22-41.xls" (je mets en format date US, plus facile pour faire des tris...)
Voilà, ce devrait être bien... Attention donc au Chemin, le répertoire Test XLD ne doit pas exister chez toi........ Chez moi il est au contraire très sollicité !! lol
Bonne Nuit
@+Thierry