help import de excel

bonjour et merci de me lire
j ai ce code qui devrait me permettre de recupérer l ensemble d un fichier
excel et l incorporer dans ma table contact
je suis une mule et je n arrive pas a comprendre la procedure fonctionne
mais ne me recupere que la derniere ligne du fichier excel la ligne 540 et
me l enregistre dans mon fichier contact mais il me serait agreable de
recupérer les 540
pouvez vous me dire pourquoi ca fonctionne pas ?

je vous remercie d avance
david
i,t est un entier

xls est un entier

NbCol est un entier

NbLig est un entier

xls = xlsOuvre("C:\test1.xls")

NbCol = xlsNbColonnes(xls)

NbLig = xlsNbLignes(xls)

Info(xls,NbCol,NbLig)

Sablier(Vrai)

HCréationSiInexistant(CONTACT)


HGèreIntégrité ( "*" , "*" , hCardinalité + hEnModification + hEnSuppression
, Faux )

HGèreDoublon (CONTACT, Faux )


POUR t= 1 A 540 // avec ou sans cette ligne ca change rien

POUR t=1 A NbLig

POUR i=1 A NbCol



SELON i

CAS 1: CO.PRENOM_CLIENT = xlsDonnée(xls,t,i)

CAS 2: CO.NOM_CLIENT = xlsDonnée(xls,t,i)

CAS 3: CO.societe = xlsDonnée(xls,t,i)

CAS 4: CO.adre1 = xlsDonnée(xls,t,i)

CAS 5: CO.ville = xlsDonnée(xls,t,i)

CAS 6: CO.provinc = xlsDonnée(xls,t,i)

CAS 7: CONTACT.cp = xlsDonnée(xls,t,i)

CAS 8: CONTACT.Fa_pro = xlsDonnée(xls,t,i)

CAS 9: CONTACT.tel_pro = xlsDonnée(xls,t,i)

CAS 10 : CONTACT.tel = xlsDonnée(xls,t,i)

CAS 11 : CONTACT.cellulai = xlsDonnée(xls,t,i)

CAS 12 : CONTACT.couriel = xlsDonnée(xls,t,i)

CAS 13 : CONTACT.courriel_pro = xlsDonnée(xls,t,i)

CAS 14 : CONTACT.remarques1 = xlsDonnée(xls,t,i)

CAS 15 : CONTACT.remarque2 = xlsDonnée(xls,t,i)

CAS 16 : CONTACT.remarque3 = xlsDonnée(xls,t,i)

CAS 17 : CONTACT.langue = xlsDonnée(xls,t,i)

CAS 18 : CONTACT.VECLEUNIK = "1"

CAS 19 : CONTACT.C0CLEUNIK = "1"


FIN





FIN


FIN

HAjoute("CONTACT",hForceIdAuto)

FIN

Info("terminé")