Relancer un timer aprés fin du temps

Guigui · 25 Mars 2006

Bonsoir tous le monde,

En fouillant dans le forum, j'ai trouvé ceci pour faire un timer et déclancher une action :

A l'ouverture du fichier

Code:

Application.OnTime Now + TimeValue('00:10:00'), 'ENREGISTRER'

Dans un module je met ensuite :

Code:

Sub ENREGISTRER ()
Activeworkbook.save
End sub

Comment faire, pour que le timer fasse une boucle: en clair, je voudrais une sauvegarde toutes les 10 min.

Merci d'avance pour votre aide .
A+
Guillaume

pierrejean · 25 Mars 2006

bonjour guigui

je viens de faire ce test pour m'amuser

Sub test()
Application.OnTime Now + TimeValue('00:00:05'), 'ENREGISTRER'
End Sub
Sub enregistrer()
MsgBox ('coucou')
test
End Sub

excel me fait coucou toutes les 5 secondes
tu peux peut-etre t'en inspirer

Bernard_XLD · 25 Mars 2006

Bonjour guigui, pierrejean

le plus simple est de reboucler dans ta procédure enregistrer

A+

Code:

Sub ENREGISTRER ()
Application.OnTime Now + TimeValue('00:00:05'), 'ENREGISTRER'
Activeworkbook.save
End sub

Guigui · 26 Mars 2006

Bonjour à tous, Yeahou, Pierrejean

Merci à tous les deux, c'est parfait.

A+
Guillaume

Relancer un timer aprés fin du temps

Guigui

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Guigui

XLDnaute Occasionnel

Discussions similaires