Saisie date lors d'ouverture avec vérification

[Steph]

Bonjour à tous,
une prtite question toute simple :

Lors de l'ouverture de mon fichier un Msgbox s'ouvre et demande de saisir la date.

Comment faire pour vérifier la saisie (qu'elle ne soit ni nulle, ni 42/27/3054) et qu'un msgbox s'ouvre en disant 'Veuillez sasir une date valide' (sans que le débogueur vba s'ouvre.

Voici mon code actuel dans le Workbook:

Private Sub Workbook_Open()

retour:

Date = InputBox('Entrer la date à laquelle les analyses ont été réalisées (jj/mm/aaaa)')

If Date = '' Then
MsgBox 'Entrez une date valide'
GoTo retour:
else
Range('C1') = Date
End If
End Sub

Merci bien

Steph
NB : Vous trouverez aussi mon fichier en pièce jointe.
[file name=essai2.zip size=6289]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai2.zip[/file]

 

[PascalXLD]

Bonjour

Premier petit point on utilise pas Date comme nom de vraible car Date correspond à la date système

sinon voici un petit bout de code

Private Sub Workbook_Open()

Dim MaDate As Date
retour:
On Error GoTo fin
MaDate = InputBox('Entrer la date à laquelle les analyses ont été réalisées (jj/mm/aaaa)'Â'Â')

Range('C1'Â'Â') = MaDate
Exit Sub
fin:
MsgBox 'Entrez une date valide'
GoTo retour

End Sub

Message édité par: Pascal76, à: 08/04/2005 15:22

 

[Bernard_XLD]

Bonjour Steph, le forum

evite d'utiliser date qui est connu en vba, remplaces par exemple par Date_String.
Tu peux également préciser ta donnée par un
Dim Date_String as String
en début de code

dans ton code, remplaces

If Date_String = '' Then

par

If Not (IsDate(Date_String)) Then

Cordialement, A+

Edition:
Oups, Pascal, je ne t'avais pas vu

Message édité par: yeahou, à: 08/04/2005 15:32

 

[Steph]

Merci bien à tous les deux