Format date lors d'execution d'une macro

Bonjour à tous,

Je suis tout nouveau en VBA et je n'ai pas forcément encore tout le vocabulaire nécessaire, excusez moi donc par avance si la réponse existe déjà sur le forum, je n'ai pas réussi à la trouver !

J'ai un grand nombre de fichier CSV à combiner afin d'en avoir qu'un seul et j'ai donc essayé de développer une macro afin d'automatiser le truc ! Jusqu'ici rien de spécial, la macro tourne très bien et mes données sont bien consolidées.

Mon problème est le suivant : dans chaque fichier individuel, j'ai une colonne "date" au format jj-mm-aaaa, seulement, lorsque j'exécute la macro, les dates dont le jour est inférieur à 12 se transforment en mm-jj-aaaa sans raison. le 12 aout devient donc le 8 décembre par exemple.

ce qui m'étonne beaucoup, c'est que si j'ouvre un fichier individuel et que je convertis la colonne (séparation fixe virgule), le format de date reste le bon. Idem si j'ouvre un excel vierge et que j'importe les données du fichier individuel en question, pas de problème non plus.

voici un extrait de mon code si cela peut aider :

ici j'ouvre un fichier individuel, je copie les données, puis je les colles dans un onglet de consolidation

Code:

---

1 2 3 4 5 6 7 8 9 10

Workbooks.Open "C:\Users\mmetivier\Desktop\Projet\Sources\E0.csv" DerniereLigne = Range("A1000000").End(xlUp).Row Rows("1:" & DerniereLigne).Select Selection.Copy Workbooks("Consolidation base données Europe").Activate Sheets("Consolidation ANG").Select LastRowConsolidation = Range("A1000000").End(xlUp).Row + 1 Cells(LastRowConsolidation, 1).Select ActiveSheet.Paste Application.CutCopyMode = False

---

merci pour votre aide !

Maxime :)

Salut,

As-tu essayé avec Power Query ?
https://support.microsoft.com/en-us/...8-6a00041c90e4

Bonjour,

Pour répondre à la question posée, c'est perdu dès le :

Code:

---

Workbooks.Open "C:\Users\mmetivier\Desktop\Projet\Sources\E0.csv"

---

En ouverture de CSV, Excel passe en full automatique et pour des raisons qui personnellement m'ont toujours échappées et que je considère comme un bug il essaye en priorité d'interpréter les dates au format US donc mm/jj/aaaa et se rabat seulement sur JJ/MM/AAAA si le premier nombre est supérieur à 12 et donc non interprétable comme un mois, comme tu l'as remonté.

Il faut utiliser :

Code:

---

Workbooks.OpenText MonChemin & Monfic, Encodage, , xlDelimited, xlTextQualifierNone, , False, True, , , , , MesColonnes

---

où MesColonnes est un tableau à deux dimensions, qui en théorie contient des couples n° colonne / format mais si j'en crois ce que j'écrivais dans une vie antérieure il faut surtout mettre le code format de la colonne k en position k, colonne 2

Voici un code qui fonctionnait pour charger le tableau (Dim MesColonnes(1 To MaxColCSV) As Variant ):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'préparation formats de colonnes (sinon XL retourne le date en mmjjaaaa si jj<=12) For k = 1 To MaxColCSV 'normalement inutile car array(k, toto) suffirait pour mettre la colonne k dans le type toto 'en fait c'est la position donc mescolonnes(k) qui donne le n° de colonne... 'comme ça, ça marche et ça marchera encore si le bug XL est corrigé... MesColonnes(k) = Array(k, xlGeneralFormat) Next k MesColsX = .Cells(MaLigne, ColImpDates) While MesColsX <> "" ' partie utile : type jjmmaaaa sur colonnes date k = UnElement(MesColsX) MesColonnes(k) = Array(k, xlDMYFormat) Wend MesColsX = .Cells(MaLigne, ColImpTextes) While MesColsX <> "" ' partie utile : type texte forcé k = UnElement(MesColsX) MesColonnes(k) = Array(k, xlTextFormat) Wend

---

Les .cells(MaLigne, UneColonne) renvoient du paramétrage qui contient la liste des colonnes respectivement contenant des dates (colImpDate) et du texte (colImpTextes pour éviter par exemple qu'un numéro de sécu soit considéré comme un numérique) sous la forme par exem queple "1;2;3" puis la fonction "UnElement" renvoie le premier élément et raccourcit la chaine.

J'ai retrouvé que je renommais aussi les fichiers en .txt, mais je ne sais plus si c'est parce qu'Excel ignore le paramètre MesColonnes dans le cas d'un .csv, ou si c'était seulement par parano.

Je recommande donc également PowerQuery... :)