Msgbox temporaire

[news]

bonjour à tous du forum,

je voudrais ajouter temporairement une Msgbox("le fichier se fermera bientôt") s'ouvre et se ferme automatiquement après 20 secondes,

j'utilise l'expression suivante, mais Msgbox ne se ferme pas soi-même, seulement si je clique sur le bouton OK :

Sub SelfClosingMsgBox()
CreateObject("WScript.Shell").Popup "le fichier se fermera bientôt", 20, "Information"
End Sub

est-ce qu'il faut activer WScript dans vba > Outils
et ou je sélectionne ceci?

y a-t-il autre expression qu'on peut utilser, sans utiliser WScript?,

merci d'avance de réponses,

bonne journée,





est à séelcmais se toruve dans quelle référence exacte?

 

[Dull]

Re : Msgbox temporaire

Salut news le Forum

Tu peut contourner ce problème avec un UserForm

J'ai mis un bouton mais tu peut mettre ce code dans une procedure quelqonque

Regarde le fichier joint et dis nous

 

[news]

Re : Msgbox temporaire

Bonjour à tous du forum,

merci pour réponse,
l'expression fonctionne bien pour ouvrir un userform et fermer avec close,save file,

ci-dessous autre application d'insérer userform et hide après 2 secondes,

Sub View_infomation()
Application.OnTime Now + TimeValue("00:00:02"), "informationclose"
UserForm2.Show
End Sub

Sub informationclose()
UserForm2.Hide
End Sub

bonne journée,