PROCEDURE ImporterDonnees(NomEta est une chaîne = "Donnee")
i est un entier
t est un entier
nXls est un entier
nbCol est un entier
nbLig est un entier
selecteur est une chaîne

selecteur = fSélecteur("", "", "Sélectionnez un fichier à importer", "Fichier Excel"+TAB+"*.xls", "*.xls", fselOuvre+fselExiste)
SI selecteur = "" ALORS RETOUR

nXls = xlsOuvre(selecteur)
nbCol = xlsNbColonne(nXls)
nbLig = xlsNbLigne(nXls)

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

POUR t=2 A nbLig
	//On commence par regarder si le nom existe	
	HLitRecherche(NomEta,"Nom",xlsDonnée(nXls,t,1),hIdentique) 
	HLitRecherche(NomEta,"Date_int",xlsDonnée(nXls,t,4),hIdentique)
	// hIdentique : Pour eviter que Dupont et Dupontel soient détectés en doublon.
	SI PAS HTrouve ALORS  // Si existe pas alors on initialise

		{NomEta + ".Nom",indRubrique} = xlsDonnée(nXls,t,1)
		{NomEta + ".Rs",indRubrique} = xlsDonnée(nXls,t,2)
		{NomEta + ".A_voir",indRubrique} = xlsDonnée (nXls,t,3)
		{NomEta + ".Date_int",indRubrique} = xlsDonnée (nXls,t,4)
		{NomEta + ".Classes",indRubrique} = xlsDonnée(nXls,t,5)
		{NomEta + ".Difficultes",indRubrique} = xlsDonnée(nXls,t,6)
		{NomEta + ".Pai",indRubrique} = xlsDonnée(nXls,t,7)
		{NomEta + ".Suivi",indRubrique} = xlsDonnée(nXls,t,8)
		{NomEta + ".Suites",indRubrique} = xlsDonnée(nXls,t,9)
		{NomEta + ".Notes",indRubrique} = xlsDonnée(nXls,t,10)
		{NomEta + ".archiver",indRubrique} = xlsDonnée (nXls,t,11)
		
		SI PAS HAjoute(NomEta) ALORS//Puis on ajoute
			//Ici on traite les erreurs
		FIN
	FIN
FIN
xlsFerme(nXls)
TableAffiche(Fen_table.Table,taCourantBandeau)

SI selecteur = "" ALORS
	Info("Veuillez sélectionner un fichier à importer.")
SINON
	SI HErreurIntégrité() = Faux OU HErreurDoublon() ALORS
		Info("L'importation s'est déroulée avec succès !")
	SINON
		Erreur("Une erreur s'est produite, veuillez ré-essayer.")	
	FIN
FIN