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