Gestion des doublons | Sujet: Gestion des doublons par toco sur 12/12/2006 15:52:47
Bonjour, J'importe des données d'une table Excel dans un fichier HF par le biais du code suivant:
//importation du ficheir Excel
NomFichierExcel est une chaîne= fSélecteur("", "DISPO.XLS", "Sélectionnez un fichier...", "Excel"+TAB+"*.xls", "*.xls")
//si la sélection est annulée, arrêt de la procédure
SI NomFichierExcel =" " ALORS RETOUR
//import du fichier
//ouverture du fichier
NumFichierXls est un entier = xlsOuvre(NomFichierExcel)
//si le fishier ne s'ouvre pas message d'erreur
SI NumFichierXls =-1 ALORS
Erreur("Impossible d'ouvrir le fichier " + NomFichierExcel + RC + "Veuillez vérifier le format de ce fichier")
RETOUR
FIN
//nombre de ligne à importer
nIter est un entier=0
nbLigneXls est un entier = xlsNbLigne(NumFichierXls)
//boucle sur le nbre de ligne
POUR nIter = 2 A nbLigneXls
Planning.date=ChaîneVersDate(xlsDonnée(NumFichierXls,nIter,4))
Planning.gh1=xlsDonnée(NumFichierXls,nIter,1)
Planning.gh2=xlsDonnée(NumFichierXls,nIter,2)
Planning.gh3=xlsDonnée(NumFichierXls,nIter,3)
Planning.IDPersonnel=xlsDonnée(NumFichierXls,nIter,5)
HSurErreur(Planning,hErrDoublon,"GestionDoublons")
HAjoute(Planning)
Jauge(nIter,nbLigneXls,"Importation en cours Planning " +nIter +" / " +nbLigneXls)
FIN
//fermeture du fichier xls
xlsFerme(NumFichierXls)
//réaffichage de la table
Jauge()
Rafraichir()
Message("Terminé")
Je souhaite que lors de la détection de doublons (sur la clé composée IdPersonnel+Date), à l'import les enregistrements identiques soient remplacés par les derniers importés. Merci de votre aide
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|