Discussion :

[Nako_lito]

Bonjour,

J'ai un fichier csv que je n'arrive pas a ouvrir correctement en vba.
Je m'explique :

fichier.csv est issu d'une extraction depuis un site web, je n'ai donc pas la main sur le format d'édition.

Lorsque je l'ouvre directement avec excel (pas pas macro, mais simplement par double clic) il s'ouvre comme je le souhaite, je peux faire un copy de toutes les cellules et aller les coller ou je veux.
il a cet aspect :


Mais si je l'ouvre avec un éditeur texte (genre notepad ++) ou via vba, il me le sort avec une toute autre mise en forme, ce qui est plûtot facheux. Il a cet aspect


J'ai essayé de l'ouvrir en utilisant des délimitateur, mais ça ne vient pas de là. Il me sort encore un 3eme format.

Ce que je souhaite : qu'il s'ouvre comme sur l'image un quand j'exécute mon code vba.

Quelqu'un aurait il une idée ?

[Docmarti]

Bonjour Nako_lito

Sans voir le fichier, du moins une partie qui s'affiche mal, on ne peut pas savoir. Surtout si c'est un fichier qui vient d'une page web.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub OuvrirCSVDansNouveauClasseur()
 
fichier = Application.GetOpenFilename("Fichiers CSV (*.csv), *.csv")
 
If fichier = False Then
 Exit Sub
End If
 
virgule = 2: point_Virgule = 4
 
Set wb = Workbooks.Open(fichier, , , point_Virgule, , , True, , , , , , False, local:=True)
 
wb.Activate
 
End Sub

[Nako_lito]

problème résolu.

L'utilisation de ta ligne de code sur le open fonctionne.

J'avais pourtant essayé de le faire via l'assistant excel mais ça n'avait pas fonctionné :/ Certainement un paramètre que j'ai zappé.
En tout cas, j'obtiens ce que je souhaite.

Merci a toi Docmarti

[Docmarti]

Super. C'est un fichier csv standard.

Dans ce code, il semble que le paramètre qui compte, c'est Local.

Edit:
Local = False ' le délimiteur est la virgule (américian)
Local = True' pour le délimiteur local ( ; pour la France)

Cependant, Local = True ouvre aussi bien les fichiers dont le délimiteur est la virgule que ceux dont le délimiteur est le délimiteur local.