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
| chemin is string = fSelect("", "", "Sélectionnez un fichier.....", "Excel"+TAB+"*.xls", "*.xls", fselOpen+fselExist)
idfichierxls is int
i is int =0
nbligne is int
Jauge1..MinValue = 1
Jauge1 = 0
TableDeleteAll(Table1)
IF chemin <> "" THEN
idfichierxls = xlsOpen(chemin)
IF idfichierxls = -1 THEN
Error ("Impossible d'ouvrir le fichier spécifié !!")
END
nbligne = xlsNbLigne(idfichierxls)
//Info(nbligne)
Jauge1..MaxValue = nbligne
FOR i= 2 TO nbligne
HRAZ(Resultat)
Resultat.nom =NoSpace(xlsData(idfichierxls,i,1))
Resultat.prenom =NoSpace(xlsData(idfichierxls,i,2))
Resultat.mg =NoSpace(xlsData(idfichierxls,i,3))
TableAjouteLigne(Table1,"",Resultat.nom,Resultat.prenom,Resultat.mg)
SI HAjoute(Resultat) ALORS
Trace(Resultat.nom,Resultat.prenom,Resultat.mg)
SINON
Info("ERREUR")
FIN
Jauge1 += 1
END
xlsClose(idfichierxls)
END |
Partager