Discussion :

[darkman13130]

Bonjour tout le monde,

Après plusieurs heures de recherche, je n'arrive pas à résoudre un problème de date concernant la conversion de mon fichier CSV vers XLSX,

En effet, mon fichier comprend des dates sur la première colonne, mais lors de la conversion celles-ci sont modifiées en MM/DD/YYYY et les dates > au jour 12 passent au format Texte

A mon tableau, j'ai ajouté le bon paramètre xlDMYFormat

Est-il possible d'avoir de l'aide ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Day;Total;Less3Month;More3Month
1/10/2017;7;6;1
1/10/2017;1;0;1
1/10/2017;1;0;1
1/10/2017;1;1;0
8/10/2017;2;1;1
8/10/2017;1;1;0
8/10/2017;9;2;7
17/12/2017;4;2;2
17/12/2017;2;0;2
29/08/2018;1;0;1
29/08/2018;3;1;2
29/08/2018;1;0;1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'Conversion CSV XLS
Application.DisplayAlerts = False
Workbooks.Open Filename:=ficYearL2csv
Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, xlDMYFormat), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
        True
 
    NumberFormatLocal = "jj/mm/aaaa hh:mm:ss;@"
    FormulaLocal = Columns("F:F").Value
    EntireColumn.AutoFit
ActiveWorkbook.SaveAs Filename:= _
        ficYearL2xls, _
        FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWindow.Close
'Conversion CSV XLS

Merci