//variables
    j,k,nbcol,nblig,numfic sont entier
    lajout est une chaîne



    numfic = xlsOuvre ("D:\essai.XLS")
    SI numfic<=-1 ALORS
       Info("Erreur d'ouverture du fichier")
    SINON
       nbcol = xlsNbColonne(numfic)
       nblig = xlsNbLigne(numfic)
       
       //vérifie le nombre de ligne et de colonne du doc Excel
       Info(nblig)
       Info(nbcol)
       
       POUR k=1 A nblig
          lajout=""
          POUR j=1 A nbcol
             lajout+=xlsDonnée(numfic,k,j)+TAB
          FIN
       TableAjoute(Table,lajout)
          
       FIN
       xlsFerme(numfic)
       
    FIN