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

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

@+
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 902
Membres
101 834
dernier inscrit
Jeremy06510