[قلام الحاج]

xlsFeuilleEnCours(fich,Table1.Lignes)
nBrli est un entier=xlsNbLigne(fich,Faux)
TableSupprimeTout(Table2)
Table2.Colonne1..Libellé=xlsDonnée(fich,1,1,Faux)
Table2.Colonne2..Libellé=xlsDonnée(fich,1,2,Faux)
Table2.Colonne3..Libellé=xlsDonnée(fich,1,3,Faux)
Table2.Colonne4..Libellé=xlsDonnée(fich,1,4,Faux)
Table2.Colonne5..Libellé=xlsDonnée(fich,1,5,Faux)
Table2.Colonne6..Libellé=xlsDonnée(fich,1,6,Faux)
Table2.Colonne7..Libellé=xlsDonnée(fich,1,7,Faux)
Table2.Colonne8..Libellé=xlsDonnée(fich,1,8,Faux)
Table2.Colonne9..Libellé=xlsDonnée(fich,1,9,Faux)
Table2.Colonne10..Libellé=xlsDonnée(fich,1,10,Faux )
Table2.Colonne11..Libellé=xlsDonnée(fich,1,11,Faux )
Table2.Colonne12..Libellé=xlsDonnée(fich,1,12,Faux )
Table2.Colonne13..Libellé=xlsDonnée(fich,1,13,Faux )
Table2.Colonne14..Libellé=xlsDonnée(fich,1,14,Faux )
Table2.Colonne15..Libellé=xlsDonnée(fich,1,15,Faux )
Table2.Colonne16..Libellé=xlsDonnée(fich,1,16,Faux )
Table2.Colonne17..Libellé=xlsDonnée(fich,1,17,Faux )
Table2.Colonne18..Libellé=xlsDonnée(fich,1,18,Faux )
Table2.Colonne19..Libellé=xlsDonnée(fich,1,19,Faux )


POUR i=1 A nBrli
TableAjouteLigne(Table2,xlsDonnée(fich,i,1,Faux),x lsDonnée(fich,i,2,Faux),xlsDonnée(fich,i,3,Faux),x lsDonnée(fich,i,4,Faux),xlsDonnée(fich,i,5,Faux),x lsDonnée(fich,i,6,Faux),xlsDonnée(fich,i,7,Faux),x lsDonnée(fich,i,8,Faux),xlsDonnée(fich,i,9,Faux),x lsDonnée(fich,i,10,Faux),xlsDonnée(fich,i,11,Faux) ,xlsDonnée(fich,i,12,Faux),xlsDonnée(fich,i,13,Fau x),xlsDonnée(fich,i,14,Faux),xlsDonnée(fich,i,15,F aux),xlsDonnée(fich,i,16,Faux),xlsDonnée(fich,i,17 ,Faux),xlsDonnée(fich,i,18,Faux),xlsDonnée(fich,i, 19,Faux))
FIN



هذا كود القراءة في الجدول