|
| code d'importation d'un fichier Excel dans une table Windev |
| Débuté par CAMARA, 10 aoû. 2015 21:01 - 8 réponses |
| |
| | | |
|
| |
Posté le 10 août 2015 - 21:01 |
Bonjour Messieurs,
J'utilise Windev 17. Je cherche le code d'importation des données d'une feuille exel dans une table Windev. La feuille excel contient 4 colonnes nommées : Matricule, Nom, Prénoms, Sexe
Je compte beaucoup sur votre collaboration |
| |
| |
| | | |
|
| | |
| |
Posté le 11 août 2015 - 09:41 |
Parmis les énormes plus de windev, une aide en ligne remarquable, et un cours d'autoformation bien fait.
Cerise sur le gâteau, une tonne d'exemples livrés en standard.
Franchement tu n'as pas l'impression qu'en utilisant tout celà tu pourrais avancer plus vite qu'en quémandant du code ?
Cordialement. |
| |
| |
| | | |
|
| | |
| |
Posté le 11 août 2015 - 09:50 |
Camara voici un code que j'ai l'habitude d'appliquer pour l'importation de fichier excel
SI OuiNon("Voulez-vous réellement lancer l'importation du fichier?") ALORS
i est un entier
FichierXLS est une chaîne
IdFichierXLS est un entier
nResnblignes est un entier
FichierXLS = fSélecteur("", "", "Sélection d'un fichier XLS", ...
"Fichier XLS" + TAB + "*.XLS", "XLS", fselOuvre+fselExiste)
IdFichierXLS = xlsOuvre(FichierXLS)
SI IdFichierXLS <> -1 ALORS
nResnblignes=xlsNbLigne(IdFichierXLS)
Info("Le fichier contient : " + nResnblignes + " lignes titre des colonnes y compris")
SI IdFichierXLS<>-1 ALORS
SI OuiNon("Voulez-vous confirmer l'importation?") ALORS
POUR i=2 A nResnblignes
SI xlsDonnée(IdFichierXLS,i,1) <> "" ALORS TableAjouteLigne(matable,xlsDonnée(IdFichierXLS,i,1),xlsDonnée(IdFichierXLS,i,2)),xlsDonnée(IdFichierXLS,i,3),xlsDonnée(IdFichierXLS,i,4))
FIN
FIN
xlsFerme(IdFichierXLS)
Info("Importation terminée.")
SINON
Erreur("Le fichier Excel est déjà ouvert !"+RC+"ou le lien n'est pas valide.")
RETOUR
FIN
Sablier(Faux)
xlsFerme(IdFichierXLS)
FIN
SINON
Erreur(xlsMsgErreur(IdFichierXLS))
FIN
FIN |
| |
| |
| | | |
|
| | |
| |
Membre enregistré
474 messages
Popularité : +17 (19 votes) |
|
Posté le 11 août 2015 - 10:23 |
| |
| |
| | | |
|
| | |
| |
Posté le 15 juillet 2017 - 15:32 |
ZOUAOUI, TU ES UN ANGE!!!!!!!!!!!!!! |
| |
| |
| | | |
|
| | |
| |
Posté le 06 novembre 2019 - 15:47 |
| |
| |
| | | |
|
| | |
| |
Posté le 11 décembre 2019 - 12:58 |
Voici mon code mais ma table windev m'affiche uniquement que le premier enregistrement,
Svp quelqu'un peut m'aider en corrigeant mon code
OuiNon("Voulez-vous réellement lancer l'importation du fichier?") ALORS
i est un entier
FichierXLS est une chaîne
IdFichierXLS est un entier
nResnblignes est un entier
FichierXLS = fSélecteur("", "", "Sélection d'un fichier XLSX", ...
"Fichier XLS" + TAB + "*.XLSX", "XLSX", fselOuvre+fselExiste)
IdFichierXLS = xlsOuvre(FichierXLS)
SI IdFichierXLS <> -1 ALORS
nResnblignes=xlsNbLigne(IdFichierXLS)
Info("Le fichier contient : " + nResnblignes + " lignes titre des colonnes y compris")
SI IdFichierXLS<>-1 ALORS
SI OuiNon("Voulez-vous confirmer l'importation?") ALORS
POUR i=2 A nResnblignes
SI xlsDonnée(IdFichierXLS,i,1) <> "" ALORS
TableAjouteLigne(TABLE_SUIVIERECHARGE,xlsDonnée(IdFichierXLS,i,1),xlsDonnée(IdFichierXLS,i,2),xlsDonnée(IdFichierXLS,i,3),xlsDonnée(IdFichierXLS,i,4),xlsDonnée(IdFichierXLS,i,5),xlsDonnée(IdFichierXLS,i,6),xlsDonnée(IdFichierXLS,i,7),xlsDonnée(IdFichierXLS,i, ,xlsDonnée(IdFichierXLS,i,9),xlsDonnée(IdFichierXLS,i,10))
FIN
i++
FIN
xlsFerme(IdFichierXLS)
Info("Importation terminée.")
SINON
Erreur("Le fichier Excel est déjà ouvert !"+RC+"ou le lien n'est pas valide.")
RETOUR
FIN
Sablier(Faux)
xlsFerme(IdFichierXLS)
FIN
SINON
Erreur("fichier introuvable")
FIN
FIN |
| |
| |
| | | |
|
| | |
| |
Posté le 15 décembre 2019 - 16:54 |
Alio,
Après TableAjouteLigne, tu rajoutes TableEnregistre:
TableAjouteLigne(TABLE_SUIVIERECHARGE,xlsDonnée(IdFichierXLS,i,1),xlsDonnée(IdFichierXLS,i,2),xlsDonnée(IdFichierXLS,i,3),xlsDonnée(IdFichierXLS,i,4),xlsDonnée(IdFichierXLS,i,5),xlsDonnée(IdFichierXLS,i,6),xlsDonnée(IdFichierXLS,i,7),xlsDonnée(IdFichierXLS,i,,xlsDonnée(IdFichierXLS,i,9),xlsDonnée(IdFichierXLS,i,10))
TableEregistre(TABLE_SUIVIERECHARGE) |
| |
| |
| | | |
|
| | |
| |
Posté le 06 décembre 2021 - 13:07 |
| |
| |
| | | |
|
| | | | |
| | |
|