PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WEBDEV (earlier versions) → importer fichier Excel
importer fichier Excel
Started by Mic, Nov., 08 2006 8:29 AM - 2 replies
#1
Posted on November, 08 2006 - 8:29 AM
Bonjour,

Je démarre avec WebDev (9) et je dois mettre en place un "catalogue" logiciels dans un intranet. Ces logiciels sont pour l'instant dans un fichier Excel.
1- Comment puis-je importer ce fichier dans une table ?
2- Dois-je créer la table d'abord dans un projet ?
3- Les rubriques de tables se crééront-elles selon le contenu du fichier Excel ?

Merci d'avance pour votre aide précieuse !.
#2
Posted on November, 08 2006 - 12:33 PM
Bonjour,

Je démarre avec WebDev (9) et je dois mettre en place un "catalogue"
logiciels dans un intranet. Ces logiciels sont pour l'instant dans un
fichier Excel.
1- Comment puis-je importer ce fichier dans une table ?
2- Dois-je créer la table d'abord dans un projet ?
3- Les rubriques de tables se crééront-elles selon le contenu du fichier
Excel ?

Merci d'avance pour votre aide précieuse !.


Tu peux créer un fichier reprennant les colonnes de ton fichier Excel

Et avec ce morceau de code remplir ton fichier :

Je te donne ce que j'ai sous WinDev pour importer un fichier Excel :

Ouvrir le fichier Excel

// Créer un bouton de recuperation dans une fenetre

Local
i,k est un entier

kÝConnecte("Excel","NomduclasseurExcel")
Pour i = 1 à Nb de lignes Excel
// Mettre toutes les rubriques de ton fichier
NomFichier.Rubrique=excell(i,1,k) // excell => Procedur locale ci
dessous
NomFichier.Rubrique=excell(i,2,k)
// Attention si des dates a récuperer
NomFichier.Rubrique=ChaineversDate(excell(i,3,k))
.....
Hajoute(NomFichier)
fin
Hferme("")
DDEDeconnecte(k)

// Procedure Locale

Procedure excell(i,j,k)
Local
Rep est une chaine

Rep="L"+i+"C"+j
DDERecupere(k,Rep)
Rep=ExtraitChaine(DDEChaine(),1,RC)
RENVOYER(REP)

Et creer une table relié au fichier ou tes données apparaissent.
#3
Posted on November, 09 2006 - 11:39 AM
Merci j'essai tout de suite.
→ Go back to WEBDEV (earlier versions)