Discussion :

[EricBOG]

Bonjour à tous,

J'ai un fichier source avec des données et notamment une qui est du type :
"15.01.2013 08:00".
Le format de cette donnée nèst pas une date mais du texte.

Je souhaite transformer ce texte en format date sans les heures. Pour cela j'utilise cette formule:

Code :

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

Cells(origine).Value = DateValue(Replace(Cells(destination).Value, ".", "/"))

Ca marche à peu près, à savoir que le format est bien en date et sans les heures. Sauf que le format de la date se modifie automatiquement en plein milieu, une fois arrivé au 12eme jour du mois.
Je pense qu'il doit y avoir un rapport avec les formats anglais et autres, et qu'il commence dans un format jusqu'a atteindre le 13 mois... cela n'etant pas possible, il change automatiquement de format.

J'ai essayé d'appliquer la fonction format, mais cela ne fonctionne pas...

Code :

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

Cells(origine).Value = CDate(Format(Cells(destination).Value, "dd.mm.yyyy"))

Merci pour votre aide!!

Eric

[Gourou AWK]

Bonjour Eric

Ton "Probléme" est un pb Windows (et non Excel). Sans entrer dans le detail, c'est comme s'il se disait : Je n'arrive pas à convertir en date ==> elle doit être dans un mauvais format ==> je vais en essayer un autre et Vlan...

C'est caractéristique des algo dont les dates fonctionnent jusqu'au 12 et se plantent à partir du 13!! et encore, faut-il valider le résultat dans le 1 cas. Pour y avoir travailé pendant quelques mois par le passé et pas mal échangé sur des forums US, Il n'ya pas de solution générale à ce problème: il n'y a que des solutions particulières.

Dans ton cas (et puisque tu es sur du format) je passerais par un Dateserial (Y,M,D) en prenant les valeurs dans la chaine par mid, split ou tout autre methode
Salut

[Invité]

Code :

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

1
2
Cells(origine).NumberFormat = "mm/dd/yyyy"
Cells(origine).Value = CDate(Format(Cells(destination).Value, "yyyy-mm-dd"))

[EricBOG]

Code :

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

1
2
Cells(origine).NumberFormat = "mm/dd/yyyy"
Cells(origine).Value = CDate(Format(Cells(destination).Value, "yyyy-mm-dd"))

Salut Robert!

Je viens de tester tes lignes et j'ai en retour un message d'erreur:
"Run Time error 13
Type Mistmatch"

[EricBOG]

Bonjour Eric

Ton "Probléme" est un pb Windows (et non Excel). Sans entrer dans le detail, c'est comme s'il se disait : Je n'arrive pas à convertir en date ==> elle doit être dans un mauvais format ==> je vais en essayer un autre et Vlan...

C'est caractéristique des algo dont les dates fonctionnent jusqu'au 12 et se plantent à partir du 13!! et encore, faut-il valider le résultat dans le 1 cas. Pour y avoir travailé pendant quelques mois par le passé et pas mal échangé sur des forums US, Il n'ya pas de solution générale à ce problème: il n'y a que des solutions particulières.

Dans ton cas (et puisque tu es sur du format) je passerais par un Dateserial (Y,M,D) en prenant les valeurs dans la chaine par mid, split ou tout autre methode
Salut

Salut et merci!
J'ai implémenté comme tu m'as indiqué avec la fonction Dateserial et Mid pour extraires les caractères. Ca fonctionne parfaitement!
Eric