Petit soucis de script VBS

**TheSpeedWave** · 25/10/2009, 11h07

Bonjour,
Voila, ce matin je m'amusais à programmer un petit script, pour m'amuser et surtout apprendre, mais j'ai un soucis. Voici mon script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
msg=inputbox(msg, "Quel est votre prénom ?" )
Heure ="Il est " & Hour(Now) & "h " & Minute(Now) & "min et " & Second(Now) & "sec."
if Hour(Now)<=18 then
Message="Bonjour"
else
Message= "Bonsoir"
end if
if Hour(Now)<=18 then
Message2="Passez une bonne journée !"
else
Message2= "Passez une bonne soirée !"
end if
if msg<>"" then
MsgBox Message & " " & msg & " !" & vbnewline & Heure & vbnewline & Message2,vbInformation + vbOkOnly + vbApplicationModal + 0,""
end if
if msg="" then
MsgBox "Veuillez entrer votre prénom.",vbCritical + vbOkOnly + vbApplicationModal + 0,""
end if

Comme vous le voyez, si dans mon inputbox, il n'y a rien de marqué, le script annonce une erreur, soit, mais moi j'aimerais ajouter une commande pour retourner au début de mon script, parce que là, après l'erreur, mon script se ferme.

J'espère avoir été clair sur mes indication,

Cordialement.

**SfJ5Rpw8** · 25/10/2009, 11h16

bonjour ....

une boucle while peu-être ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim msg
 msg=""
While msg=""
 
(.... ton code ...)
 
wend

**TheSpeedWave** · 25/10/2009, 11h28

Il faut la placer où exactement ?

**TheSpeedWave** · 25/10/2009, 12h15

Je ne comprend pas ce que vous voulez dire avec votre commande désolé ... Tout ce que je veux, c'est si msg="", afficher
if msg="" then
MsgBox "Veuillez entrer votre prénom.",vbCritical + vbOkOnly + vbApplicationModal + 0,""
end if

et par la suite retourner a:
msg=inputbox(msg, "Quel est votre prénom ?" )