[XL-2003] Conversion date 20120104 en 04/01/2012 [Résolu]

[Maxgad]

Bonsoir,
Je sais que le sujet a été traité plusieurs fois mais pas sur le même cas de figure.
Depuis hier je galère à convertire :

20120104 en 04/01/2012.

Pourriez-vous m'aider svp.
soit par formule, soit vba.
Merci encore.

[jfontaine]

Bonjour,

Une méthode en VBA

Code :

1
2
3
4
5
Dim strDate As String
 
strDate = "20120115"
 
MsgBox DateSerial(Left(strDate, 4), Mid(strDate, 5, 2), Right(strDate, 2))

[kiki29]

Salut, voir aide en ligne sur Day,Month,Year,Left et Mid

[jfontaine]

Quelques liens

http://silkyroad.developpez.com/VBA/...nesCaracteres/

http://mhubiche.developpez.com/vba/f...ions/datetime/

[Maxgad]

Merci infiniment
Le code vba me convient très bien
Merci encore
Je vais regarder l aide a ce sujet

[AlainTech]

Bonjour,

Vu le format de la string à convertir, une autre option, plus courte:

Code :

1
2
3
Function ConvDate(strDate As String) As Date
  ConvDate = CDate(Format(strDate, "0000/00/00"))
End Function

[Maxgad]

Merci beaucoup.