Bonjour, un petit bout de code pour importer des valeurs d'une table excel vers hyperfile Code (Windev): //Importation de la liste IdFichierXLS est un entier FichierExcel est une chaîne i,NbLigne,NbColonne est un entier FichierExcel="Chemin du fichier Excel.xls" SI Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(FichierExcel) ALORS Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(Client) IdFichierXLS = Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!("Chemin du fichier Excel.xls") NbLigne=Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(IdFichierXLS) Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(Client) POUR i=2 A NbLigne SI IdFichierXLS <> -1 ALORS Client.Code_Client= Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens! (IdFichierXLS,i,1,Vrai) Client.Nom= Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens! (IdFichierXLS,i,2,Vrai) Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(Client) FIN FIN SINON Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!("Le fichier Excel Clients.xls n'existe pas") FIN
dans ton code tu écrit HCréation(Client) ce n'est pas obligatoirement le bon nom de fichier. il vaut mieux demander a l'utilisateur pour choisir le fichier il y a fselecteur de plus un fichier excel peut contenir plusieurs feuilles. bon je m'arrête là. c'est qu'en même un bon début. Je crois me rappeler qu'il existe une lst récupérant un fichier xls remplissant une table et enregistre celle-ci en fic. Je me souvient plus le numéro.
effectivement c'est pour une intégration dans un prog avec un nom de fichier de base déterminé et un fichier excel précis monopage, c 'est un début a chacun de l’améliorer , pour la lst je ne sais pas
Bon après une petite recherche. c'était l'exemple wd import csv de la lst 68 qu'il est facile de modifier pour importer un fichier xls.
et si vous s'avais un gros fichier excel par exemple 800 000 ligne, je te garanti que ton code ne fonctionnera pas ... Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Une petite correction pour optimiser le code, inutile de lancer les traitements sur le fichier si il n'est pas ouvert. IdFichierXLS = xlsOuvre("Chemin du fichier Excel.xls") SI IdFichierXLS <> -1 ALORS NbLigne=xlsNbLigne(IdFichierXLS) HOuvre(Client) POUR i=2 A NbLigne Client.Code_Client= xlsDonnée (IdFichierXLS,i,1,Vrai) Client.Nom= xlsDonnée (IdFichierXLS,i,2,Vrai) HAjoute(Client) FIN // POUR i=2 A NbLigne FIN // SI IdFichierXLS <> -1
Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens! Une petite correction pour optimiser le code, inutile de lancer les traitements sur le fichier si il n'est pas ouvert. IdFichierXLS = xlsOuvre("Chemin du fichier Excel.xls") SI IdFichierXLS <> -1 ALORS NbLigne=xlsNbLigne(IdFichierXLS) HOuvre(Client) POUR i=2 A NbLigne Client.Code_Client= xlsDonnée (IdFichierXLS,i,1,Vrai) Client.Nom= xlsDonnée (IdFichierXLS,i,2,Vrai) HAjoute(Client) FIN // POUR i=2 A NbLigne FIN // SI IdFichierXLS <> -1Cliquez pour agrandir...