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...

[Menhir]

Ce problème a été traité des dizaines de fois sur ce forum.
https://www.developpez.net/forums/d2...-jj-aa-aa-vba/
https://www.developpez.net/forums/d1...-annee-nombre/
https://www.developpez.net/forums/d1.../#post10291744
https://www.developpez.net/forums/d1.../#post10479235
... et de nombreux autres ...

A ma connaissance, la méthode la plus fiable pour transformer une date texte en vraie date, c'est de la décomposer par des Split et de la recomposer par un DateSerial.

[Ben_L]

Bonjour à vous,

Le sujet est en effet récurrent. Je me permets d'ajouter une méthode qui n'est pas souvent citée : l'utilisation de TextToColumns.
Elle nécessite de passer par une cellule Excel, ce qui peut être gênant... Mais elle permet de spécifier le format dans lequel la date est initialement écrite (via la 2ème valeur du paramètre FieldInfo).

Code :

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

1
2
3
4
5
6
7
8
Public Sub TestDate()
    Dim Dat As Date, Rng As Range
    Set Rng = ThisWorkbook.Sheets(1).Cells(1, 1)
    Rng.Value = "20/04/14"
    Rng.TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, xlYMDFormat)
    Dat = Rng.Value
    MsgBox Day(Dat) & "/" & Month(Dat) & "/" & Year(Dat)
End Sub

Cdt