rafraichissement d'une macro

[philmaure]

Bonjour à tous,

J'ai une macro qui permet de rafraichir les données toutes les 5 Mn.
Cette macro fonctionne nickel en voici le détail :

Sub Rafraichissement_données()
DansCinqMinutes = Now + TimeValue("00:05:00")
Application.OnTime DansCinqMinutes, "Rafraichissement_données"
Call Actualisation_Données_CCS
End Sub

Je souhaite que cette macro ne fonctionne que jusqu'a 20H mais lorque je rajoute ce critère la macro ne fonctionne plus :

Sub Rafraichissement_données()
DansCinqMinutes = Now + TimeValue("00:05:00")
If DansCinqMinutes < "20:00:00" Then
Application.OnTime DansCinqMinutes, "Rafraichissement_données"
Call Actualisation_Données_CCS
End if
End Sub

Merci pour votre solution
Cdlt
Philippe

 

[Guest]

Re : rafraichissement d'une macro

Bonjour,

Peut-être:

If DansCinqMinutes <TimeValue( "20:00:00")

A+

 

[Pierrot93]

Re : rafraichissement d'une macro

BOnjour,

essaye peut être ceci :

Dim DansCinqMinutes As Date
DansCinqMinutes = Now + TimeValue("00:05:00")
If DansCinqMinutes < Date + #8:00:00 PM# Then MsgBox "heure dépassée..."

bon après midi
@+

Edition : re Hasco🙂

 

[philmaure]

Re : rafraichissement d'une macro

Merci à vous deux et une bonne a-m
Cdlt
Philippe