Discussion :

[defluc]

Bonjour à tous,

Après avoir enregistré une macro convertissant une colonne comportant jusqu'à 22 champs, je l'adapte pour l'utiliser dans une procédure distincte.

Mais, mauvaise surprise, quand je la réexécute, les dates sont tantôt alignées à droite, tantôt à gauche.
Pire, si les 2 premiers chiffres de la date sont inférieurs à 12, le jour et le mois sont inversés et la date est fausse.

J'ai essayé en Excel 2000 et 2007, même problème.

Merci d'avance à tout membre qui aurait une solution à ce bug.

[gFZT82]

Bonjour,

Dans l’aide sur la méthode TextToColumns, il est indiqué que l'interprétation dépend de la valeur de l'argument DataType. Lorsque les données sont délimitées, cet argument est un tableau de tableaux à deux éléments, spécifiant les options de conversion pour une colonne particulière.
Le premier élément est le numéro de la colonne (base 1) et le deuxième élément est une des constantes xlColumnDataType spécifiant comment la colonne est analysée.
Dans ton cas, le premier élément est le numéro 7 (c’est la 7eme colonne qui contient la date) et la constante a pour valeur 4 (Format de date JMA).

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
      Sheets(1).Columns(1).TextToColumns Destination:=Sheets(1).Cells(1, 1), DataType:=xlDelimited, _
      TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, _
      Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), _
      Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), (Array(7, 4)), Array(8, 1), Array(9, 1), _
      Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), _
      Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1))
End Sub

Cordialement.

[defluc]

Super,

Un tout tout grand merci