Microsoft 365 Application.OnTime

SCorbeil

XLDnaute Nouveau
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.
 
Solution
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Supporter XLD
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é :cool:
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 939
Membres
101 844
dernier inscrit
pktla