Comment forcer automatiquement la sauvegarde?


#1

Bonjour

J’aimerais savoir s’il existe une manière d’avoir un fichier qui se sauvegarde automatiquement?
Par exemple toutes les 2 ou 5 minutes.
Cela m’éviterai de perdre beaucoup de travail.

Merci


#2

Bonjour Karim

Voici un code VBA qui permet de sauver ton fichier toutes les 5 minutes:

A coller dans “ThisWorkbook”:

   Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   'Enregistre le fichier toutes les 5 minutes
       Application.OnTime Now + TimeValue("00:05:00"), "EnregistrerFichier"
   End Sub

A coller dans un module:

Sub EnregistrerFichier()
    ActiveWorkbook.Save
End Sub