Alerte temporel

[mjuju]

Bonjour,

Je travail sur des fichiers en partage.

Je cherche un moyen pour que 2 minutes après l'ouverture d'un fichier excel, une "alerte" du type fenêtre s'ouvre (avec notification sonore si possible) indiquant "merci de fermer le fichier"

En vous remerciant

 

[excfl]

Re : Alerte temporel

Bonjour le forum,

Alarme visuelle et sonore :

https://www.excel-downloads.com/threads/decompteur-secondes.157667/

Secondes : saisir 120
Clic/Décompte

excfl

 

[excfl]

Re : Alerte temporel

Re,

Secondes : saisir 120
Clic/OK

Avec barre de régression (% remaining)

excfl

EDIT : bonjour job75

 

[job75]

Re : Alerte temporel

Bonjour mjuju, excfl,

Placez dans ThisWorkbook (Alt+F11) :

Private Sub Workbook_Open()
Application.OnTime 1, "ThisWorkbook.Alerte"
End Sub

Sub Alerte()
Dim t
t = Now + 2 / 1440 'temporisation 2 minutes
While Now < t: DoEvents: Wend
Beep
MsgBox "Merci de fermer le fichier..."
End Sub

Le son Windows "par défaut" est émis, il est modifiable par le Panneau de configuration.

A+

 

[laetitia90]

Re : Alerte temporel

bonjour mjuju , excfl , Job

a mon avis la logique voudrait ....en cas d'inactivité de >2 minutes ???

 

[excfl]

Re : Alerte temporel

Re,
Bonjour laetitia90,

Brancher l'alarme.

Régler l'heure de l'alerte

excfl

 

[mjuju]

Re : Alerte temporel

Bonjour, oui idéalement!

 

[mjuju]

Re : Alerte temporel

Bonjour,

Merci à tous , c'est ce que je cherchais!
J'ai également trouvé une autre solution.

Merci bonne soirée

 

[mjuju]

Re : Alerte temporel

bonjour, oui idéalement