dbl est un entier = 0
nDoublon est un entier
i est un entier
t est un entier
nXls est un entier
nbCol est un entier
nbLig est un entier
nXls = xlsOuvre("C:\imp.xls")
nbCol = xlsNbColonne(nXls)
nbLig = xlsNbLigne(nXls)
HStatNbDoublon(client,IDclient)
HCréationSiInexistant(client)
HGèreIntégrité("*", "*", hCardinalité + hEnModification + hEnSuppression, Faux)
HGèreDoublon(client,"*",Faux)
POUR T=2 A nbLig
POUR i=1 A nbCol
SELON i
CAS 2: client.Nom = xlsDonnée(nXls,t,i)
CAS 3: client.prénom = xlsDonnée(nXls,t,i)
CAS 4: client.Difficultes = xlsDonnée(nXls,t,i)
CAS 5: client.Pai = xlsDonnée(nXls,t,i)
CAS 6: client.Suivi = xlsDonnée(nXls,t,i)
CAS 7: client.Suites = xlsDonnée(nXls,t,i)
CAS 8: client.Date = xlsDonnée (nXls,t,i)
HAjoute(client,hAffecteParcours)
FIN
FIN
FIN
SI HStatNbDoublon() >= 1 ALORS
dbl = 1
FIN
SI dbl = 1 ALORS
nDoublon = HLitRecherche(client,IDclient,dbl)
HSupprime(client,nDoublon,hVérifieIntégrité)
FIN
xlsFerme(nXls)
SI HErreurIntégrité() = Vrai OU HErreurDoublon() = Vrai ALORS
Erreur("Une erreur c'est produite, veuillez recommencer")
SINON
Info("L'importation s'est déroulée avec succès.")
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=5246&post_id=21664