Discussion :

[Theo28fr]

Je voudrais récupérer sous excel, à l'aide d'une macro, des informations situées dans un fichier texte (.csv). Je voudrais que ces différentes informations (séparées par un ; ) apparaissent dans 4 colonnes mais je n'y parvient pas. J'ai essayé avec plusieurs fonctions mais à chaque fois les informations apparaissent dans une seule colonne.

Le contenu du fichier texte est le suivant :

Numero,Annee;Nom;Quantite
120003;1998;ETFA;10
150004;1998;CFST;5
180004;1999;AUTO;4
140004;1999;EPE;5

J'utilise la formule ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
CeFichier = Application.GetOpenFilename(" Files (*.csv), *.csv")
If VarType(CeFichier) = vbBoolean Then
Exit Sub
Else
Workbooks.OpenText FileName:=CeFichier, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, _
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))
End If

Merci d'avance pour votre aide.
Theo

[illight]

EN faisant une recherche sur le forum, tu aurais déja vu plein de sujet sur ça et tu aurai surement trouvé ton bonheur

[Elstak]

c'est sur... j'avais la meme chose à faire et j'ai eu la réponse donc en recherchant...

[SfJ5Rpw8]

donc comme, maintenant que les balises de codes sont la ... et bien comme mes petits camarades je te conseille la recherche...
une recherche de CSV sur le forum VB ... t'améne..:
http://www.developpez.net/forums/sea...earchid=246549

et en autre un message résolu datant de hier... (maintenant dit nous si cette solution te convien..)

[Résolu] Importer un fichier CSV

[ouskel'n'or]

Tu as plus simple :

Code :

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

    Workbooks.Open FileName:="D:\xls\LeFichier.csv"

Et ça ouvre le csv comme une feuille de calcul avec tes données séparées par des points-virgules rangées par colonne

[SfJ5Rpw8]

Tu as plus simple :

Code :

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

    Workbooks.Open FileName:="D:\xls\LeFichier.csv"

Et ça ouvre le csv comme une feuille de calcul avec tes données séparées par des points-virgules rangées par colonne

non cela ne marche pas sur toutes les version d'excel... l'as tu testé..