Bonjour,
Petit problème avec l'exécution de cette macro.
La macro "GOAuto" est lancée avec l'ouverture du Workbook, mais ne lance pas la macro "REQAutomatique" à l'heure prévue. Le Workbook est fermé à tous les jours (à la fermeture des bureaux) et lancé à nouveau chaque jours ouvrable par le premier utilisateur.
Je suis possiblement encore si près de l'arbre qu'il m'est pas possible de voir la forêt.
Merci à l'avance à tous les collaborateurs.
Petit problème avec l'exécution de cette macro.
VB:
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", , True
End If
If JrSEM < 5 Then
Application.OnTime HrREQ1, "REQAutomatique", , True
End If
If JrSEM > 5 Then
Resume Next
End If
End SubLa macro "GOAuto" est lancée avec l'ouverture du Workbook, mais ne lance pas la macro "REQAutomatique" à l'heure prévue. Le Workbook est fermé à tous les jours (à la fermeture des bureaux) et lancé à nouveau chaque jours ouvrable par le premier utilisateur.
Je suis possiblement encore si près de l'arbre qu'il m'est pas possible de voir la forêt.
Merci à l'avance à tous les collaborateurs.