Cette fonction a été créé par mon collegue et affiche un message dans une dialogBox qui se ferme apres un certain temps paramètrable. Utile lors de mes automatisation de test pour m'indiquer le stade du test sans pour autant l'interrompre.
'==================================
'The function MsgBoxTimeout below shows a message box
'that disappears after the specified timeout (in seconds).
'The script execution then continues.
'If TimeOut is 0, it behaves just like a normal message box.
' If TimeOut is greater than 0, ' the dialog box disappears after the specified number of seconds.
'---------------------------------
Public Sub MsgBoxTimeout (Text, Title, TimeOut)
Set WshShell = CreateObject("WScript.Shell")
WshShell.Popup Text, TimeOut, Title
End Sub
