Microsoft 365 Application.OnTime

SCorbeil · 11 Février 2020

Bonjour,

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 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 · 12 Février 2020

re
sinon on se rappelle le bon vieux temps ou l'on se servait de VBSCript et on adapte en vba

exemple

VB:

'tout les mercredi a 18:04
Sub test()
    Set wShell = CreateObject("Wscript.Shell")
    jour = "WED"    'pour le mercredi
    'pour plusieurs jours
    'jour= "MON,TUE,WED,THU,FRI,SAT,SUN"
   
    NomTACHE = """patrick"""
   
    chemin_fichier = """C:\Users\polux\DeskTop\aaa.cmd"""
   
    A_quelle_Heure = "18:05"
   
    'codée avec argument
    wShell.Run "SchTasks /Create /SC WEEKLY /D " & jour & " /TN " & NomTACHE & " /TR " & chemin_fichier & " /ST " & A_quelle_Heure
   
    'codée en dur
    'wShell.Run "SchTasks /Create /SC WEEKLY /D WED /TN 'patrick' /TR 'C:\Users\polux\DeskTop\aaa.cmd' /ST 18:05"
End Sub

je suis...

Staple1600 · 12 Février 2020

Bonsoir le fil

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

Dranreb · 12 Février 2020

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 · 12 Février 2020

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 · 12 Février 2020

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

Staple1600 · 12 Février 2020

Re

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

patricktoulon · 12 Février 2020

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 · 12 Février 2020

bonsoir Staple1600
ben mac j'ai pas alors

dysorthographie · 12 Février 2020

Application.ontime sur Mac?????

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

patricktoulon · 12 Février 2020

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

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

Staple1600 · 12 Février 2020

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 · 12 Février 2020

@patricktoulon

VB:

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

ça marche pôôôô

VB:

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

ça marche

Staple1600 · 12 Février 2020

Bonsoir mapomme

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

mapomme · 12 Février 2020

Staple1600 à dit:
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 · 12 Février 2020

Tu m'as fait rire!

Staple1600 · 12 Février 2020

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

Microsoft 365 Application.OnTime

SCorbeil

XLDnaute Nouveau

patricktoulon

Staple1600

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

Discussions similaires