Discussion :

[pedro3615]

Bonjour à tous,
J'ai actuellement un problème sur l'ouverture d'un fichier CSV notamment au niveau du séparateur:
- Paramètre régionaux PC: séparateur ";" / décimale "," et séparateur de milliers "espace"
- Paramètres EXCEL = paramètres système

Lorsque j'ouvre mon fichier csv manuellement, les cellules sont bien dispatchées c'est à dire première colonne date, 2eme: heure, 3 suivantes : données températures à 1 décimale (ex: 19,6).

Avec la fonction OpenText, le fichier s'ouvre avec comme séparateur les virgules, donc la première colonne contient ici date + heure + 19 la suivante 6 + la partie entière de la suivante etc...

Pourtant tout les paramètres sont bien renseignés :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Workbooks.OpenText Filename:="c:\Applications\courbes_temp.csv", _
                                Origin:=xlWindows, _
                                StartRow:=1, _
                                DataType:=xlDelimited, _
                                Space:=False, _
                                comma:=False, _
                                Tab:=False, _
                                other:=False, _
                                semicolon:=True, _
                                FieldInfo:=Array(Array(1, 3)), _
                                DecimalSeparator:=",", _
                                ThousandsSeparator:=" "

Autre souci, lorsque je copie ces données dans un autre classeur, la mise en forme se fait comme il faut (toute les données ordonnées dans leurs colonnes respectives) sauf que la virgules n'existe plus (exemple 19,875 devient 19875)...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
i = 1
While Worksheets("courbes_temp").Cells(i, 1) <> ""
       i = i + 1
Wend
 
Worksheets("courbes_temp").Range("A2:E" & (i - 1)).Copy
Application.DisplayAlerts = False
Workbooks("courbes_temp.csv").Close
Application.DisplayAlerts = True
Workbooks("Classeur1.xlsm").Activate
Worksheets("Feuil1").Activate
Range("A1").Select
ActiveSheet.Paste

Quelqu'un aurait-il une piste ?
Merci d'avance.

[Marc-L]

Bonjour,

voir cette discussion Ouvrir un fichier .csv ou un fichier .txt séparateur ";" ou "," …

Avec la méthode OpenText bien paramétrée - pas le cas dans le message précédent - cela fonctionne aussi;
à faire en répondant bien aux étapes de l'Assistant d'importation en utilisant l'Enregistreur de macros …

Sinon le sujet des fichiers .csv étant assez récurent, question posée sans effectuer de recherche,
il y a donc d'autres réponses via une recherche sur ce forum …

En cas de souci, mettre un fichier .csv en pièce jointe (sans données confidentielles de préférence).

[pedro3615]

Merci pour la réponse, je crois avoir fait un test comme ça avant mais avec peut-être trop d'arguments..

Code :

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

1
2
Workbooks.OpenText Filename:="D:\xls\Fichier.csv", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True

Fonctionne en partie grâce à ce code MAIS :
- Les chiffres avec 3 décimales passent en milliers : exemple 19,875 devient 19875,00
- Les formats "scientifiques" ne passent pas : exemple 7,28E-07 devient 0,73

en pièce jointe le fichier .CSV à renommer

[Marc-L]

Aucun souci avec ce fichier rien qu'avec la méthode indiquée dans le lien ‼

J'ajuste ensuite juste la largeur des colonnes et force une colonne en format standard, bref du confort visuel :

Code :

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

1
2
3
4
5
6
    Workbooks.Open "D:\Tests\courbes_temp.csv", Local:=True
 
    With ActiveWorkbook.ActiveSheet.UsedRange.Columns
        .AutoFit
        .Item(7).NumberFormat = "General"
    End With