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