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

Discussions similaires


Haut Bas