durée affichage msgbox

[darib52]

bonjour à tous,
j'ai une macro qui se termine par l'affichage d'une msgbox qui confirme que l'opération s'est bien déroulée.
je souhaiterais que le fichier se ferme automatiquement sans sauvegarde après 5 secondes (par exemple) d'affichage de la msgbox.
quel peut être le code à insérer ?

merci de conseils.
amicalement

 

[darib52]

le fichier

 

[michel_m]

Bonsoir,

Ci dessous proposition (trouvée sur le site de Fréderic Sigonneau, je crois...)

Sub MsgFlash(Msg$, NbSecondes&)
Dim WshShell
Set WshShell = CreateObject('WScript.Shell')
WshShell.Popup Msg, NbSecondes, , 71
End Sub


Sub Test()
Dim Msg$
Msg = 'Ceci est un test'
MsgFlash Msg, 3
End Sub

Bonne soirée

Michel_M

 

[darib52]

merci

 

[darib52]

merci