Comment fermer une msgbox (en vbs) automatiquement ? [Résolu/Fermé]

Signaler
Messages postés
101
Date d'inscription
vendredi 5 avril 2013
Statut
Membre
Dernière intervention
23 décembre 2014
-
Messages postés
15259
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 août 2020
-
Au bout de Xsecondes
Car la je sèche merci de me dire si c'est possible.
Je suis sous Windows 7
Merci de vos réponses

5 réponses

Messages postés
15259
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 août 2020
1 319
Bonjour,

msgbox de base pas possible, alternative: popup, exemple a adapter ci dessous

Const TIMEOUT = 5
Set objShell = WScript.CreateObject("WScript.Shell")

Reponse = objShell.Popup(vbCrLf & _
 "Ce Popup remplace un MsgBox" &vbCrLf&vbCrLf& "Sans action de votre part," &vbCrLf&vbCrLf&_
  "ce popup s'effacera dans " &vbCrLf& TIMEOUT & " secondes" &vbCrLf&vbCrLf&_
  "Vous ne pouvez pas fermer ce popup par la croix !!!" ,TIMEOUT, _
  "MsgBox personnalisé",2)
 
Select Case Reponse
   Case vbYes: objShell.Popup "Vous avez cliqué sur Oui" & vbCrLf & vbCrLf & vbCrLf,TIMEOUT
   Case vbNo:  objShell.Popup "Vous avez cliqué sur Non" & vbCrLf & vbCrLf & vbCrLf,TIMEOUT
   Case -1:    Wscript.Quit
End Select
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 56940 internautes nous ont dit merci ce mois-ci

Messages postés
101
Date d'inscription
vendredi 5 avril 2013
Statut
Membre
Dernière intervention
23 décembre 2014
4
Peut tu m'expliquer ou tu demande oui ou non pour la fin ?
Messages postés
15259
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 août 2020
1 319
Bonjour,

En effet, les boutons ne correspondent pas aux test, j'ai teste le time out mais pas les boutons.

Const TIMEOUT = 10
Dim wshShell, btn
Set wshShell = WScript.CreateObject("WScript.Shell")

' Call the Popup method with a x second timeout.
btn = WshShell.Popup("Do you feel alright?", TIMEOUT, "Question:", &H4 + &H20)

Select Case btn
    ' Yes button pressed.
    case 6
    	WshShell.Popup"Do you feel alright?", TIMEOUT, "Oui:"
    ' No button pressed.
    case 7
    	WshShell.Popup"Do you feel alright?", TIMEOUT, "Non:"
    ' Timed out.
    case -1
    	WshShell.Popup"Do you feel alright?", TIMEOUT, "TimeOut:"
End Select
Messages postés
101
Date d'inscription
vendredi 5 avril 2013
Statut
Membre
Dernière intervention
23 décembre 2014
4
Donc je récapitule :
1)on définit le temps d'affichage des fenêtres
2) les &H4 et & H20 sont pour une question oui/non

Ensuite le programme réagit en fonction de la réponse (même si le résultat reste le même.)
Messages postés
15259
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 août 2020
1 319
Re,

Ensuite le programme réagit en fonction de la réponse (même si le résultat reste le même.) que voulez-vous dire ?????
Messages postés
101
Date d'inscription
vendredi 5 avril 2013
Statut
Membre
Dernière intervention
23 décembre 2014
4
Que quelques soit la réponse le résultat sera le même
Messages postés
15259
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 août 2020
1 319
Re,

tout depend de ce que vous programmerez a chaque test!!!!
Messages postés
101
Date d'inscription
vendredi 5 avril 2013
Statut
Membre
Dernière intervention
23 décembre 2014
4
Oui mais dans ce cas la...
Messages postés
15259
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 août 2020
1 319
Re,

Dans l'exemple que je vous ai donne, apres l'affichage du 2eme popup, le programme continue sans action particuliere.