Conversion CSV -> XLSXProblème Date

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:

---

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:

---

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

---

Pièce jointe 416333

Merci

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.

Merci pour votre retour,

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

Code:

---

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

---

Pièce jointe 416503

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

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é.

Merci pour votre aide ça fonctionne parfaitement voici le code

Code:

---

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

Pièce jointe 416645

Citation:

---

Envoyé par darkman13130

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:

---

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

---

C'est parfait ça fonctionne merci pour les retours