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