Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Enregistrer automatique toute les 2 minutes

chaelie2015

XLDnaute Accro
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
 
Dernière édition:

Hieu

XLDnaute Impliqué
Re : Enregistrer automatique toute les 2 minutes

Salut,

En mettant ce code dans ThisWorkbook :

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

++
 

M12

XLDnaute Accro
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")

Code:
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
 

Discussions similaires

Réponses
4
Affichages
337
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…