Bonjour à tous,

Peut-être que le topic a déjà été traité ici, mais je me permet d'ouvrir celui parce que je ne reçois aucun message d'erreur par contre ma table ne se remplit pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
sMonFichierEXPRESS est une chaîne
nLireLigne est une chaîne
nIdFichierEXPRESS est un entier
 
sMonFichierEXPRESS = "G:\Table_Agence.csv"
nIdFichierEXPRESS = fOuvre(sMonFichierEXPRESS)
 
//nLireLigne = nIDFichier 
SI nIdFichierEXPRESS<>-1 ALORS 
 
	VarSorti est un booléen = Faux // pour sortir de la boucle
	Erreur(ErreurInfo(errMessage))
 
	BOUCLE 
		nLireLigne = fLitLigne(nIdFichierEXPRESS)
		EXPRESS_Agence.IDAgence = ExtraitChaîne(nLireLigne, 2, ",")
		EXPRESS_Agence.LibelleAgence = ExtraitChaîne(nLireLigne,3,",")
		EXPRESS_Agence.IDEXPRESS_Banque = ExtraitChaîne(nLireLigne,4,",")
		HAjoute(EXPRESS_Agence)
 
		SI fLitLigne(nIdFichierEXPRESS) = EOT ALORS 
			VarSorti = Vrai
		FIN
 
		// Doit-on sortir de la boucle
		SI VarSorti = Vrai ALORS SORTIR
 
	FIN	
 
	Info ("Insertion éffectuée avec succès !!!!")
	fFerme(nIdFichierEXPRESS)
SINON
	Info("Insertion non éffectuée, réverifiez le code")
	fFerme(nIdFichierEXPRESS)
FIN
Quelqu'un a une idée sur ce problème ?