jimmycamelon
XLDnaute Nouveau
Bonjour tout le monde. J'ai cherché sur le site mais j'ai pas réussi.
Mon problème.
En fait je voudrais : 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 15min et qu'à 21h30 le process s'arrete pour reprendre le lendemain à 9h00.
Ci dessous mon code mais rien ne se lance.
Sub Rafraichissement()
'Definit le départ de la macro
Application.OnTime TimeValue("09:00:00"), "Rafraichissement"
' Définit l'intervalle avec l'heure actuelle + trente minutes
DansTrenteMinutes = TimeSerial(Hour(Time), Minute(Time) + 15, Second(Time))
If DansTrenteMinutes < "21:15:00" Then
' Appel récursif de la fonction Rafraichissement
Application.OnTime DansTrenteMinutes, "Rafraichissement"
' Appel de la fonction courseR1
Call course1
End If
End Sub
j'ai nommé une cellule sur ma feuille excel "DansTrenteMinutes". Bref c'est juste comme si j'avais un timer sur ma feuille. "=maintenant".
Par contre je ne sais pas si elle est nécessaire.
Merci pour votre réponse.
Mon problème.
En fait je voudrais : 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 15min et qu'à 21h30 le process s'arrete pour reprendre le lendemain à 9h00.
Ci dessous mon code mais rien ne se lance.
Sub Rafraichissement()
'Definit le départ de la macro
Application.OnTime TimeValue("09:00:00"), "Rafraichissement"
' Définit l'intervalle avec l'heure actuelle + trente minutes
DansTrenteMinutes = TimeSerial(Hour(Time), Minute(Time) + 15, Second(Time))
If DansTrenteMinutes < "21:15:00" Then
' Appel récursif de la fonction Rafraichissement
Application.OnTime DansTrenteMinutes, "Rafraichissement"
' Appel de la fonction courseR1
Call course1
End If
End Sub
j'ai nommé une cellule sur ma feuille excel "DansTrenteMinutes". Bref c'est juste comme si j'avais un timer sur ma feuille. "=maintenant".
Par contre je ne sais pas si elle est nécessaire.
Merci pour votre réponse.