Fermeture automatique d'un fichier

[13GIBE59]

Bonjour le forum.

La macro suivante permet de fermer et d'enregistrer un fichier automatiquement :

Dans la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnTime Now + TimeValue("00:05:00"), "FermerClasseur"
End Sub

Dans un module :

Sub FermerClasseur()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

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.

 

[tototiti2008]

Re : Fermeture automatique d'un fichier

Bonjour 13GIBE59,

un essai (du code dans Feuil1, Thisworkbook et Module1)

 

[13GIBE59]

Re : Fermeture automatique d'un fichier

Salut Tototiti.

Merci de t'intéresser à mes questions existentielles...
Sauf erreur de ma part, j'ai testé ton fichier (pré enregistré sur mon bureau), et après 10 minutes d'attente, il ne se ferme toujours pas.

Chez toi, ça marche ?

A +

 

[tototiti2008]

Re : Fermeture automatique d'un fichier

Re,

j'ai modifié la pièce jointe au-dessus.
J'ai rajouté le "compte à rebours" à l'ouverture du fichier.
avant il ne se mettait en route que si tu changeais de cellule.

 

[13GIBE59]

Re : Fermeture automatique d'un fichier

Re.

Je n'ai pas tout compris...

j'ai modifié la pièce jointe au-dessus.
J'ai rajouté le "compte à rebours" à l'ouverture du fichier.
avant il ne se mettait en route que si tu changeais de cellule.

 

[tototiti2008]

Re : Fermeture automatique d'un fichier

Re,

mais si tu reprends le fichier dans le post au-dessus, il fonctionne maintenant ?

 

[13GIBE59]

Re : Fermeture automatique d'un fichier

Le post au dessus, c'est le post précédent ?

 

[tototiti2008]

Re : Fermeture automatique d'un fichier

Re,

le seul qui a un fichier
https://www.excel-downloads.com/threads/fermeture-automatique-dun-fichier.127760/

 

[13GIBE59]

Re : Fermeture automatique d'un fichier

Ok. mais pour moi, le post précédent, il est au-dessous. En outre, j'ignorais qu'on pouvait modifier un messsage tant de temps après son envoi.

Je vois et je te dis.

 

[13GIBE59]

Re : Fermeture automatique d'un fichier

Super Tototiti, ça marche impec !

Merci beaucoup.

 

[tototiti2008]

Re : Fermeture automatique d'un fichier

Re,

et moi j'ignorais que l'on pouvait inverser l'ordre des messages

à bientôt

 

[13GIBE59]

Re : Fermeture automatique d'un fichier

Tableau de bord -> modifier vos options -> options d'affichage des discussions.

Merci à Brigitte qui m'a appris le truc !

 

[corsu2a]

Re : Fermeture automatique d'un fichier

Bonjour 13GIBE59,

un essai (du code dans Feuil1, Thisworkbook et Module1)

Bonjour @tototiti2008

Cette macro m'intéresse mais a l'ouverture du fichier

Merci