Lecture de fichier CSV et chaînes contenant des retours à la ligne

Version imprimable

27/10/2015, 17h59
Ptiparu

Lecture de fichier CSV et chaînes contenant des retours à la ligne

Bonjour,

Je souhaite lire un fichier CSV et récupérer son contenu, dans le but d'alimenter une Base de données, voilà un exemple de données que je rencontre :

ID,Ville,Nom,Description,Num
1,Nantes,Nom1,Test1,10
2,Paris,Nom2,Test2,20
3,Lyon,Nom3,"Test sur plusieurs
lignes 3",30
4,Nice,Nom4,Test4,40

Sur le champ Description, certaines chaînes de caractères sont sur plusieurs lignes (retours charriot) et encadrés par des guillements, et ceci est gênant dans la lecture ligne par ligne du fichier. Est-ce que quelqu'un a une idée pour lire ce genre de fichier ?

Merci

Citation:

Envoyé par Ptiparu

Sur le champ Description, certaines chaînes de caractères sont sur plusieurs lignes (retours charriot) et encadrés par des guillements, et ceci est gênant dans la lecture ligne par ligne du fichier. Est-ce que quelqu'un a une idée pour lire ce genre de fichier ?

Merci

Vu les retours de chariot, il serait plus simple de l'ouvrir dans un classeur Excel :
Code:

1 2 3 4 5 Sub OuvrirCSV_Virgules() Application.DisplayAlerts = False Set wb = Workbooks.Open(Filename:="C:\Users\client\Documents\test_csv_Ori_virgules.csv", local:=False) Application.DisplayAlerts = True End Sub

27/10/2015, 19h47
Marc-L

Bonjour,

comment le fichier texte csv a été vérifié ? Pas avec Notepad j'espère car il n'est pas multi-plateformes !
Il y a de fortes chances de confusion entre fin de lignes d'enregistrement csv et contenu d'une colonne
car si le développeur a respecté la norme, leurs séparateurs sont différents … Sinon c'est un boulet !

Mettre en pièce jointe le fichier texte pour vérification …

Si une des méthodes pour lire un fichier texte a bien été paramétrée, aucun souci.
Mais évidemment sans publier le code … :roll:

______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

Merci Docmarti, ta solution semble fonctionner. Le fichier CSV est bien interprété lorqu'il est ouvert dans un classeur, je n'ai plus qu'à récupérer ls infos dans les cellules.

Marc, je débute en VBA donc mon code était on ne peux plus basique :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Open "V:\Data\Informatica\PHIPHI_TEST_201510271645_MA_TABLE_CLIENT.csv" For Input As #1 Dim LineFromFile Do Until EOF(1) Line Input #1, LineFromFile Debug.Print LineFromFile Loop Close #1
Je me retrouvais donc avec [3,Lyon,Nom3,"Test sur plusieurs] et [lignes 3",30] considérées comme deux lignes différentes, chose que je ne voulais pas.