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
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