Ouverture d'un fichier CSV [Résolu]

[Djohn]

Bonjour

Alors voila j'ai un petit souci depuis 3heures (me restent plus beaoucoup de cheveux )

Jetravail sous Excel 2010, et je cherche à ouvrir un fichier csv, avec comme séparateur de décimal la virgule et séparateur de donnée le point virgule.

Et mon souci, est que lorsque la macro ouvre ce classeur csv, en colonne A j'ai une partie des données, puis en colonne B une autre partie des données, jusqu'a la colonne D je crois.
Alors que normalement lorsque ce classeur s'ouvre, je devrais tout avoir en colonne A.

De plus si j'ouvre manuellement, le classeur s'ouvre correctement , avec les données déja convertis.

si quelqu'un réussi à une idée, je continues de chercher de mon coté

merci

[ZebreLoup]

Je n'ai pas ouvert ton zip, mais je pense qu'il faut remettre tous les paramètres de conversion à 0 avant d'ouvrir le fichier.

[Djohn]

Salut ZebreLoup,
comment fait on ça ?
merci

[defluc]

Voici une source éprouvée

Code :

1
2
3
4
5
6
7
8
9
    Set C1Wbk = ThisWorkbook 
    Set C1Sheet = C1Wbk.Sheets(1)
      C1Sheet.Columns(1).TextToColumns Destination:=C1Sheet.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, 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), _
      Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1)), _
      TrailingMinusNumbers:=True

[ZebreLoup]

La solution de defluc est très bien une fois que tu as tes données seulement dans la première colonne. Tu peux le faire en faisant du

Code :

Open "ton fichier" As #1 ...

et en recopiant ligne à ligne les données

Mais sinon, je pensais que c'était simple et j'ai le même problème que toi. Même en utilisant la méthode OpenText et en mettant les bons paramètres, il ne les prend pas du tout en compte. Je ne comprends pas.

J'ai trouvé un truc, si tu fais :

Code :

Workbooks.Open Filename:="C:\Fichiers.csv", Format:=5

ça te l'ouvre sans formatage.

Tu peux ensuite faire une mise en forme comme tu veux. (Regarde la fonction TextToColumns)

[Djohn]

Nikel, ca fonctionne ZebreLoup,
un grand merci,
y'a plus qu'a creuser le sujet sur les different numéro de format possible pour l'avenir.