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 |