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