Créer un fichier Vbs "Oui ou non" plus avancé

Version imprimable

23/07/2017, 17h15
Gogoud-th

Créer un fichier Vbs "Oui ou non" plus avancé

Bonjour,

Je suis nouveau ici, et

j'aimerais savoir si il est possible de créé plusieurs message "oui ou non" avec le bloc note, Je m'explique...

Genre :

Premier message : avez vous bien dormi ?

Message de réponse positif : Tant mieux

Message de réponse négatif + deuxième question : Dommage, et avez-vous manger ?

Message de réponse positif : Ok, eh bien bon appétit !

Message de réponse négatif : Dans ce cas, je vous laisse tranquille.

Merci d'avance.

Salut Gogoud-th, bienvenue sur DVP

Citation:

message "oui ou non" avec le bloc note

Pourquoi spécialement avec le bloc note?
2 exemples:
Avec un msgbox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim Rep
 
Sub repondre1()
Rep = Msgbox("1- Veuillez repondre oui pour continuer",VByesNo,"Premiere question")
if Rep = VBNo then
        repondre1
        else
        repondre2
end if
End Sub
 
Sub repondre2()
Rep = Msgbox("2- Veuillez repondre oui pour continuer",VByesNo,"Deuxieme question")
if Rep = VBNo then
        msgbox "pas bien de ne pas avoir repondu à la question 2"
        repondre1
        else
        repondre3
end if
End Sub
 
Sub repondre3()
Rep = Msgbox("3- Veuillez repondre oui pour continuer",VByesNo,"Troisiéme question")
if Rep = VBNo then
        msgbox "pas bien de ne pas avoir repondu à la question 3"
        repondre1
        else
        msgbox "Trés bien d'avoir repondu oui jusqu'à la question 3"
end if
End Sub
 
repondre1

Avec un Popup

Code:

1
2
3
4
5
6
7
8
9
Dim WshShell, BtnCode
Set WshShell = CreateObject("WScript.Shell")
BtnCode = WshShell.Popup("Voulez vous répondre ?", 5, "Question:", 4 + 48)
Set WshShell = nothing
Select Case BtnCode
case 6:      msgbox "C'est bien gentil."
case 7:      msgbox "Tanpis pour vous."
case -1:     msgbox "Trop tard, les 5 Scs sont passées"
End Select

Merci pour votre réponse et pour la bienvenu sur le forum.

Pour le bloc note, c'est par ce que sur certain forum, ils disaient qu'on pouvait utiliser le bloc note, donc j'en suis resté à ce programme.

Concernant vos exemple, ce que je recherche ressemblerait plus au deuxième exemple qu'au premier.

Je voudrais un

Un "oui/non" avec des exclamation, interrogation, croix.

Jusqu'ici, je n'ai réussi qu'a faire ça, je n'ai pas réussi à faire plus de réponse :
Code:

1 2 3 4 5 6 7 8 9 x = msgbox("Bonjour à vous, pouvez-vous ouvrir firefox s'il vous plaît ",4+32+0,"Question") If x = 6 Then y = msgbox("Merci., et maintenant le bloc note",0+64,"Ouverture") End If If x = 7 Then z = msgbox("Vous ne voulez pas ?",0+64,"Attention !") End If
Je n'arrive pas à donner une réponse au "vous ne voulez pas ?" ainsi que le "merci, et maintenant le bloc note"

23/07/2017, 20h27
ProgElecT

Ok

Regardes du coté de ce lien: Faire disparaitre une MsgBox au bout d'un certain temps ?
Bien que traitant du Popup, c'est pareil que pour un MsgBox, il y est décrit les différentes boîtes de dialogue que tu peux utiliser, et d'autres informations.

Pour avoir x = 7, il faut avoir la boîte de dialogue 4 ou vbYesNo qui est la constante équivalente.
23/07/2017, 21h03
Gogoud-th

Merci, mais je suis encore très expérimenter, je ne comprend pas grand chose, je voulais juste faire un message surprise à un copain.

mais je voudrais juste savoir si il est possible de faire ce schéma ? et comment le faire ?

Re

Ce n'ai plus vraiment un problème de code mais de logique ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim x
x = msgbox("Bonjour à vous, pouvez-vous ouvrir firefox s'il vous plaît ",4+32+0,"Question")
 
If x = 6 Then
        x = msgbox("Merci., et maintenant le bloc note",4+64,"Ouverture")
        If x = 6 Then
                msgbox "Merci, c'est bon je vous laisse tranquille",0+64,"Ouverture"
                Else
                x = msgbox("Vous ne voulez pas l'ouvrir?",4+64,"Attention")
                If x = 6  Then
                        msgbox "D'ac",0+64,"Ouverture"
                        Else
                        msgbox "Merci bien",0+64,"Attention"
                End If
        End If
        Else
        x = msgbox("Vous ne voulez pas ?",4+64,"Attention !")
        If x = 6 Then
                msgbox "Ok",0+64,"Attention"
                Else
                msgbox "Snif",0+64,"Attention"
        End If
End If

24/07/2017, 01h49
Gogoud-th

Super !!!

merci pour votre temps et d'avoir fait le code ! :D

Problème résolu du coup.