[VBA-E] Récupération données fichier texte
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:
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
