Discussion :

[le_dilem]

Bonjour à tous

Y a il un moyen de convertir un format "20090101" en Date ?

Merci pour vos réponses.

[Brunodm13]

Bonjour,

Tu peux essayer cette fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function ConversionDate(LaDate)
 
Dim Année, Mois, Jour, LaDateConvertie As String
 
Année = Left(LaDate, 4)
Mois = Mid(LaDate, 5, 2)
Jour = Right(LaDate, 2)
LaDateConvertie = Jour & "/" & Mois & "/" & Année
ConversionDate = CDate(LaDateConvertie)
 
End Function

Il y a peut-être plus simple...

Cordialement

Bruno

[le_dilem]

Merci Bruno ça Marche