Mise à jour automatique

Regarde dans l'aide la méthode OnTime de l'objet Application.
Tu as des explications et exemples...



"Arnaud" <alamy@wanadoo.fr> a écrit dans le message de news:
%23zowaqSVHHA.4380@TK2MSFTNGP03.phx.gbl...
Bonjour à tous !
J'aimerai créer un macro qui se lance automatiquement toutes les 5
minutes...
Quel code utiliser ?

merci !
Arnaud

Bonsoir,

Dim temps
Sub mamacro()
ThisWorkbook.Sheets("feuil1").[A1] = Now
temps = Now + TimeValue("00:05:00")
Application.OnTime temps, "mamacro"
End Sub

Sub auto_open()
mamacro
End Sub

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

JB

On 20 fév, 21:06, Arnaud <a...@wanadoo.fr> wrote:

Bonjour à tous !
J'aimerai créer un macro qui se lance automatiquement toutes les 5
minutes...
Quel code utiliser ?

merci !
Arnaud