//// Emplacement du fichier Excel \\\\\ sSel est une chaîne = "D:\Documents\Desktop\fichier.xls" //// Autant de déclaration de variable qu'il y a de colonnes à importer \\\\ nCOl1 est entier = 1 nCOl2 est entier = 2 nCOl3 est un entier = 3 nCOl4 est un entier = 4 nCOl5 est un entier = 5 //// On supprime le contenu de la base \\\\\ HSupprimeTout(base) //// On ouvre le fichier Excel \\\\\ IDXls est un entier=xlsOuvre(sSel) //// On alimente la base \\\\\ SI IDXls<>-1 ALORS iTaille est un entier=xlsNbLigne(IDXls,Faux) i est un entier=1 TANTQUE i<=iTaille i++ base.1=xlsDonnée(IDXls,i,nCOl1,Faux) base.2=xlsDonnée(IDXls,i,nCOl2,Faux) base.3=xlsDonnée(IDXls,i,nCOl3,Faux) base.4=xlsDonnée(IDXls,i,nCOl4,Faux) base.5=xlsDonnée(IDXls,i,nCOl5,Faux) HAjoute(base) FIN SINON Erreur(xlsMsgErreur(IDXls)+" "+ErreurInfo()) FIN