Rétablir la valeur date de 04-Jun ?

Bonjour,"LANIMAL"

04-jun au format texte en A1
En B1 (format date), A1*1 me donne 04/06/2010
Et chez toi ?

--
Bien amicordi@lement,

Patrick

Ma banque... très moderne ! ! !
Me donne les dates sous la forme jour-mois comme ci-dessous :
04-Jun (sans l'année ! ... ben voyons !)

J'ai essayé CDate("04-Jun" & "-2010")
ou CDate("04-Jun" & "-" & Year(Date))
Mais ça passe pas !
Quel code faut-il utiliser pour transformer en Date reconnue par Excel ?

Ah... ces dates ! !

Merci,
Michel

Bonjour.
="04-jun"*1
Daniel

Ma banque... très moderne ! ! !
Me donne les dates sous la forme jour-mois comme ci-dessous :
04-Jun (sans l'année ! ... ben voyons !)

J'ai essayé CDate("04-Jun" & "-2010")
ou CDate("04-Jun" & "-" & Year(Date))
Mais ça passe pas !
Quel code faut-il utiliser pour transformer en Date reconnue par Excel ?

Ah... ces dates ! !

Merci,
Michel

Bonjour,

Voici une façon de faire en VBA :

Ce qui suit est valide, je crois, à partir de la version Excel 2002

'--------------------------------------
Sub test()
Dim MaDate As String

'Transformation de ta date de base : "04-Jun"
MaDate = "04-Jun" & "-" & Year(Date)

'Pour traduire un format date dans la langue du pays
'on doit utiliser le LCID en Hexadécimal

'Quelques exemples :
'France : 040c
'Canada français : 0c0c
'United States : 0409
'United Kingdom : 0809

MsgBox Application.WorksheetFunction.Text(MaDate, "[$-0c0c]dd-mmm-yyyy")

End Sub
'--------------------------------------



"LANIMAL" <noreply@xxx.yy> a écrit dans le message de groupe de discussion :
Op43#3KBLHA.5476@TK2MSFTNGP06.phx.gbl...
Ma banque... très moderne ! ! !
Me donne les dates sous la forme jour-mois comme ci-dessous :
04-Jun (sans l'année ! ... ben voyons !)

J'ai essayé CDate("04-Jun" & "-2010")
ou CDate("04-Jun" & "-" & Year(Date))
Mais ça passe pas !
Quel code faut-il utiliser pour transformer en Date reconnue par Excel ?

Ah... ces dates ! !

Merci,
Michel