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