Problème avec Application.ontime

Bonsoir, j'ai un souci avec les évènements Application.Ontime
c'est à dire que quand je programme une tâche à une heure donnée, si je ferme le classeur l'évènement se produit quand même et j'aimerais que cela ne soit pas le cas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit   Dim DansXSecondes As String   Sub VerifMessage() DansXSecondes = TimeSerial(Hour(Time), Minute(Time), Second(Time) + Feuil2.Range("CY4").Value) Feuil2.Range("CY6").Value = DansXSecondes Application.OnTime DansXSecondes, "CompteLignes" End Sub   Sub StopMessage() DansXSecondes = Feuil2.Range("C64").Value On Error Resume Next Application.OnTime DansXSecondes, "CompteLignes", , False End Sub

---

Merci de votre aide

bonjour Xce ss le forum
c'est quoi ton affaire, comment la macro peut se dérouler avec un classeur fermé?? si ton classeur est fermé ta macro ne s'exécutera pas.
Explique nous voir un peu cette sorcellerie??
a+
papou:)

Il te suffit de déprogrammer l’événement à la fermeture du classeur:

Dans Thisworkbook

Code:

---

1 2 3 4 5 6

Private Sub Workbook_BeforeClose(Cancel As Boolean) DansXSecondes = Feuil2.Range("C64").Value On Error Resume Next Application.OnTime DansXSecondes, "CompteLignes", , False End Sub

---

Bonjour,

Dans ThisWorkbook

Code:

---

1 2 3

Private Sub Workbook_BeforeClose(Cancel As Boolean) StopMessage End Sub

---

Cordialement

ctac

bonjour, malheureusement j'ai déjà essayé ça :

Code:

---

1 2 3

Private Sub Workbook_BeforeClose(Cancel As Boolean) call StopMessage End Sub

---

cela ne change rien, le classeur se réouvre après le temps spécifié du ontime si d'autres classeurs sont ouverts dans cette session excel

sachant que dans ce module j'ai une fonction aussi mais j'ai pas toutes les données là, je mettrais ça une fois au taff ce soir car c'est pour le boulot

Je pense que le problème vient de la cellule qui garde la valeur (erreur de frappe?)

Code:

---

1 2	Feuil2.Range("CY6").Value = DansXSecondes DansXSecondes = Feuil2.Range("C64").Value

---

Pour pouvoir désactiver la programmation DansXSecondes doit être identique donc essaye de corriger et mettre la même référence de cellule sauf si il y a une bonne raison pour ça... mais dans ce cas C64 doit être égal à CY6

c'est une erreur de frappe de ma part , c'est la même cellule

j'ai même essayé avec

Code:

---

Public DansXsecondes as variant

---

Voici mon module standard modifié mais toujours même problème :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

Option Explicit   Dim TxtLignes() Public cRunWhen As Variant Public Const cRunIntervalSeconds = 60 Public Const cRunWhat = "CompteLignes"   Public Sub VerifMessage() 'Définit l 'intervalle avec l'heure actuelle + x secondes cRunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime cRunWhen, cRunWhat End Sub   Public Sub StopMessage() On Error Resume Next Application.OnTime cRunWhen, cRunWhat, , False End Sub   Public Function CompteLigne(Fichier As Integer) As Integer Dim texte As String Dim NbLignes As Integer Dim i As Integer While Not EOF(Fichier) Line Input #Fichier, texte ReDim Preserve TxtLignes(i) TxtLignes(i) = texte i = i + 1 NbLignes = NbLignes + 1 Wend CompteLigne = NbLignes End Function   Public Sub CompteLignes() Dim Fichier As String Fichier = Feuil2.Range("CY2").Value Dim Lignes As Integer Dim h As Integer h = FreeFile Open Fichier For Input As #h 'compte le nombre de lignes dans le fichier Lignes = CompteLigne(h) 'ferme le fichier Close #h If Lignes <> 0 Then Message.Show 0 End If Call VerifMessage End Sub

---

Dans Thisworkbook

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit   Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Saved = True Application.DisplayAlerts = False If Application.Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close End If Call StopMessage End Sub

---

Merci de votre aide

re, merci de vos lecture, j'ai trouvé la réponse :)

Kenavo