Petit Soucis Avec Decompte Fermeture

[piwa]

Bonjour à tout le Forum,

J'ai recupéré sur le forum un code permettant la fermeture au bout d'un certain temps du fichier XL.

Sur ma machine tout fonctionne sauf une chose quand j'arrete la procedure de decompte cela ne fonctionne pas toujours si je travaille sur le fichier et sinon apres fermeture le fichier se réouvre puis se ferme.

De plus comme le fichier est ouvert par d'autres utilisateurs en reseau certains ne sont pas deconnectés du fichier même si tous XP et Même XL je n'arrive pas à trouver le pourquoi ...


Ci desous le Code une partie en Workbook l'autre dans un module

Private Sub Workbook_Open()
ProchainArret
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False
ProchainArret
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close False
On Error Resume Next
Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False ' annule événnement
End Sub

Dans un Module

Public HeureArrêt
Sub ProchainArret()
HeureArrêt = Now + TimeValue("00:05:00")
Application.OnTime HeureArrêt, "Fin"
End Sub
Sub Fin()
On Error Resume Next
Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False 'annule événnement
ThisWorkbook.Close False
End Sub

Sub ArretDecompte()

Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False 'annule événnement

End Sub

Merci de vos suggestions.

 

[piwa]

Re : Petit Soucis Avec Decompte Fermeture

Bonjour le Forum,

Je pense que mon message n'est donc pas assez Clair.

Je dispose d'un code qui fonctionne partiellement qui me permet de fermer le classeur actif sans action sur celui ci pdt 5 mins. Le but eviter que l'un des utilisateurs le laissent ouvert m'empechant ainsi la nuit de la mettre à jour.

Quand j'arrete moi meme la procedure de fermeture du fichier automatique celui ci se ferme quand meme au bout de 5 mins. De plus si je le ferme avant le delais il se reouvre auto et se referme.......

Le code complet et dans le message ci dessous.

Merci de vos avis suggestions.

 

[JCGL]

Re : Petit Soucis Avec Decompte Fermeture

Bonjour à tous,

J'utilise un code similaire sans problème.

Dans le tien je remarque un truc :

Sub Fin()
On Error Resume Next
Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False 'annule événnement
ThisWorkbook.Close False

Il me semble que dans ta routine FIN, tu fais appel à la routine FIN.

Je me trompe peut-être et même sûrement

A+

 

[piwa]

Re : Petit Soucis Avec Decompte Fermeture

Merci JCGL pour ta reponse

C'est vrai que c'est un peu curieux cette histoire de routine fin à l'interieur d'elle même... mais pour l'arret pas de soucis ... le truc c'est la reouverture lors de l'arret de la procedure .....

Bonne Fin de WE à Toi et Merci

 

[JCGL]

Re : Petit Soucis Avec Decompte Fermeture

Re,

Alors je pense qu'il faut agir sur le OnTime mais je suis bien incapable de te donner une solution

Pour Info :

Voici ce qui fonctionne chez moi

Sub SupprimeInterruption()
'supprime le timer à la fermeture du fichier, s'il ne l'est pas déjà.
'Sinon le fichier risque de se rouvrir tout seul !
Dim Heure As Date
On Error Resume Next
Heure = ThisWorkbook.Sheets(1).Evaluate("ChronoTime")
Application.OnTime Heure, "Interruption", schedule:=False
End Sub

A adapter à ton code ;-)

A+

 

[piwa]

Re : Petit Soucis Avec Decompte Fermeture

Merci Encore

Je vais essayer d'adapter le Code .

Merci