Discussion :

[law56100]

Bonjour

Je suis en stage dans une entreprise et je travail sous windev12, je débute sous windev et personne dans l’entreprise connaît le logiciel. J’utilise la version 12 de Windev

Mon problème :

J’ai un fichier Excel (version 2003) où j’ai toutes les informations de mes différents capteurs. J’arrive à lire le fichier xls avec la fonction xlsOuvre mais je n’arrive pas à remplir ma table. Ma table s’appelle Table_table1 et composée de 10 colonnes. Dans ça description, je demande d’afficher 50 lignes

Voici mon code :

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
// Déclaration des variables
lenIdFichierXLS est un entier
lenNbColonnes est un entier
lenNbLignes est un entier
lenVersion est un entier
FichierXLS est une chaîne
IdFichierXLS est un entier
 
 
// Sélection du fichier XLS
	//FichierXLS = fSélecteur("", "", "Sélection d'un fichier XLS", ...
	//"Fichier XLS" + TAB + "*.XLS", "XLS", fselOuvre+fselExiste )
	FichierXLS = "C:\Mes Projets\bdd\Classeur1.xls"
 
// Ouverture du fichier sélectionné
IdFichierXLS = xlsOuvre (FichierXLS)
SI IdFichierXLS <> -1 ALORS
	// Traitements dans le fichier XLS
 
	Info("Le fichier XLS a été ouvert")
 
 
 
	// Fin des traitements dans le fichier XLS
SINON
	// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
	Erreur(xlsMsgErreur(IdFichierXLS))
FIN
 
lenIdFichierXLS = xlsOuvre(	FichierXLS)
SI lenIdFichierXLS = - 1 ALORS
	Info ( xlsMsgErreur ( lenIdFichierXLS )+RC+"Vérifiez l'existance du fichier "+FichierXLS+RC+"ou si celui-ci n'est pas déjà ouvert dans XL")
SINON
lenNbColonnes = xlsNbColonne (lenIdFichierXLS,Faux)
lenNbLignes = xlsNbLigne (lenIdFichierXLS,Faux)
lenVersion = xlsVersion (lenIdFichierXLS)
FIN
 
POUR i = 1 A 50
	TABLE_Table1.Date_1=xlsDonnée(IdFichierXLS,i,1)
	TABLE_Table1.Temp_Entree=xlsDonnée(IdFichierXLS,i,2)
	TABLE_Table1.Temp_Chaud=xlsDonnée(IdFichierXLS,i,3)
	TABLE_Table1.Temp_Sortie=xlsDonnée(IdFichierXLS,i,4)
	TABLE_Table1.Recircul=xlsDonnée(IdFichierXLS,i,5)
	TABLE_Table1.Num_Phase=xlsDonnée(IdFichierXLS,i,6)
	TABLE_Table1.Phase=xlsDonnée(IdFichierXLS,i,7)
	TABLE_Table1.Lait=xlsDonnée(IdFichierXLS,i,8)
	TABLE_Table1.Jour=xlsDonnée(IdFichierXLS,i,9)
	TABLE_Table1.Sectime=xlsDonnée(IdFichierXLS,i,10)
FIN

Si vous voyez une erreur.

Merci d’avance et excusé moi pour le dérangement
Cordialement Law56100

[cannelaure]

Bonjour,

Voici le code qui me paraît plus correct :

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
// Suppression du contenu de la table
TableSupprimeTout(TABLE_Table1)
 
POUR i = 1 A 50
	// Ajout d'une ligne vide
	TableAjoute(TABLE_Table1)
 
	// Eléments dans la ligne
	TABLE_Table1.Date_1[i]=xlsDonnée(IdFichierXLS,i,1)
	TABLE_Table1.Temp_Entree[i]=xlsDonnée(IdFichierXLS,i,2)
	TABLE_Table1.Temp_Chaud[i]=xlsDonnée(IdFichierXLS,i,3)
	TABLE_Table1.Temp_Sortie[i]=xlsDonnée(IdFichierXLS,i,4)
	TABLE_Table1.Recircul[i]=xlsDonnée(IdFichierXLS,i,5)
	TABLE_Table1.Num_Phase[i]=xlsDonnée(IdFichierXLS,i,6)
	TABLE_Table1.Phase[i]=xlsDonnée(IdFichierXLS,i,7)
	TABLE_Table1.Lait[i]=xlsDonnée(IdFichierXLS,i,8)
	TABLE_Table1.Jour[i]=xlsDonnée(IdFichierXLS,i,9)
	TABLE_Table1.Sectime[i]=xlsDonnée(IdFichierXLS,i,10)
FIN

Encore une remarque pour la 1ère colonne de la table :
la fonction xlsDonnée convertit les dates au format JJ/MM/AAAA.