Date inversée....

[zeltron24]

Bonsoir le forum,

Je viens vous demander de l'aide s.v.p. concernant un problème de date.
Depuis peu j'ai remarqué que tous mes formulaires (userform) devant inscrire une date la note à l'envers (cad le mois le jour et l'année) Hors lorque je la note via le clavier la date bonne.
Je ne comprends plus rien et vous remercie d'avance pour votre aide.

Cordialement
Zeltron24

PS:Fichier joint

 

[Bernard_XLD]

Re : Date inversée....

Bonjour

remplaces
Range("A5") = UCase(Left(Format(vMois, "dd/mm/yy"), 1)) _
& Mid(Format(vDate, "dd/mm/yy"), 2)
par
Range("A5") = DateValue(vDate)
d'ailleurs Vmois n'est pas initialisée

Cordialement, A+

 

[Mytå]

Re : Date inversée....

Salut le forum

Ou simplement
Range("A5") = CDate(vDate)

Mytå

 

[zeltron24]

Re : Date inversée....

Bonsoir Myta et Yeahou

Je viens de lire vos réponses et les ai mis en pratique.
C'est Ok ça marche. Je vais surveillé cela de prés durant quelques jours.
Mille merci pour votre aide.

Cordialement
zeltron24