[WD9] Importer un fichier csv dans une table

Bonjour j'ai un problème, pour importer un fichier csv dans une table :

ma procédure :

Code:

1
2
3
4
5
6
7
PROCEDURE lignedanstableau(matable, machaine)
 
chlocal est une chaîne
 
chlocal = " ;"+machaine
chlocal = Remplace(chlocal,";",TAB)
TableAjouteLigne(matable,chlocal)

et mon autre procédure pour le bouton " parcourir fichier xls " :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
PROCEDURE Parcours_Fichier_Xls()
 
// Déclaration des variables
IdFichier est un entier
ResLecture est une chaîne
ResFermeFichier est un entier
chnvoie,chlibelle,chjour,chprogjour sont des chaînes
D1,D2,D3,D4,F1,F2,F3,F4,indice2 sont des entiers
 
// Sélection du fichier à ouvrir
NomCheminFichier2 = fSélecteur (repertoireDuSite ,"PRG-*.csv","Sélectionner un fichier","Feuille de Calculs Excel (*.csv)"+TAB+"*.csv" ,"*.csv", fselOuvre+ fselExiste )
 
// Ouverture du fichier
IdFichier = fOuvre(NomCheminFichier2, foLectureEcriture )
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
SI IdFichier = -1 ALORS
	Erreur(ErreurInfo( errMessage ))
SINON
	ResLecture = fLitLigne(IdFichier)	
 
	// Affichage du message d'erreur si la lecture n'a pas été effectuée
	SI ResLecture = "" ALORS
		Erreur(ErreurInfo( errMessage ))
	SINON
		BOUCLE
			ResLecture = fLitLigne(IdFichier)
			SI ResLecture = EOT OU ResLecture = "" ALORS SORTIR
			lignedanstableau(Table1, ResLecture)	
		FIN
	FIN
	// Fermeture du fichier
	ResFermeFichier = fFerme(IdFichier)
	SI ResFermeFichier = -1 ALORS
		// Affichage du message d'erreur si la fermeture n'a pas été effectuée
		Erreur(ErreurInfo( errMessage ))
	FIN
FIN

Ca me met des truc bizarres dans le tableau et je vois pas pourquoi car je remplace le ; par un TAB :

(aperçu du fichier csv)

Citation:

N°Voie;Libelle;Jour;Prog du Jour;D1;F1;D2;F2;D3;F3;D4;F4
0;ECLAIRAGE SV ALL.1 EPICERIE 1-5-9;Mardi;Mardi;182;1260;0;0;0;0;0;0
1;ECLAIRAGE SV ALL.2 EPICERIE 2-6-10;Mardi;Mardi;240;1335;0;0;0;0;0;0

Si quelqu'un a des idées je suis preneur