PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WEBDEV 2024 → Importation donnée excel
Importation donnée excel
Débuté par djedje, 16 sep. 2019 16:39 - 2 réponses
Posté le 16 septembre 2019 - 16:39
Bonjour

Je travaille sur un projet et j'ai besoin d'aide.
J'aimerais transférer le contenu d'un classeur excel vers un tableau et cela avec webdev.
j'ai vu beaucoup de proposition avec windev mais pas avec webdev quelqu'un a t il déjà eu a travailler sur ce genre de problème ?

Merci encore de votre aide

PS: j'utilise webdev 24
Membre enregistré
7 messages
Posté le 18 septembre 2019 - 10:06
Bonjour,
C'est le même principe que sous Windev
la seule différence, c'est que vous devez au préalable uploader votre fichier xsl sur le serveur (Champ de saisie de type upload puis UploadNomFichier)
et ensuite xlsOuvre, xlsFeuilleEnCours, xlsDonnée, ...
il existe déjà pas mal de sujet dessus
https://forum.pcsoft.fr/fr-FR/pcsoft.fr.windev/185991-code-importation-fichier-excel-dans-table-windev/read.awp
Membre enregistré
54 messages
Popularité : +3 (3 votes)
Posté le 19 septembre 2019 - 15:23
Salut Djedje , voici le bout de code que j'utilise pour importer un feuille excel dans WebDev, a toi de l'adapter :

sSel est une chaîne = "chemin complet de mon fichier excel"

nCOl1 est entier = 1 // ou la colonne 1 de ma feuille excel
nCOl2 est entier = 2 // ou la colonne 2 de ma feuille excel
nCOl3 est un entier = 3 // ou la colonne 3 de ma feuille excel
nCOl4 est un entier = 4 // ou la colonne 4 de ma feuille excel
nCOl5 est un entier = 5 // ou la colonne 5 de ma feuille excel

HSupprimeTout(MABASE)

IDXls est un entier=xlsOuvre(sSel)

xlsFeuilleEnCours(IDXls,1) // Numéro de la feuille à importer

SI IDXls<>-1 ALORS
iTaille est un entier=xlsNbLigne(IDXls,Faux)
i est un entier=1
TANTQUE i<=iTaille
i++
MABASE.DONNEE01=xlsDonnée(IDXls,i,nCOl1,Faux)
MABASE.DONNEE02=xlsDonnée(IDXls,i,nCOl2,Faux)
MABASE.DONNEE03=xlsDonnée(IDXls,i,nCOl3,Faux)
MABASE.DONNEE04=xlsDonnée(IDXls,i,nCOl4,Faux)
MABASE.DONNEE05=xlsDonnée(IDXls,i,nCOl5,Faux)
HAjoute(MABASE)
FIN
SINON
Erreur(xlsMsgErreur(IDXls)+" "+ErreurInfo())
FIN


Tu peux remplacer l'ajout dans BASE par un tableau ou un table entre les balises TANTQUE et FIN
Message modifié, 19 septembre 2019 - 15:26