Problème de date a la conversion des données

Bonjour ;

j'affronte un problème des formats quand je convertie un fichier CSV en XLs, CAD la colonne qui contient les dates n'est pas uniforme, si le jour > 12, il considère le format de la cellule standard, et si le jour < 12, il personnalise le format et remplace entre le jour et le mois, ce qui fausse les données.

Sub Report

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

Semicolon:=False, Comma:=True, Space:=False, Other:=False, 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)), _

TrailingMinusNumbers:=True

End Sub

merci.

Bonjour ;

voila un exemple pour être plus claire ;

merci pour votre aide.

Salut le forum

Apparemment ce problème est aussi connus de Microsoft puisqu'ils en parlent sur leur support :

Format de date n'est pas correct lorsque vous convertissez un fichier texte CSV dans Excel à l'aide d'une macro VBA

Une solution à tester pour moi le formet de date par défaut YMD (5) pour JMD (4)

FieldInfo _
        :=Array(Array(1, 1), Array(2, 5))

Mytå