EXPORTER UN TABLEAU SOUS EXCEL
willinfeo
Messages postés
55
Date d'inscription
vendredi 25 juillet 2003
Statut
Membre
Dernière intervention
4 décembre 2005
-
28 août 2003 à 10:41
cs_radoso Messages postés 5 Date d'inscription lundi 25 décembre 2006 Statut Membre Dernière intervention 18 avril 2008 - 18 avril 2008 à 00:44
cs_radoso Messages postés 5 Date d'inscription lundi 25 décembre 2006 Statut Membre Dernière intervention 18 avril 2008 - 18 avril 2008 à 00:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/16372-exporter-un-tableau-sous-excel
https://codes-sources.commentcamarche.net/source/16372-exporter-un-tableau-sous-excel
18 avril 2008 à 00:44
merci d'avance!
8 oct. 2006 à 15:14
30 déc. 2003 à 17:09
23 oct. 2003 à 20:14
sinon l'active x doit uniquement etre sur le client car c'est du javascript donc tout s'execute du coté client ;)
sinon je remercie phm pour ces bouts de code et conseils, je vais bientot mettre a jour la source, mais pas ce soir ;)
bonne continuation
23 oct. 2003 à 18:35
22 oct. 2003 à 17:34
Marci
22 oct. 2003 à 12:03
function Encadre(myCell)
{
xlToRight=-4161;
xlDown=-4121;
xlNone=-4142;
xlEdgeLeft=7;
xlEdgeTop=8;
xlEdgeBottom=9;
xlEdgeRight=10;
xlContinuous=1;
xlThin=2;
xlAutomatic=-4105;
xlInsideVertical=11;
xlInsideHorizontal=12;
myCell.Borders(xlEdgeLeft).LineStyle = xlContinuous;
myCell.Borders(xlEdgeLeft).Weight = xlThin;
myCell.Borders(xlEdgeLeft).ColorIndex = xlAutomatic;
myCell.Borders(xlEdgeTop).LineStyle = xlContinuous
myCell.Borders(xlEdgeTop).Weight = xlThin
myCell.Borders(xlEdgeTop).ColorIndex = xlAutomatic
myCell.Borders(xlEdgeBottom).LineStyle = xlContinuous
myCell.Borders(xlEdgeBottom).Weight = xlThin
myCell.Borders(xlEdgeBottom).ColorIndex = xlAutomatic
myCell.Borders(xlEdgeRight).LineStyle = xlContinuous
myCell.Borders(xlEdgeRight).Weight = xlThin
myCell.Borders(xlEdgeRight).ColorIndex = xlAutomatic
}
ICI juste après le remplissage du contenu
// Rempli le contenu
oExcel.ActiveSheet.Cells(r,c).Value = eSrc.cells(i).innerText;
// Encadre
myCell=oExcel.ActiveSheet.Cells(r,c);
Encadre(myCell);
}
en fin de code on peut aussi ajouter
oExcel.ActiveWindow.DisplayGridlines = false;
c'est plus joli.
On peut récupérer le CAPTION en mettant un ID et un NAME à la balise CAPTION et en le passant en paramètre :
function exportToXL(id,idCaption) {
eSrc=document.all(id) // recherche le composant ayant cet id
eCap=document.all(idCaption)
en fin de code on insère une ligne et on met eCap.value dans la cellule A1 .
Pour la couleur de fond de la table elle-même
eSrc.bgColor tout simplement
A+++
20 oct. 2003 à 14:56
j'ai fait un petite adaptation (id=17140)
avec lecture des couleurs en compilant un peu toutes les remarques
des uns et des autres.
Merci pour ce super script !
A+
24 sept. 2003 à 15:18
On peut pour cela utiliser la fonction 'toDecimal' trouvé sur ce post:
http://www.javascriptfr.com/code.aspx?ID=16365.
J'ai testé ca marche nickel
11 sept. 2003 à 13:49
J'ai toutefois un problème
cela ne fonctionne pas quand je change l'extension en php
Il me note une erreures sur la page
avez vous une idée ?
salut
30 août 2003 à 12:20
Mais je n'aurai jamais reussi a faire un truc pareil sans ta source ;)
Donc je te remercie pour ton aide ;)
En tout cas, maintenant la gestion des tableaux devient vraiment simple :=)
Si on rajoute a ma source celle de francktfr : ( tri de tableau HTML )
http://www.javascriptfr.com/article.aspx?Val=724
on obtient des trucs super sympas ...
et facile a mettre en oeuvre.
Mais la, je vous laisse faire ....
Vive le Javascript ;)
Et si quelqu'un sait convertir du RVB stoké en hexa en code couleur a la microsoft, ou juste me dire comment marche le code couleur windobe,
et bien je vous promet d'actualiser la source en fesant de la vrai gestion de couleur ;)
Sur ce, bonne journée
30 août 2003 à 11:33
Mais je suis flatté que tu ai utilisé mon source pour faire le tien.
Je ne te tiens pas rigueur de tes remarques. Je trouve au contraire que c'est très constructif de pouvoir donner son avis. Toutefois, j'ai mis à disposition dans mon source une fonction de base pour laquelle j'avais indiqué que des améliorations était possible.
Bravo, pour ton excellent travail.
28 août 2003 à 15:57
maintenant, y'a pas a dire, ca gere ;)
28 août 2003 à 13:18
28 août 2003 à 10:41