Erreur d'execution 13

Bonjour,

Après 2 jours de recherches infructueuses, je sollicite votre aide.

Je cherche à fermer automatiquement un classeur excel, après 15mn d'inactivité dessus.

J'ai programmé le code ci-dessous, mais je n'arrive toujours pas à éviter l'erreur d'exécution 13

Merci d'avance pour vos aides

Code sur le ThisWorbook

Private Sub workbook_open()

   tpsOuverture = Now()

If Not Application.ThisWorkbook.ReadOnly Then  ' si on est en mode écriture

    tpsFermeture = tpsOuverture + TimeValue("00:15:00") 'on prevoit fermer la feuille 15mn après ouverture
    Application.OnTime tpsFermeture, "fermetureAuto" 'on lance la sub fermuture Auto à l'heure tps fermeture

Else:
   tpsFermeture = TimeValue("24:00:00") 'si on est mode lecture seule
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
workbook_open
End Sub

 

Module programmé

Option Explicit

Public tpsOuverture, tpsFermeture As Double

Private Sub Fermetureauto()
   ThisWorkbook.Close savechanges:=True
End Sub

Bonjour,

Une proposition à étudier et à adapter.

Patiente 30 secondes !...

Cdlt.

Merci pour ton aide, mais dès l'ouverture de ton fichier, j'ai "erreur execution 1004, la méthode 'OnTime' de l'objet application à échoué" ...

Bonjour le fil, bonjour le forum,

Testé chez moi ça marche nickel (Excel 2010 - Windows 7 pro) !...

Avez donc déjà rencontré ce problème ? Une configuration excel à faire ? Une bibliothèque à installer peut être ? Comment faire...

Re,

Bonjour Thau Thème,

Ré-ouvre le classeur et patiente !...

Il y a quelques fois des soucis avec les fichers téléchargés.

Je n'ai pas d'erreur avec Excel 2016 (Win 10) et Thau Thème non plus avec Excel 2010 (Win 7).

Cdlt.

Ne marche toujours pas...

Mon Excel (2010) semble ne pas reconnaitre l'application OnTime...

Jean-Eric a écrit :

Bonjour,

Une proposition à étudier et à adapter.

Patiente 30 secondes !...

Cdlt.

fermer classeur après x minutes sans activité 2.xlsm

Petite question de programmation en attendant,

quelle est la nécessitée d'appeler la procédure "StopTimer" dans Workbook_SheetCalculate et Workbook_SheetSelectionChange ?

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Call StopTimer
    Call SetTimer
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    Call StopTimer
    Call SetTimer
End Sub

Sub StopTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=DownTime, _
                       Procedure:="ShutDown", Schedule:=False
    On Error GoTo 0
End Sub

Appeler cette fonction ne devrait d'ailleurs donc pas fermer le classeur à chaque changement de cellule ou recalcule de la feuille ? Je ne comprend pas pourquoi ce n'est pas le cas...

Heellllpppp ! je n'ai toujours pas trouvé la solution,

J'ai copié collé le programmation proposé et j'ai maintenant une erreur 1004 "la méthode Ontime de lo'bjet application a échoué " !

je pense avoir un réel problème avec mon excel (2010)...

Besoin de votre aide

Bonjour,

Y-a-t 'il une personne sous Excel 2013 pour tester la procédure du fichier joint ?

Cdlt.

Jean-Eric a écrit :

Bonjour,

Y-a-t 'il une personne sous Excel 2013 pour tester la procédure du fichier joint ?

Cdlt.

fermer classeur après x minutes sans activité 2.xlsm

j'ai résolu mon problème !!!

mon excel avait mis une sécurité car il a détecté le fichier comme provenu d'internet, j'ai donc débloquer cette sécurité dans les options d'excel (options/centre de recherche de la confidentialité/mode protégé et decocher la bonne case)

Re,

Cest une bonne nouvelle … pour toi.

Pense à clore le sujet.

Bon Weekend.

Cdlt.

Merci pour ton aide