Thank you for reply.
here my 2 solution:
- a temporized msgbox
(usage : msgboxtimed("hello world!")
-----------8<---------------------------------------------------------------------------------------------
Private Sub msgboxtimed(my_text As String)
Const wshYes = 6
Const wshNo = 7
Const wshYesNoDialog = 4
Const wshQuestionMark = 32
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
intReturn = objShell.PopUp(my_text, 3, "Temporized message : 3 sec.")
End Sub
----------->8-----------------------------------------------------------------------
- a while cicle
(usage : call waitforme )
----------->8-----------------------------------------------------------------------
Private Sub waitforme()
pausainsecondi = 5
Dim DelayEnd As Double
DelayEnd = DateAdd("s", pausainsecondi, Now)
While DateDiff("s", Now, DelayEnd) > 0
Wend
End Sub
-----------8<---------------------------------------------------------------------------------------------
Thank you all !
A.