Discussion :

[diendjao]

Bonsoir,
J'ai un souci que je ne parviens pas à m'expliquer.

En VBA Excel, j'ai :

Code :

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

1
2
3
4
5
6
 
ThisWorkbook.Application.Workbooks.OpenText _
     Filename:=fileIn, Origin:=xlWindows, _
     StartRow:=1, DataType:=xlDelimited, _
     TextQualifier:=xlTextQualifierDoubleQuote, ConsecutiveDelimiter:=False, _
     Semicolon:=True

Mon fichier texte CSV est comme :
"Organisation commerciale";"Organisation commerciale";"Commercial";"Groupe Client";"Groupe,Client";"score Ref DO"
"10";"Paris";"M. NOT AFFECTED NOT AFFECTED";"900002";"ABC";"000,004"

J'importe et quoi que je fasse il Excel ne se base que sur "," pour séparer les colonnes, j'ai aussi des valeurs numériques avec des "," et il sépare dessus mais jamais sur les ";"

Donc le résultat est que en A1
Organisation commerciale;"Organisation commerciale";"Commercial";"Groupe Client";"Groupe

En B1
Client";"score Ref DO"

En A2
10;"Paris";"M. NOT AFFECTED NOT AFFECTED";"900002";"ABC";"000

En B2
004"


Les double quotes ne sont pas traités sauf sur la première colonne
Le séparateur utilisé est le "," alors que j'ai codé le ";"

Si quelqu'un pouvait avoir des pistes par rapport à ce problème.

Merci

Matthieu

[Le Pierre]

bonjour

essaye en ajoutant "local:=True" dans ton code d'ouverture de fichier csv.
Par exemple :

Code :

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

1
2
Workbooks.Open FileName:= _
        Chemin & "\" & Fichier_à_Analyser, local:=True

à plus

[diendjao]

Bonjour,
Oui c'était ça. Je n'ai pas bien lu la doc de cette méthode.

Merci beaucoup.

Matthieu