Discussion :

[Cahlagan]

Bonjour,

J'aimerais fermer un fichier, de manière automatique, après tant de minutes d'inactivité. Ca, j'y arrive. Le fichier s'enregistre lorsque le délai est passé, ferme le fichier si plusieurs fichiers Excel sont ouverts, ou quitte l'application s'il est le seul ouvert.

Ce qui ne marche pas, c'est comment désactiver le message: "Voulez-vous enregistrer avant de quitter?".

Ce que je n'arrive pas non plus à faire, c'est afficher un msgbox qui dirait, dix secondes avant la fermeture, un message du style "Le fichier va se fermer dans dix secondes", puis affiche un décompte en secondes, 9, 8, 7, 6, etc. Je voudrais que l'utilisateur n'ait pas de cases à cocher Ok (pas de cases à cocher du tout)... et je ne suis pas très fan des UserForm, que je préférerais éviter.

Si quelqu'un a une idée, ou même un début d'idée, c'est avec plaisir qu'il peut me le partager!

[Franc]

Salut, en ce qui concerne l'affichage du message, il faut aller voir du côté de Application.DisplayAlerts.

[laurent_ott]

afficher un msgbox qui dirait, dix secondes avant la fermeture, un message du style "Le fichier va se fermer dans dix secondes", puis affiche un décompte en secondes, 9, 8, 7, 6, etc.

Bonjour,
Pour afficher une boîte de message pendant 10 secondes (sans afficher le décompte) :

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call MsgBoxTimer("Mon message",vbOKOnly, "Mon titre", 10)

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'----------------------------------------------------------------------------------------
Public Function MsgBoxTimer(Message As String, Boutons As VbMsgBoxStyle, Titre As String, _
                            DuréeAffichage As Byte) As VbMsgBoxResult
'----------------------------------------------------------------------------------------
' Affiche une boite de message comme MsgBox, mais avec une durée d'affichage maximale
' qui peut être déterminée.
'----------------------------------------------------------------------------------------
' Message : Message à afficher comme pour la fonction MsgBox.
' Boutons : Les mêmes boutons que pour la fonction MsgBox.
' Titre : Le titre de la boite comme pour la fonction MsgBox.
' DuréeAffichege : Durée en seconde d'affichage de la boite. Sauf si un choix est fait par l'utilisateur.
'----------------------------------------------------------------------------------------
' Renvoie : -1 si pas de choix, ou une constante VbMsgBoxResult comme pour MsgBox.
'----------------------------------------------------------------------------------------
Dim InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
MsgBoxTimer = InfoBox.Popup(Message, DuréeAffichage, Titre, Boutons)
End Function
'----------------------------------------------------------------------------------------

Pour afficher le décompte il faut utiliser la fonction proposée par Thierry GASPERMENT (Arkham46), mais c'est 1 200 lignes de code, et est-ce bien nécessaire ?

[Cahlagan]

laurent_ott,

Merci pour la solution d'affichage d'une boîte de message pendant un laps de temps! Très simple, je la conserverai précieusement!

Je vais peut-être éviter les 1200 lignes... J'ai trouvé une solution qui affiche un décompte dans la barre de titre ("Le fichier va se fermer dans 10 secondes", puis, 9, etc), sans que cela ne provoque de saccades, comme lorsque ScreenUpdating est sur True. Même, mais ça ce n'était pas voulu, si le fichier est en arrière-plan, le message s'affiche sur celui qui est devant (pour ne pas créer de confusion, j'ai mentionné "Le fichier XX va se fermer dans 10 secondes"). Solution bricolée avec l'aide de ChatGPT, qui n'est pas toujours fiable, mais qui progresse à grande vitesse. Surtout utile lorsqu'on a besoin d'avancer vite sur un projet.

Merci en tout cas!