[VBA-E] Workbooks.open sur .csv regroupe tout sur 1 colonne

Bonjour à tous,

En lisant l'archive http://www.developpez.net/forums/arc...p/t-53636.html

j'ai confirmation que :
(...)
"Car en ouvrant par le code un ficher csv, cela écrit tout dans une seule colonne.....

Sinon il faut que tu découpes ligne pour obtenir un tableau de plusieurs lignes sur plusieurs colonne.
Il existe une fonction pour cela mais je me rappelle plus laquelle."
(...)


Or, en ressortant une bonne vieille version d'excel 97 sr2, ça passait parfaitement : Workbooks.Open filename:="c:\temp\toto.csv"
Diispatchait bien les datas sur les n colonnes concernées, sur découverte d'un point-virgule séparateur.

Mais, depuis les versions suivantes, tout est regroupé sur la colonne A, alors que la manip équivalente faite à la paluche au sein d'excel est ok.

Connaissez-vous (dans l'ordre de préférence) :
- un patch ? (oh oui ! oh oui !)
- un contournement ? (et merde... chui bon pour ré-écrire du code !)

Le contournement idéal serait un 'dump' de mon csv dans un méga-tablo, suivi d'une restitution par un split à deux dimensions dans une vraie feuille... Mais ne rèvons pas trop...

D'avance merci, petits camarades !
Le Yéti

bonjour

Tu peux essayer

Code:

---

1 2 3 4 5 6 7

Dim Wb As Workbook Set Wb = Workbooks.Open("C:\Documents and Settings\mimi\FichierTest.csv") 'expression.TextToColumns(Destination, DataType, 'TextQualifier, ConsecutiveDelimiter, 'Tab, Semicolon, Comma, Space, Other, OtherChar, ' 'FieldInfo, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers) Wb.Worksheets(1).Columns(1).TextToColumns Range("A1"), , , False, , True

---

michel

Ouvrir un fichier.csv ou un fichier.txt séparateur ";"

Merci à SilkyRoad pour ce joli bout de code.

Un énoooorme merci à BBIL et ouskel'n'or pour LA solution !!!
(et ça fait un bout de temps que je la cherchais, celle-là !)

:king:

Citation:

---

Envoyé par bbil

Ouvrir un fichier.csv ou un fichier.txt séparateur ";"

---