Temporiser un "msgbox"

[familitom]

Bonjour, comment puis-je temporiser l'affichage la macro suivante pendant 10 secondes.
Merci.

Sub Impression()

ActiveSheet.PrintOut

If (PrintOut = 1) Then
MsgBox "Impréssion en cours"

End If
End Sub

 

[Staple1600]

Re : Temporiser un "msgbox"

Bonjour



Une possibilité bien pratique

Cette MsgBox d'un genre particulier s'affichera pendant 10 secondes et se fermera même tout seule

Sub a()
Dim WshShell, Mess
Set WshShell = CreateObject("WScript.Shell")
ActiveSheet.PrintOut 1
Mess = WshShell.Popup("Impression en cours", 10, "Avertissement", 0)
End Sub