Discussion :

[nordinen]

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)

[Hibernatus34]

Bonjour,

POUR i=0 A nResnblignes

Ça fait (nResnblignes + 1) itérations.
Commencez à 1.

Pour ajouter une ligne à la table, n'essayez pas de remplir les colonnes immédiatement.
Ce que vous faites avec ce code c'est modifier la ligne sélectionnée (la 1ère probablement) et ensuite vous ajoutez une copie de cette ligne.

Faites tout en une ligne avec TableAjouteLigne(MaTable, Donnée1, Donnée2, ...)
Ou bien faites :
i = TableAjouteLigne(MaTable)
MaTable.Col1[i] = Donnée1
MaTable.Col2[i] = Donnée2
...

[nordinen]

merci
je teste

[nordinen]

rebonjour
cela fonctionne avec tableajouteligne
Par contre j'ai ma table meoire qui est rempli avec les données mais je voudrais inserer ces données dans mon fichier qui est vide actuellement , j'aurais voulu synchroniser ma table avec mon fichier pour pouvoir apres retravailler ces données.

[Jannus]

Il n'y a aucun intérêt à mettre les données dans une table mémoire pour les enregistrer dans un fichier ensuite.
Autant les écrire directement dans un fichier, quitte à les afficher ensuite via une table fichier.

Il serait bon de te pencher un peu sur le fonctionnement de WinDev

[SevenSoftware]

Pour mémoire, vous pouvez également décrire une connexion sur le fichier Excel et exécuter une requete SQL pour lire la feuille.
Si la 1ère ligne de la feuille est une ligne de titre, les rubriques de la requête
porteront les noms indiqués sur cette 1ere ligne.

Patrick.