Bonjour a tous,

J'ai une ligne en plus lors de mon import d'un fichier excel.
Je ne comprend pas étant débutant , Pourriez vous m'aider.
Mon code : sur 23 lignes il me rajoute en debut la 23 eme ligne ce qui me fait 24 lignes.

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
//sélecteur de fichier
sSel est une chaîne
sFichier est une chaîne
 
// Ouvre le sélecteur de fichiers
sSel = fSélecteur("", "", "Sélectionnez un fichier.....", "Tous les fichiers (*.*)" + TAB + "*.*", "*.*")
 
//sSel=fSélecteur(SAI_chemin_fichier_excel, "Sélectionnez un fichier...",
//"tous fichiers(*.xls)"+TAB+"*.xls*","*",fselOuvre+fselExiste)
SI sSel<>""ALORS
//SAI_chemin_fichier_excel=sSel
FIN
 
nIdfic est un entier
i est un entier
nResnblignes est un entier
nIdfic=xlsOuvre(sSel)//SAI_chemin_fichier_excel)
nResnblignes=xlsNbLigne(nIdfic)
 
 
//importation données dans la table
SI nIdfic<>-1 ALORS
	SI OuiNon("Voulez vous importer les données ?") ALORS
		Sablier(Vrai)
//	POUR i = 0 A 23 pas -1
 
 
 
 
	POUR i=0 A nResnblignes 
 
			TABLE_Valeur.COL_Colonne1=xlsDonnée(nIdfic,i,1)
			TABLE_Valeur.COL_Colonne2=xlsDonnée(nIdfic,i,2)
			TABLE_Valeur.COL_Colonne3=xlsDonnée(nIdfic,i,3)
			TABLE_Valeur.COL_Colonne4=xlsDonnée(nIdfic,i,4)
			TABLE_Valeur.COL_Colonne5=xlsDonnée(nIdfic,i,5)
			TABLE_Valeur.COL_Colonne6=xlsDonnée(nIdfic,i,6)
			TABLE_Valeur.COL_Colonne7=xlsDonnée(nIdfic,i,7)
			TABLE_Valeur.COL_Colonne8=xlsDonnée(nIdfic,i,8)
			TABLE_Valeur.COL_Colonne9=xlsDonnée(nIdfic,i,9)			
		TableAjoute(TABLE_Valeur,COL_Colonne1+TAB+COL_Colonne2+TAB+COL_Colonne3+TAB+COL_Colonne4+TAB+COL_Colonne5+TAB+COL_Colonne6+TAB+COL_Colonne7+TAB+COL_Colonne8+TAB+COL_Colonne9)
 
 
 
 
		FIN
 
		Info("Importation terminée")
 
	FIN
FIN
	//Erreur("Le fichier Excel est déjà ouvert !"+RC+"ou le lien n'est pas
	//valide." )
RETOUR
 
Sablier(Faux)
xlsFerme(nIdfic)