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
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
