Petit soucis de script VBS
Fermé
TheSpeedWave
Messages postés
2
Date d'inscription
dimanche 25 octobre 2009
Statut
Membre
Dernière intervention
25 octobre 2009
-
25 oct. 2009 à 10:24
TheSpeedWave Messages postés 2 Date d'inscription dimanche 25 octobre 2009 Statut Membre Dernière intervention 25 octobre 2009 - 25 oct. 2009 à 12:28
TheSpeedWave Messages postés 2 Date d'inscription dimanche 25 octobre 2009 Statut Membre Dernière intervention 25 octobre 2009 - 25 oct. 2009 à 12:28
A voir également:
- Petit soucis de script VBS
- Script vidéo youtube - Guide
- Vbs windows - Accueil - Optimisation
- Excel trier du plus grand au plus petit - Guide
- Petit 3 ✓ - Forum Word
- Petit 2 clavier iphone ✓ - Forum iPhone
1 réponse
TheSpeedWave
Messages postés
2
Date d'inscription
dimanche 25 octobre 2009
Statut
Membre
Dernière intervention
25 octobre 2009
25 oct. 2009 à 12:28
25 oct. 2009 à 12:28
Dim msg
msg=""
While msg=""
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
wend
J'ai touvé tout seul la solution
msg=""
While msg=""
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
wend
J'ai touvé tout seul la solution