Petit soucis de script VBS

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:

---

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.

bonjour ....

une boucle while peu-être ..

Code:

---

1 2 3 4 5 6 7 8

Dim msg msg="" While msg=""   (.... ton code ...)   wend

---

Il faut la placer où exactement ?

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 ?" )

:koi:

remplace :

Code:

---

(.... ton code ...)

---

par ton code

Tout mon code ou une certaine partie ?

C'est bon, j'ai compris, merci beaucoup !

Cordialement