Bonjour tout le monde. J'ai cherché sur le site mais j'ai pas réussi.
Mon problème.

Avec mon fichier excel ouvert.

Lancer ma macro à 9h00 tous les jours, quelle se relance toutes les 15 minutes et qu'elle s’arrête à 21h.

Ci dessous mon code mais rien ne se lance.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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 courseR1
    End If
End Sub
Merci pour votre réponse.