Re : Application Ontime. Pb pour le lancement de la macro et répétition.
Voilà j'ai trouvé le code qui repond à ma question :
"laisser mon ordi allumé avec mon fichier excel ouvert.
Que la Macro "course1" se lance tous les jours à 9h, qu'elle se relance toutes les 30min et qu'à 23h40 le process s'arrete pour reprendre le lendemain à 9h00."
Sub Rafraichissement()
' Définit l'intervalle avec l'heure actuelle + trente minutes
DansTrenteMinutes = TimeSerial(Hour(Time), Minute(Time) + 30, Second(Time))
If DansTrenteMinutes < "23:40:00" Then
' Appel récursif de la fonction Rafraichissement
Application.OnTime DansTrenteMinutes, "Rafraichissement"
Call course
Else
If DansTrenteMinutes > "23:40:00" Then
Application.OnTime Date + 1 + DansTrenteMinutes, "Rafraichissement"
' Appel de la fonction course
End If
End If
End Sub
Dans Thisworkbook j'ai mis le code ci dessous.
Private Sub Workbook_Open()
Application.OnTime TimeValue("09:00:00"), "Rafraichissement"
End Sub
Le problème c'est que si : En ouvrant ma macro un matin apres 09h00, celle-ci ne se lancera que le lendemain. Du coup je voudrais mettre une variable à la place de l'heure.
Style : Application.OnTime TimeValue("heuredelancement"), "Rafraichissement"
Et que heuredelancement soit une cellule nommé sur ma feuille excel que je peux modifier.
merci pour votre aide et j'espere que mon code pourra vous aider.