Vbs - controle de champ

y' a personne qui peut m'aider ????

plse !!

Merci !

Bonjour,

Voici quelques possibilités :

Dim oFS
Dim Valeur, Saisie

Set oFS = CreateObject("Scripting.FileSystemObject")

Saisie = InputBox("Saisie", "Date", "18/02/2005")
Valeur = FormatDateTime(Saisie, vbGeneralDate)
wscript.echo Valeur
Valeur = FormatDateTime(Saisie,vbLongDate)
wscript.echo Valeur
Valeur = FormatDateTime(Saisie,vbShortDate)
wscript.echo Valeur

Lupin

Bonjour,

Merci de ta reponse

Mais en fait, je voudrais que lorsque l'utilisateur saisi :
- quoi que ce soit dans le champ date, s'il y a un caractere par ex, on lui dise Champ incorrect veuillez saisir une date

- et s'il ne met pas une date correcte (ex: 30/02/2005) on lui dit veullez saisir un date correcte !

Merci de ton aide

Bonjour,

J'ai trouver la solution .. enfin ma solution !

J'ai fait comme ceci :

'verifier si le contenu est vide
If heure = "" Then
MsgBox "La zone heure n'est pas renseignée, veuillez saisir !", 48 ,"Probleme Saisie"
erreur = erreur + 1
oIE.document.FormHtml.heure.Focus
End if

'verifier si le contenu est numerique
If Not heure = "" and Not IsNumeric(oIE.document.FormHtml.heure.value) Then
MsgBox "La zone heure n'est pas numérique !", 48 ,"Probleme Saisie"
erreur = erreur + 1
oIE.document.FormHtml.heure.Focus
End if

Merci quand meme !