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.

 

[Staple1600]

Bonsoir le fil

[pour info aux lecteurs du fil]
Macistes, passez votre chemin!
(si vous voulez tester du CreateObject)

 

[Dranreb]

Chez moi, si après avoir cliqué sur LancerOnTime je clique sur FermerClasseur sans avoir cliqué sur AnnulerOnTime, le classeur se ferme … puis se rouvre !

 

[patricktoulon]

re
a ok en fait tu ferme par macro et garde l'instance de excel ouverte c'est pour ca et c'est normal
l'instance ontime est toujours active
mais si on le ferme par la croix rouge ca ne fonctionne pas

 

[Dranreb]

En effet, bizarre. Je n'avais jamais remarqué.

 

[Staple1600]

Re

=>patricktoulon (bonsoir)
Et si on sera sur un Mac ça ne fonctionne pas non plus
(cf message#16)

 

[patricktoulon]

ben non c'est pas bizarre c'est normal au contraire en fermant l'instance tu purge vba et les 2 giga de mémoire allouée a excel (pour version 2007) a excel peut etre plus pour les versions superieures je sais pas

 

[patricktoulon]

bonsoir Staple1600
ben mac j'ai pas alors

 

[dysorthographie]

Application.ontime sur Mac?????

Le plus simple c'est le plannificateur de tâches !

 

[patricktoulon]

re
sub test
application.onMactime plutard,"garsimore"
end sub

sub garsimore
application.speek("ca marche pas")
end sub

 

[Staple1600]

Re

=>dysorthographie (bonsoir)
Non, moi je prévenais juste les Macistes que les bouts de code on peut lire du CreateObject ne fonctionneront pas.
But who cares

Et je plussoie à l'utilisation de planificateur de tâches.
(et si besoin avec un petit script PowerShell )

 

[mapomme]

@patricktoulon

sub garsimore
    application.speek("ca marche pas")
end sub

ça marche pôôôô

sub garsimore
    Application.Speech.Speak "ça marche"
end sub

ça marche

 

[Staple1600]

Bonsoir mapomme

mapomme toulonnaise (pour faire deux)
Si vous citez Garcimore, citez-le bien
Respectez nos souvenirs d'enfance et Denise, que diantre !

 

[mapomme]

Respectez nos souvenirs d'enfance et Denise, que diantre !

Ben à mon âge, c'est justement les souvenirs d'enfance qui doucement s'estompent. Alors les respecter c'est encore facile, savoir s'ils correspondent toujours à une réalité, ça c'est plus difficile.

Malgré les reproches et critiques (amicaux certes ), je reste décontrasté

 

[dysorthographie]

Tu m'as fait rire!

 

[Staple1600]

Re

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.

PS: Denise est toujours réelle, Garcimore un peu moins