Plantage de l'heure

Bonsoir,

http://boisgontierj.free.fr/fichiers/OnTimeHeure.xls

Dim temps
Sub majHeure()
ThisWorkbook.Sheets("feuil1").[A1] = Now
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End Sub

Sub auto_open()
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub

JB

On 16 fév, 20:18, Peponne31 <Peponn...@discussions.microsoft.com>
wrote:

Bonsoir,
Grace à votre aide, j'ai mis l'heure dans un classeur et ça fonctionn e bien.
Mais à l'ouverture d'un second classeur j'ai un message d'erreur qui me dit
qu'elle n'appartient pas à la sélection. Y a t'il un moyen di reméd ier ?
merci encore pour votre aide qui m'est d'un grand secour.
Peponne31

Merci JB, ça fonctionne. il me faut combien de temps pour arriver à votre
niveau ?(néophite)

Bonsoir,

http://boisgontierj.free.fr/fichiers/OnTimeHeure.xls

Dim temps
Sub majHeure()
ThisWorkbook.Sheets("feuil1").[A1] = Now
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End Sub

Sub auto_open()
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

JB

On 16 fév, 20:18, Peponne31 <Peponn...@discussions.microsoft.com>
wrote:

Bonsoir,
Grace à votre aide, j'ai mis l'heure dans un classeur et ça fonctionne bien.
Mais à l'ouverture d'un second classeur j'ai un message d'erreur qui me dit
qu'elle n'appartient pas à la sélection. Y a t'il un moyen di remédier ?
merci encore pour votre aide qui m'est d'un grand secour.
Peponne31