Enregistrer automatique toute les 2 minutes

[chaelie2015]

Bonjour
j'aimerais savoir si il est possible d'enregistrer de façon automatique ( code VBA) c-a-d toute les 2 minutes un document excell sans demander a l'utilisateur son avis n'y confirmation (le nouveau enregistrement doit annuler l'ancien)
Salutations

 

[Hieu]

Re : Enregistrer automatique toute les 2 minutes

Salut,

En mettant ce code dans ThisWorkbook :

Private Sub Workbook_Open()
 Application.AutoRecover.Time = 2
End Sub

++

 

[M12]

Re : Enregistrer automatique toute les 2 minutes

Bonjour,

A mettre dans un module et un bouton pour lancer (ou par lancement de la macro "Actualiser")

Sub Actualiser()
        ' Définit l'intervalle avec l'heure actuelle
       uneheure = TimeSerial(Hour(Time), Minute(Time) + 2, Second(Time))
        Workbooks("Tableau Inscription-Commande.xlsm").Activate
     
        Sheets("Dates").exportdonnées
        HeureExecution = Now + TimeSerial(0, 1, Interval)
        ' Appel récursif
        Application.OnTime HeureExecution, "Actualiser"
End Sub


    
Sub auto_close()
     On Error Resume Next
     Application.OnTime uneheure, Procedure:="Actualiser", Schedule:=False
End Sub

 

[chaelie2015]

Re : Enregistrer automatique toute les 2 minutes

Bonjour M12, Hieu
merci pour les réponses, je vais l'adapter a mon fichier.
Bon week-end

 

[DoubleZero]

Re : Enregistrer automatique toute les 2 minutes

Bonjour à toutes et à tous,

D'autres "recettes", ici.

A bientôt