Ouvre(Fiche_Donnee, "Création", "Donnee1" )

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(NomFichier,"*",Faux)

POUR t=2 A nbLig
//On commence par regarder si le nom existe	HLitRecherche(NomFichier,"Nom",xlsDonnée(nXls,t,1),hIdentique) // hIdentique : Pour eviter que Dupont et Dupontel soient détectés en doublon.
	SI PAS HTrouve ALORS  // Si existe pas alors on initialise
	 {NomFichier + ".Nom",indRubrique} = xlsDonnée(nXls,t,1)
	 {NomFichier + ".classes",indRubrique} = xlsDonnée(nXls,t,2)
	 {NomFichier + ".Difficultes",indRubrique} = xlsDonnée(nXls,t,3)
	 {NomFichier + ".Pai",indRubrique} = xlsDonnée(nXls,t,4)
	 {NomFichier + ".Suivi",indRubrique} = xlsDonnée(nXls,t,5)
	 {NomFichier + ".Suites",indRubrique} = xlsDonnée(nXls,t,6)
	 {NomFichier + ".Date",indRubrique} = xlsDonnée (nXls,t,7)
		Si Pas HAjoute(NomFichier) Alors//Puis on ajoute
                  //Ici on traite les erreurs
                Fin
	FIN
FIN


xlsFerme(nXls)