Sub a()
CreateObject("Wscript.shell").popup "Ce message se fermera dans 3 secondes", 3, "Titre de la fenêtre", 64
End Sub
Sub b()
Dim Message$, Titre$
Message = "Nous sommes le : " & Date & Chr(13)
Message = Message & "Il est : " & Time
Titre = Application.UserName
CreateObject("Wscript.shell").popup Message, 3, Titre, 64
End Sub
CreateObject("Wscript.shell").popup "Ce message se fermera dans 3 secondes", 3, "Titre de la fenêtre",
64
Set s = CreateObject("WScript.Shell")
s.popUP ("Ce message se fermera dans 3 secondes"), 3, "Titre de la fenêtre", 64
Set s = Nothing