Raynaud.JF
XLDnaute Nouveau
Bonjour, j'ai un souci quand je veux ouvrir un fichier CSV depuis ma macro VBA.
Nota : l'exemple est sur le fichier joint, il est normalement en .CSV et non .TXT
Quand j'ouvre mon fichier via la macro :
MyFichier = Application.GetOpenFilename
Workbooks.OpenText Filename:=MyFichier, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
Comma:=True, FieldInfo _
:=Array(Array(1, 1),Array(2, 5), 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), Array(15, 1)), TrailingMinusNumbers:=True
La 2e colonne qui est une date, et qui normalement en format text est sous la forme AA/MM/JJ est converti lors de l'ouverture en inversant l'Année et le jour, plus precisement le format text de depart est par exemple le 12/12/06 pour le 6 decembre 2012, et en lancant la macro il l'ouvre sous la forme 12 Decembre 2006, malgré la notion de "conversion de la date en AA/MM/JJ" lors du workbooks open text fieldinfo .... (array 2,5)
Quelqu'un connaitrait t'il l'astuce pour eviter ce soucis.
Merci par avance de votre aide.
Nota : l'exemple est sur le fichier joint, il est normalement en .CSV et non .TXT
Quand j'ouvre mon fichier via la macro :
MyFichier = Application.GetOpenFilename
Workbooks.OpenText Filename:=MyFichier, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
Comma:=True, FieldInfo _
:=Array(Array(1, 1),Array(2, 5), 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), Array(15, 1)), TrailingMinusNumbers:=True
La 2e colonne qui est une date, et qui normalement en format text est sous la forme AA/MM/JJ est converti lors de l'ouverture en inversant l'Année et le jour, plus precisement le format text de depart est par exemple le 12/12/06 pour le 6 decembre 2012, et en lancant la macro il l'ouvre sous la forme 12 Decembre 2006, malgré la notion de "conversion de la date en AA/MM/JJ" lors du workbooks open text fieldinfo .... (array 2,5)
Quelqu'un connaitrait t'il l'astuce pour eviter ce soucis.
Merci par avance de votre aide.