1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
| 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 |
Partager