Discussion :

[Ptiparu]

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

[Docmarti]

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 :

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

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

[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 …

______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Ptiparu]

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 :

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

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.