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