Message d'erreur '1004

bonjour,

Quand j'essaye d'exécuter une macro, j'ai ce message d'erreur qui apparait:

erreur d'exécution '1004'

la méthode 'on time' de l'objet_ 'application' a échoué

quel est le problème svp?

merci

Bonjour,

pourrais-tu coller ton code ici, ce sera plus facile pour t'aider

re,

mon code est le suivant:

Option Explicit
Dim vNow As Variant
Public Sub Eclairage()
vNow = Now + TimeValue("00:00:01")
Application.OnTime vNow, "Eclairage"
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1 - [VarEclairage]
End Sub
Public Sub ArrêtEclairage()
Application.OnTime EarliestTime:=vNow, _
Procedure:="Eclairage", Schedule:=False
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1
End Sub

Re-,

je ne sais pas ce que tu veux faire, mais essaie en remplaçant :

Dim vNow As Variant

par :

Public vNow As Variant

re,

je viens tout juste de t'exposer le meme problème dans un autre sujet.

merci felix