WDForge.org - Forums

Re: TableVersExcel

Sujet: Re: TableVersExcel
par R&B sur 4/3/2005 16:13:18

Pourquoi alors ne pas alors créer un fichier csv et l'ouvrir avec excel (je crois même que si vous le nommez .xls, Excel réagiera sans douleur).

Dans le fichier, il suffit alors de créer une ligne avec vos libellés en séparant les données par des TAB.

Exemple (saisi à la volée, à confirmer):

i est un entier
cChaine est une chaine
POUR i = 1 à Tableoccurrence(TABLE,toColonne)
   SI cChaine<>"" ALORS cChaine+=TAB
   cChaine+={TableEnumèreColonne(TABLE,i),indChamp}..Libellé
FIN

eFic est un entier = fOuvre("Classeur.xls", foCréation+foEcriture)
SI eFic ALORS 
   fEcritLigne(efic,cChaine)
   fFerme(efic)
FIN