Discussion :

[guismoman60]

Bonjour,

J'ai une date de type string 031117.

J'aimerai la transformer en 03/11/2017. Malheureusement avec le code qui suit, Excel m'affiche 11/03/1985.

DOnc je suis un peu bloqué

Code :

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

1
2
3
4
5
6
7
8
 
Dim cpt_ligne_data As Integer
Dim date_1 As Date
Dim date_txt1 As String
 
   cpt_ligne_data = 2
   date_1 = CDate(date_txt1)
   Workbooks("PICPDP.xlsm").Sheets("DATA").Cells(cpt_ligne_data, 5).Value = date_1

[patricktoulon]

re

Code :

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

1
2
3
4
5
6
7
Sub test()
    date_text = "031117"
    jour = Val(Mid(date_text, 1, 2))
    mois = Val(Mid(date_text, 3, 2))
    année = Val(Mid(date_text, 5, 2))
    MsgBox DateSerial(année, mois, jour)
End Sub

[eriiic]

Bonjour à tous,

ou bien :

Code :

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

date_1 = CDate(Format(date_text, "00/00/00"))

eric