Microsoft 365 Application.OnTime

[SCorbeil]

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", , True
    
End If

If JrSEM < 5 Then

    Application.OnTime HrREQ1, "REQAutomatique", , True
    
End If

If JrSEM > 5 Then

Resume Next

End If

End Sub

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.

 

[patricktoulon]

re
j'avais peur que personne se rappelle de garsimore et de ses tours de magie ratés

ca réplique : "et voila ca mâche pas"
je l'ai trouvé de circonstance

pour ce qui est du sujet en post 11 (pour windows) j'ai donné une petite sub pour programmer une tache régulière qui fonctionne très bien je l'utilisais il y a des années en VBS elle fonctionne très bien encore aujourd’hui dans VBA elle est passée inaperçu apparemment

des que je retrouve le script pour la supprimer je la donne c'est un peu le cafoutch dans mes vieux disques durs

 

[mapomme]

Je t'ai point fripé?
Ce n'était qu'un trait d'humour, une galéjade qui fleurait bon les seventies.
Aucune critique, aucun reproche.

Bien sûr que non, je ne suis pas froissé.
Mais quelle serait la bonne citation ?

 

[Staple1600]

Bonsoir le fil

Mais quelle serait la bonne citation ?

Ce • final devrait éclairer ta lanterne.
Tout était dans le C.. (qui fut à tort S)