Macro qui s'actualise On.time ( avec debut et fin selon l'heure)

[bloomby]

voici moi code mais il y a quelque chose qui ne marche pas dans l'heure pour qu'il debut et arrete,

j'aimerais que le debut soit la cellule A5 et fin A6

Sub MyMacro()
dTime = Now + TimeValue("00:00:20")
If dTime < "08:00:00" & dTime > "17:00:00" Then
Application.OnTime dTime, "MyMacro"
End If
End Sub

Sub MaMacro()
' Définit l'intervalle avec l'heure actuelle + trente secondes
DansTrenteSecondes = TimeSerial(Hour(Time), Minute(Time), Second(Time) + 30)
If DansTrenteSecondes < "21:00:00" Then
' Appel récursif de la fonction MaMacro
Application.OnTime DansTrenteSecondes, "MaMacro"
' Appel de la fonction EnregistrerEnPageWeb
Call EnregistrerEnPageWeb
End If
End Sub

merci

 

[ya_v_ka]

Re : Macro qui s'actualise On.time ( avec debut et fin selon l'heure)

Hello

Je ne maitrise pas tout, ai n'ai pas tout compris de ton bout de code... mais je suppose qu'une partie du problème vient de :
If dTime < "08:00:00" & dTime > "17:00:00" Then
"&" fait une concatenation, "and" execute les 2 traitements.
Et je me demande si VBA reconnait "08:00:00" ou s'il préfère "TimeSerial(Hour(8), Minute(0), Second(0))"

Peut-être une piste... ou deux

Ya'v

 

[BOISGONTIER]

Re : Macro qui s'actualise On.time ( avec debut et fin selon l'heure)

Bonjour,

Dim temps
Sub majHeure()
  t = temps - Int(temps)
  If t >= [A5] And t <= [A6] Then
    AfficheHeure
  End If
  temps = Now + TimeValue("00:00:10")
  Application.OnTime temps, "majHeure"
End Sub

Sub AfficheHeure()
  [A1] = temps - Int(temps)
End Sub

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

JB
Formation Excel VBA JB