VBScript : Conditions avec msgbox... HELP !
Résolu
Superbeaugosse
Messages postés
25
Date d'inscription
Statut
Membre
Dernière intervention
-
quelqu'un -
quelqu'un -
Bonjour,
Je viens de me mettre au vbscript et j'ai besoin de votre aide !
voici mon bout de code :
msgbox "Lancer programme?", vbQuestion+vbYesNoCancel, "Lancer programme"
If response =Yes Then
msgbox "programme lancé"
Elseif response = No Then
msgbox "programme terminé"
Else
msgbox "Annulation"
End If
Et devinez quoi... Ca marche pas -_-'
Je sais pas ce qu'il faut mettre à la place de response = yes.
J'ai essaye avec answer, msgbox,msgboxresponse,... mais ca marche tjs pas
Quelqu'un aurait-il la solution svp?
Merci d'avance
Superbeaugosse
Je viens de me mettre au vbscript et j'ai besoin de votre aide !
voici mon bout de code :
msgbox "Lancer programme?", vbQuestion+vbYesNoCancel, "Lancer programme"
If response =Yes Then
msgbox "programme lancé"
Elseif response = No Then
msgbox "programme terminé"
Else
msgbox "Annulation"
End If
Et devinez quoi... Ca marche pas -_-'
Je sais pas ce qu'il faut mettre à la place de response = yes.
J'ai essaye avec answer, msgbox,msgboxresponse,... mais ca marche tjs pas
Quelqu'un aurait-il la solution svp?
Merci d'avance
Superbeaugosse
A voir également:
- VBScript : Conditions avec msgbox... HELP !
- Shutdown en vbscript - Forum VB / VBA
- Problème d'InputBox en VBScript ✓ - Forum VB / VBA
- [VBScript] Exécution automatique ✓ - Forum VB / VBA
- [PHP] Exécution d'un VBScript ✓ - Forum PHP
- [VBScript] numéro de semaine ✓ - Forum VB / VBA
7 réponses
Bonjour,
Va a cette adresse tu trouveras ton bonheur
http://www.commentcamarche.net/vbscript/vbs constantes.php3#msgbox
Va a cette adresse tu trouveras ton bonheur
http://www.commentcamarche.net/vbscript/vbs constantes.php3#msgbox
MEA CULPA.....
Quand tu utilises une variable pour récupérer la réponse d'une msgbox il faut mettre des parenthèses après msgbox
reponse = msgbox ( "Lancer programme?", vbQuestion+vbYesNoCancel, "Lancer programme" )
Quand tu utilises une variable pour récupérer la réponse d'une msgbox il faut mettre des parenthèses après msgbox
reponse = msgbox ( "Lancer programme?", vbQuestion+vbYesNoCancel, "Lancer programme" )
Salut,
Si tu disposes de Excel, ouvre VisualBasic, puis demande au compagnon, il y a même des exemples.
J'ai utilisé des MsgBox, et si l'aide de MSOffice ne te donne pas de réponse, je te donnerai le code que j'ai utilisé.
A+
Si tu disposes de Excel, ouvre VisualBasic, puis demande au compagnon, il y a même des exemples.
J'ai utilisé des MsgBox, et si l'aide de MSOffice ne te donne pas de réponse, je te donnerai le code que j'ai utilisé.
A+
Ok mais je connait pas le nom de la vairable que renvoie msgbox
ca donnerait:
if "nom-variable" = 6 then
...
alors c est quoi son nom??
ca donnerait:
if "nom-variable" = 6 then
...
alors c est quoi son nom??
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
j ai essaye mais quand je lance le script ca m affiche une fenetre qui dit :
Ligne : 1
Caract : 18
Erreur : Fin d'instruction attendue
Code : 800A0401
Source : Erreur de compilation Microsoft VBScript
et a la ligne 1 caractere 18 c est l espace entre msgbox et la "
reponse = msgbox "lancer programme", ...
je comprend pas -_-'
Ligne : 1
Caract : 18
Erreur : Fin d'instruction attendue
Code : 800A0401
Source : Erreur de compilation Microsoft VBScript
et a la ligne 1 caractere 18 c est l espace entre msgbox et la "
reponse = msgbox "lancer programme", ...
je comprend pas -_-'
merci bcp tu es mon sauveur!!!! lol
ca prouve qu il faudrais que qq se mette a ecrire un bon tuto de VBScrip^^
ca prouve qu il faudrais que qq se mette a ecrire un bon tuto de VBScrip^^
EH OUI, il faut initialiser une variable qui bva récupérer la valeur du bouton de ta "msgbox"
reponse = msgbox "Lancer programme?", vbQuestion+vbYesNoCancel, "Lancer programme"
ensuite tu pourras faire
if reponse = 6 then
ou alors tu utilises select case
select case reponse
case 1
instructions
case 2
instructions
...
end select
reponse = msgbox "Lancer programme?", vbQuestion+vbYesNoCancel, "Lancer programme"
ensuite tu pourras faire
if reponse = 6 then
ou alors tu utilises select case
select case reponse
case 1
instructions
case 2
instructions
...
end select
