Relancer un timer aprés fin du temps

[Guigui]

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

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

Dans un module je met ensuite :

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]

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]

Bonjour guigui, pierrejean

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

A+

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

 

[Guigui]

Bonjour à tous, Yeahou, Pierrejean

Merci à tous les deux, c'est parfait.

A+
Guillaume