Application.OnTime dans visio

Bonjour,

Dans Vision 2010, j'ai ce bout de code.


___________________________________

Option Explicit
Dim Tps As Date
____________________________________

Sub tempo()

Dim xlApplication As Excel.Application ' J'ai coché "Microsoft Excel 14.0 object Library" dans les références.

'Programmation de l'évènement toutes les secondes
Tps = Now + TimeValue("00:00:01")
xlApplication.OnTime Now + Tps , "Macro1"

' Mon code

End sub
_____________________________________


Sub Macro1()

Msgbox "Bonjour"

End sub

_____________________________________

Au niveau de la ligne rouge je reçois le message suivant : "Erreur d'éxécution 91. Variable objet ou variable de bloc with non définie".

Merci de votre aide.