Discussion :

[dark0000]

Bonjour à tous,

Cela fait un peu plus de 30 minutes que je galère sur un petit souci de conversion String vers Date...
Mon problème est pourtant simple. J'ai un champs disponible à un utilisateur qui peut mettre ce qu'il souhaite (mais moi j'attends une date quand même ).

J'ai essayé pas mal de chose : Cdate, Format, IsDate, des fonctions trouvées sur internet. Rien y fait j'ai un problème que je n'arrive pas à comprendre.

Mon souci :

Quand je rentre la valeur "31/4/20", que je passe cette chaine de caractère dans Format(Datedufichier, "dd/mm/yyyy") le résultat est : 20/04/2031. Il interverti l'année et le jour. Pourtant dans le format je demande autre chose...

Est-ce que quelqu'un a une idée de mon erreur ?

Merci d'avance,

[Philippe Tulliez]

Bonjour,
A adapter à votre format

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub t()
  MsgBox Format(CDate("31/4/20"), "dddd, d mmmmm yyyy")
End Sub

Si cela provient d'une cellule alors c'est MsgBox Format(Range("B3").Value, "dddd, d mmmmm yyyy")

[dark0000]

Meme en essayant cela j'ai le même souci (voir pièce jointe).
Avec la date rentrée en "31/4/20", j'ai le résultat :"dimanche, 20 avril4 2031"

[78chris]

Bonjour

ll faut tester ta date avant d'utiliser Cdate qui avec une année sur 2 digit essaye de trouver une date en réagençant comme il peut ce qui donne des dates là, où cela devrait rejeter

[dark0000]

Je comprends mieux !
C'est quand même curieux que VBA ne fasse pas mieux qu'un simple formatage de cellule...
Je vais être donc obligé de coder une fonction pour formater la date en question avant emploi dans mon code.

Merci en tout cas de l'éclaircicement

[78chris]

RE

De toute façon, l'utilisateur pouvant saisir n'importe quoi, un contrôle est toujours nécessaire

Pour ma part j'utilise cette méthode

• Split de la date selon les /
• vérification qu'il y bien 3 parties
• vérification que la conversion en chaîne de la conversion en date de la saisie est égale à une date fabriquée à partir des 3 parties selon la norme dd/mm/aaaa en complétant éventuellement la partie année si sur 2 digits

Cela permet d'être sûr que la saisie est une date selon l'ordre de notre norme

A près on peut contrôler la logique de la date saisie par rapport au contexte...