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

[Menhir]

Pour ouvrir ton CSV, au lieu d'utiliser Open, utilise OpenText avec le paramètre DataType à xlDelimited et Semicolon à True pour indiquer que le séparateur est ";".
https://docs.microsoft.com/fr-fr/off...books.opentext
Specifie que le premier champ (FieldInfo) est de type date et passe le paramètre Local à True.

[darkman13130]

Merci pour votre retour,

En revanche, je n'ai plus de découpage par ;

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
'Conversion CSV XLS
Application.DisplayAlerts = False
Workbooks.OpenText Filename:=ficYearL2csv
Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
        Semicolon:=True, DataType:=xlDelimited, Local:=True, FieldInfo _
        :=Array(Array(1, xlDMYFormat), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
        True
ActiveWorkbook.SaveAs Filename:= _
        ficYearL2xls, _
        FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWindow.Close
'Conversion CSV XLS

Je pense avoir inséré toutes les infos ?

EDIT : Après plusieurs tests, ça semble le local:=true qui me supprime le parssage en ;

Merci d'avance

[Menhir]

Il n'est plus utile de faire un TextToColumns puisque le OpenText peut faire le découpage lui-même. Il suffit d'y mettre les bons paramètres comme je l'ai indiqué.

[darkman13130]

Merci pour votre aide ça fonctionne parfaitement voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Conversion CSV XLS
Application.DisplayAlerts = False
Workbooks.OpenText Filename:=ficYearL2csv, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
        Semicolon:=True, DataType:=xlDelimited, Local:=True, FieldInfo _
        :=Array(Array(1, xlDMYFormat), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
        True
ActiveWorkbook.SaveAs Filename:= _
        ficYearL2xls, _
        FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWindow.Close
'Conversion CSV XLS

En revanche est-il possible de définir le format nombre pour les champs 2, 3 et 4 ?

Car ce fichier au format XLSX est utilisé comme fichier de liaison avec une autre fichier Excel, sauf que mes deux colonnes de droite n'ont pas le bon format du coup mes calculs fonctionnent pas, pour résoudre le problème je dois cliquer sur la cellule et touche entrée. Pas très pratique

[Menhir]

En revanche est-il possible de définir le format nombre pour les champs 2, 3 et 4 ?

OpenText ne permet pas d'indiquer un format. Il permet juste d'indiquer la nature de la donnée : nombre, texte, date.
Si tu veux modifier le format nombre, il faut le faire après le OpenText avec la propriété NumberFormat du Range référençant la colonne.
Lire ceci : https://msdn.microsoft.com/fr-fr/lib.../ff196401.aspx et ça https://msdn.microsoft.com/fr-fr/lib.../ff840206.aspx
Par exemple :

Code :

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

Columns(2).NumberFormat = "# ##0"

[darkman13130]

C'est parfait ça fonctionne merci pour les retours