Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 VBA 6 Erreur à l'ouverture du classeur

danielco

XLDnaute Accro
Bonjour,

Depuis toujours, j'ai parfois une erreur erreur à l'ouverture d'un classeur. Dans celui-ci, le code :

VB:
Private Sub Workbook_Open()
  If Time < TimeValue("9:30:00") Then
    Application.OnTime TimeValue("9:30:00"), "Message"
  ElseIf Time < TimeValue("13:30:00") Then
    Application.OnTime TimeValue("13:30:00"), "Message1"
  ElseIf Time < TimeValue("17:30:00") Then
    Application.OnTime TimeValue("17:30:00"), "Message2"
  ElseIf Time < TimeValue("21:30:00") Then
    Application.OnTime TimeValue("21:30:00"), "Message3"
  End If
End Sub

plante systématiquement quand le classeur est ouvert automatiquement au démarrage d'Excel. Ensuite, il s'exécute normalement quand le classeur est rouvert.

Erreur 1004, La méthode 'OnTime' de l'objet '_Application' a échoué.

Savez-vous quoi faire pour éviter cette erreur ?

Merci d'avance.

Daniel
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…