Discussion :

[samz25]

Bonjour a tous,

tout d'abord je tiens à signaler que j'ai parcourir plusieurs forum et je n'ai pas reussi à trouver solution à mon problème.

J'ai un fichier csv :

Code :

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

1
2
3
4
5
6
 
 
ST;30.11.2009;2009;49;1;24;EUR;12:14;29.11.2009;1
BE;FR;France;;;;;;;
PC;BU;1;FR;13171;0,01;13171;;;;
PC;BU;1;FR;13172;1,01;13171;;;;

et ma macro pour ouvir ce dernier

Code :

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

1
2
3
4
5
6
 
Workbooks.Open Filename:= _
        "toto.csv"
        Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, DecimalSeparator:=","

le resultat :

Code :

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

1
2
3
4
5
6
 
 
ST 30.11.2009 2009 49	1 24 EUR 12:14 29.11.2009 1
BE FR	France							
PC BU 1 FR 13171 0				
PC BU 1 FR 13172 1

Mon problème est donc qu'il s'arrette sur la virgule et revient à la ligne.

je veut donc pouvoir ouvrir en csv avec comme separteur de champs le ; et la virugule comme separateur de décimale.

Merci pour votre aide

[samz25]

j'ai trouvé !

Code :

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

1
2
3
 
Workbooks.Open Filename:="test.csv", _
    Origin:=xlWindows, Local:=True

Merci