<jmklee@wanadoo.fr>De: JM 
Objet: Re: Timer d' Excel ???
Date : vendredi 6 août 1999 11:35

Bonjour,

Pettite suggestion qui marche avec XL 97 SR 2

Sub myUpdating()
Dim i As Integer, myTime As Variant
For i = 0 To 40                                          ' executer
Philippe_Sub 41 fois à partir de 10:00 inclus
myTime = Timevalue("10:00") + i / (24 * 60 * 4)     ' 15 secondes =
1/(24*60*4) jour
Application.OnTime myTime, "PhilippeSub"<plhermie@club-internet.fr>
Next
End Sub

Sub PhilippeSub ()
         ' ton code, par ex ActiveWorkbook.RefreshAll
End Sub

--
JM
One OS to rule them all, One OS to find them,
One OS to bring them all and in the darkness bind them.
In the land of Redmond, where the shadows lie.


Philippe Lhermie  a &eacute;crit dans le message :
7odstc$549$1@front4.grolier.fr...
> Bonjour à tous,
>
> Je cherche à cr&eacute;r un timer qui m'actualise mes requêtes web d'une feuille
> Excel toutes les 15 secondes
>
> J'ai &eacute;cris la proc suivante, mais elle ne marche pas. je pense que c'est
ma
> condition qui ne va pas.
> Si quelqu'un peux m'&eacute;clairer, je l'en remercie.
>
> Sub MaJ_Requetes ()
>     PauseTime = 15
>     Start = Timer
>     do while Timer = Start + PauseTime
>         ActiveWorkbook.RefreshAll
>         Start = Start + PauseTime
>     loop
> End Sub
>
>
> Merci
> ////////////////////////////////////////////////////////
>
> philippe.lhermie@freesbee.fr
>
> ///////////////////////////////////////////////////////
>
>