Bonjour a tous,
Je viens solliciter votre aide sur un problème que je rencontre.
fichiercsv est une chaîne
vrech est une chaîne
Idfichiercsv est un entier
j,i est un entier
cpt, nbrel est un entier
fichiercsv = fSélecteur("","", "Sélection d'un fichier CSV", ...
"Fichier CSV" + TAB + "*.CSV", "CSV", fselOuvre+fselExiste)
SI fichiercsv="" ALORS RETOUR
Idfichiercsv = xlsOuvre(fichiercsv)
SI Idfichiercsv <> -1 ALORS
nbrel=xlsNbLigne(Idfichiercsv)
j=(xlsNbLigne(Idfichiercsv)-2)
cpt=2
POUR i=0 A j
TANTQUE cpt<= nbrel
HLitRecherchePremier(AGENT,MATRICULE,xlsDonnée(Idfichiercsv, cpt, 1, Faux))
SI PAS HTrouve(AGENT) ALORS
HRAZ(AGENT)
AGENT.MATRICULE=xlsDonnée(Idfichiercsv, cpt, 1 , Faux)
AGENT.NOM=xlsDonnée(Idfichiercsv, cpt, 2 , Faux)
AGENT.PRENOM=xlsDonnée(Idfichiercsv, cpt, 3 , Faux)
AGENT.DATENAISS=xlsDonnée(Idfichiercsv, cpt, 4, Faux)
AGENT.LIEUNAISS=xlsDonnée(Idfichiercsv, cpt, 5, Faux)
AGENT.DATEJOUR=xlsDonnée(Idfichiercsv, cpt, 6 , Faux)
AGENT.CATEGORIE=xlsDonnée(Idfichiercsv, cpt, 7 , Faux)
AGENT.GROUPE=xlsDonnée(Idfichiercsv, cpt, 8 , Faux)
AGENT.HEUREARRIVEE=xlsDonnée(Idfichiercsv, cpt, 9 , Faux)
AGENT.HEUREDEPART=ChaîneVersDate(xlsDonnée(Idfichiercsv, cpt, 10 , Faux))
AGENT.DUREE=xlsDonnée(Idfichiercsv, cpt, 11 , Faux)
AGENT.HEURESUP=xlsDonnée(Idfichiercsv, cpt, 12 , Faux)
HAjoute(AGENT)
SINON
AGENT.MATRICULE=xlsDonnée(Idfichiercsv, cpt, 1 , Faux)
AGENT.NOM=xlsDonnée(Idfichiercsv, cpt, 2 , Faux)
AGENT.PRENOM=xlsDonnée(Idfichiercsv, cpt, 3 , Faux)
AGENT.DATENAISS=xlsDonnée(Idfichiercsv, cpt, 4, Faux)
AGENT.LIEUNAISS=xlsDonnée(Idfichiercsv, cpt, 5, Faux)
AGENT.DATEJOUR=xlsDonnée(Idfichiercsv, cpt, 6 , Faux)
AGENT.CATEGORIE=xlsDonnée(Idfichiercsv, cpt, 7 , Faux)
AGENT.GROUPE=xlsDonnée(Idfichiercsv, cpt, 8 , Faux)
AGENT.HEUREARRIVEE=xlsDonnée(Idfichiercsv, cpt, 9 , Faux)
AGENT.HEUREDEPART=ChaîneVersDate(xlsDonnée(Idfichiercsv, cpt, 10 , Faux))
AGENT.DUREE=xlsDonnée(Idfichiercsv, cpt, 11 , Faux)
AGENT.HEURESUP=xlsDonnée(Idfichiercsv, cpt, 12 , Faux)
HModifie(AGENT)
FIN
i++
Jauge(i,j)
cpt++
FIN
Info("Importation terminée",(i)+" Enregistrement(s) ")
FIN
FIN
AVEC CE CODE JE SOUHAITE IMPORTER UN FICHIER D'EXTENSION .csv , MAIS J'ARRIVE A CHOISIR LE FICHIER SUR MON POSTE MAIS LA MISE A JOUR NE SE FAIT PAS.
AVEC CE CODE EN EXCEL JE LE FAIT SANS SOUCIS MAIS LES FICHIERS csv NE PASSENT PAS.
MERCI POUR VOTRE AIDE.
--
factoriel_timo@.ci |