Discussion :

[jimmycamelon]

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.

[SfJ5Rpw8]

Bonsoir,

peu-être cela viens du fait que tu compare une chaîne de caractére avec une date...

utilise la fonction timeSerial .. pour exprimer ton heure "21:15.."

[jimmycamelon]

Merci bbil pour ta réponse super rapide. C'est top.

Le pb c'est qu'elle ne se lance pas du tout.
Comment ça mettre timeserial ?

J'ai oublié de mentionner que
DansTrenteMinutes est une cellule de ma feuille excel sur laquelle j'ai definit "=maintenant"

merci

[SfJ5Rpw8]

Plusieurs chose .. coment execute tu ta pocedure ? ... pourquoi progamme tu un lancement a 09h00 a chaque appel ? Pour timeserial utilise l'aide en ligne cette fonction vas te permettre de transformer tes '21h15' en format de données date

Pourquoi dis tu que ta variable danstrenteminute est une cellule ?

N'oublie pas de rajouter dans toutes tes pages de codes en première ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

option explicit

ce qui permet de mettre en lumière les erreurs de declarations de variables

[jimmycamelon]

Bonjour,

En fait je voudrais : laisser mon ordi allumé avec mon fichier excel ouvert.
Que la Macro "courseR1" 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.

Pour le moment la procédure "sub Rafraichissement()" ne marche pas quand je click sur le bouton.

Sinon je lance la Macro "courseR1" manuellement.

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 necessaire.

En tout cas merci pour tes reponses. C'est bien cool

je ne connais pas le système Option Explicit. mais je vais me pencher dessus, ça me semble super utile.


Merci

[jimmycamelon]

En fait j'y arrive toujours pas.
J'ai essayé l'aide en ligne mais... helas ça ne se lance pas.
Y a t il un code à mettre dans "Thisworkbook" ?