Discussion :

[simo1112]

bonjour à tous

je suis nouveau sur ce forum et ma question est relative a EXCEL et aussi a VBA et j'espère etre sur le bon forum!

J'importe d'un site une date en B2 genre Jul 26 2011 en format texte (confirmé par ESTTEXTE) et je veux la rendre utilisable en
format Date YYYY-MM-DD.

Alors en C3 j'ai déjà la formule suivante:

Code :

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

 =CONCATENER("=dateval(";CAR(34);"2011-";REMPLACER(GAUCHE($B$2;3);1;3;$B$3);"-";STXT($B$2;5;2);CAR(34);")")

La cellule B3 me sert a transformer le "Jul" en "7"....

Je fais ensuite un copier-coller_valeur par MACRO de C3 dans C2 --qui est formatée en Date YYYY-MM-DD-- espérant y retrouver 2011-07-26 mais j'y trouve plutôt

Code :

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

=dateval("2011-7-26")

Pour avoir le 2011-7-26 dans cette cellule C2 , je dois faire manuellement un doubleClick puis un Enter sur C2 --intervention via msgbox--...

Je cherche à automatiser à 100% cette macro.

J'ai essayé plusieurs solutions--Convertir , copy.value etc-- sans succès.

Comment eviter l'obligation du doubleClick puis un Enter sur C2 pour avoir ma date dans le format recherché?

Merci de toute suggestion.

[tedo01]

Bonjour,
Le but est d'avoir en C3 une date, et non une chaîne de caractère.
Il faut donc utiliser directement la fonction DATEVAL, sans passer par CONCATENER :

Code :

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

=DATEVAL("2011-" & REMPLACER(GAUCHE($B$2;3);1;3;$B$3) & "-" & STXT($B$2;5;2))

Une autre variante pour s'affranchir des problèmes de format de date, la fonction DATE prend comme arguments l'année, le mois et le jour :

Code :

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

=DATE(2011; REMPLACER(GAUCHE($B$2;3);1;3;$B$3); STXT($B$2;5;2))

[simo1112]

UN gros merci a tedo01 pcq çà marche et simplement à part de çà!