conversion format de date

Bonjour,

j'importe un fichier texte contenant des dates sans séparateur, par exemple 26032008, je voudrais les convertir au format date avec séparateurs (26/03/2008). comment faire?

bonjour rockk,
bienvenue sur DVP :salut:
si tu récupères du texte, je ne crois pas que la fonction Format() puisse être appliquée après un cast CDate.
Je propose ce bout de code

Code:

---

1 2 3 4 5 6 7 8 9

Function TransfoTxtToDate(strInput as String) as Date dim tempoDate as Date if not (len(strinput)=8) Then MsgBox "erreur sur la date" TransfoTxtToDate = CDate("01/01/1900") Else TransfoTxtToDate = CDate(Left(strinput,2) & "/" & Mid(strinput,3,2) & "/" & Right(strinput,4)) End If End Function

---

Merci pour la réponse, mais je débute avec access et je ne sais pas comment utiliser ce code.

bonjour,
tu peux utiliser ce code de la façon suivante

Code:

---

1 2 3

Dim MaDate as Date MaDate = TransfoTxtToDate("26032008") MsgBox Cstr(MaDate)

---