Bonjour,
Petit problème avec l'exécution de cette macro.
Sub GOAuto()
Dim HrREQ1 As Date
Dim HrREQ2 As Date
Dim JrSEM As Integer
JrSEM = Weekday(Now(), vbMonday)
HrREQ1 = TimeSerial(15, 30, 0)
HrREQ2 = TimeSerial(11, 30, 0)
If JrSEM = 5 Then
Application.OnTime HrREQ2, "REQAutomatique"...