13GIBE59
XLDnaute Accro
Bonjour le forum.
La macro suivante permet de fermer et d'enregistrer un fichier automatiquement :
Dans la feuille :
Dans un module :
Mais ce code ne fonctionne qu'après changement de contenu d'une cellule
(Worksheet_SelectionChange).
Que faut-il écrire pour fermer automatiquement le fichier après une période d'inactivité, de "non changement" ? (une sorte de Worksheet_SelectionNoChange, en quelque sorte).
Merci d'avance.
La macro suivante permet de fermer et d'enregistrer un fichier automatiquement :
Dans la feuille :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnTime Now + TimeValue("00:05:00"), "FermerClasseur"
End SubDans un module :
Code:
Sub FermerClasseur()
ActiveWorkbook.Save
ActiveWorkbook.Close
End SubMais ce code ne fonctionne qu'après changement de contenu d'une cellule
(Worksheet_SelectionChange).
Que faut-il écrire pour fermer automatiquement le fichier après une période d'inactivité, de "non changement" ? (une sorte de Worksheet_SelectionNoChange, en quelque sorte).
Merci d'avance.