probleme fermeture auto fichier

AKSooL

XLDnaute Occasionnel
BOnjour , voici le code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.OnTime Temps, "FermerClasseur", , False
On Error GoTo 0
Temps = Now + TimeValue("00:02:00")
Application.OnTime Temps, "FermerClasseur"
End Sub


Public Temps As Date
Sub FermerClasseur()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub


le probleme , est qu il ferme tous les fichiers excel d ouvert , pas seulement l actif , qqun peut m aide

Merci
 

Pierrot93

XLDnaute Barbatruc

AKSooL

XLDnaute Occasionnel
Re : probleme fermeture auto fichier

en gros j ai mis dans selection change le code, car je voulais que le fichier sauvegarde et ferme si inactivité sur le fichier
 

Pierrot93

XLDnaute Barbatruc
Re : probleme fermeture auto fichier

Re

essaye de placer le code ci-dessous dans le module "thisworkbook" :

Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
On Error Resume Next
Application.OnTime Temps, "FermerClasseur", , False
End Sub
@+
 

Pierrot93

XLDnaute Barbatruc
Re : probleme fermeture auto fichier

Re

désactiver la methhode OnTime en cours à la fermeture du classeur... tu devrais consulter le lien que je t'avais donné....
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas