Bonjour à tous,
J'ai un problème de conversion de données à mettre en colonnes, j'ai fait une macro (voir ci-dessous) qui marche très bien mais j'ai un petit souci au niveau des dates. Sur les 12 premiers jours le mois et le jour sont inversés et je n'arrive pas à comprendre le problème même si je pense qu'il est simple. les données sont des valeurs pour chaque minutes pendant un mois. vous trouverez mon fichier en pièce jointe avec la macro dedans.
Sub Convertisseur()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
, 1), Array(13, 1), Array(14, 1)), TrailingMinusNumbers:=True
Columns("A:A").EntireColumn.AutoFit
Columns("L:N").Delete
Next ws
End Sub
Merci d'avance!