Activer une macro chaque 30min

Bonjour à tous,

Dans mon fichier j'ai créer un bouton qui exécute une macro au clique de la souris.

Je souhaiterai retirer ce bouton et faire en sorte que la macro s'exécute toute seule à l'ouverture de mon fichier puis toutes les 30 minutes ou chaque heures correspondant à l'horloge du système.

Merci d'avance

KeMeLoS

Bonjour

En gros, cela devrait donner ceci pour toutes les heures:

Dans un Module standard

Dim Uneheure

Sub Actualiser()
' Définit l'intervalle avec l'heure actuelle
    Uneheure = TimeSerial(Hour(Time) + 1, Minute(Time) , Second(Time))
        ' Appel récursif
        Application.OnTime Uneheure, "Actualiser"
        Call Mamacro
End Sub

Sub auto_open()
   Actualiser
End Sub

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

Sub Mamacro()
Ta pocédure ici
End Sub

et dans ThisWorkbook

Private Sub Workbook_open()
Call Mamacro
End Sub

A titre d'exemple et de contrôle, sur le fichier joint, le message apparaît toutes les minutes.

cordialement

Merci Amadéus,

j'essaye sa demain au boulot demain et je te tien informé

Encor Merci

-- 02 Sep 2010, 13:28 --

Merci Amadéus,

Sa fonctionne bien, par contre y a t'il moyen de l'adapter a l'heure du Systeme?

Salutation a tous

KeMeLoS