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