Inputbox, boucle
HELP
-
XOB -
XOB -
Bonjour,
Je cherche à mettre une boucle dans mon programme pour que quand il me demande
fin du programme et que je dis non il relance le programme (retour en haut des instructions)
voici :
P=inputbox("tapez votre nom")
if P= "BOB" then
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer http:// .........la je sais quoi mettre..........")
elseif P= "PAUL" then
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer http:// .......la aussi...........")
else
nomquelconque = msgbox ("fin du programme ?" , vbYesNo+vbQuestion , "question")
if nomquelconque = vbYes then
'la c'est bon y s'en va
else
'et la y faut qui redémarre mais j'y arrive pas
end if
end if
Je cherche à mettre une boucle dans mon programme pour que quand il me demande
fin du programme et que je dis non il relance le programme (retour en haut des instructions)
voici :
P=inputbox("tapez votre nom")
if P= "BOB" then
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer http:// .........la je sais quoi mettre..........")
elseif P= "PAUL" then
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer http:// .......la aussi...........")
else
nomquelconque = msgbox ("fin du programme ?" , vbYesNo+vbQuestion , "question")
if nomquelconque = vbYes then
'la c'est bon y s'en va
else
'et la y faut qui redémarre mais j'y arrive pas
end if
end if
A voir également:
- Inputbox, boucle
- Mise à disposition de boucle locale dédiée ✓ - Forum Freebox
- Vlc lecture en boucle ✓ - Forum Lecteurs et supports vidéo
- Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
- Problème xiaomi redmi note 8t s'allume et s'éteint vibre - Forum Xiaomi
- Comment lire en boucle une music sur VLC - Forum Lecteurs et supports vidéo
1 réponse
J'ai une methode qui est bien sympa et qui permet au programme de rester en execution.
do
'je met un debut de boucle
P=inputbox("tapez votre nom")
if P= "BOB" then
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer http:// .........la je sais quoi mettre..........")
elseif P= "PAUL" then
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer http:// .......la aussi...........")
else
nomquelconque = msgbox ("fin du programme ?" , vbYesNo+vbQuestion , "question")
if nomquelconque = vbYes then
Wscript.Quit
'Grace à cela le programme s'arrete et ne tiendra pas compte de la suite.
end if
end if
loop
'je termine ma boucle
do
'je met un debut de boucle
P=inputbox("tapez votre nom")
if P= "BOB" then
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer http:// .........la je sais quoi mettre..........")
elseif P= "PAUL" then
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("explorer http:// .......la aussi...........")
else
nomquelconque = msgbox ("fin du programme ?" , vbYesNo+vbQuestion , "question")
if nomquelconque = vbYes then
Wscript.Quit
'Grace à cela le programme s'arrete et ne tiendra pas compte de la suite.
end if
end if
loop
'je termine ma boucle
