Temporiser un "msgbox"

familitom · 8 Avril 2010

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 · 8 Avril 2010

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

Code:

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

Temporiser un "msgbox"

familitom

Guest

Staple1600

XLDnaute Barbatruc

Discussions similaires

Temporiser un "msgbox"

familitom

Guest

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency