Ok automatique msg box

[Maxime]

Comment faire en sorte qu'après 5 secondes, dans une msgbox vbokonly, l'appui sur ok soit automatique? est ce possible?
si oui, quelle est la procédure suivre?
Max 😉

 

[AV]

Salut,

Sub zzz()
Dim Wsh As Object
Set Wsh = CreateObject('WScript.Shell')
Wsh.Popup 'Test', 1, 'Ce message va se fermer dans quelques secondes'
End Sub

AV [aaa]

 

[Maxime]

Merci!!
A+
Max 😉