EXPORTATION DES TABLEAUS VERS EXCEL

<!--
/*---------------------------------------------------------
Nom de la fonction : exportToXL
Description : Rempli une feuille Excel avec le contenu
d'un tableau
Entrées :
eSrc -> tableau à exporter
Sorties :
En cas d'erreur renvoie false
---------------------------------------------------------*/
function exportToXL(eSrc,diff) {

	var oExcel; // Application Excel
	var oExcelSheet; // Feuille de calcul
	var oWkBooks;
	var cols; // Nombre de colonnes du tableau
	var j=0;
	oExcel = new ActiveXObject('Excel.Application');
	oWkBooks = oExcel.Workbooks.Add;
	oExcelSheet = oWkBooks.Worksheets(1);

	oExcelSheet.Activate();

	if (eSrc.tagName != 'TABLE') {
		alert('L\'export vers Excel ne fonctionne qu\'avec un tableau.');
		return false;
	}
	cols = Math.ceil(eSrc.cells.length / eSrc.rows.length)-diff;
	for (var i = 0; i < eSrc.cells.length; i ++)
	{
		var c, r;
		j++;
		if(j>cols){
		//	alert(j+'  '+cols);
			i+=diff;
			j=0;
		}
		r = Math.ceil((i+1) / cols); //lignes en cours
		c= (i+1)-((r-1)*cols) //colonnes en cours
		//En tête de colonnes
		if (eSrc.cells(i).tagName == 'TH') {
		oExcel.ActiveSheet.Cells(r,c).Font.Bold = true;
		oExcel.ActiveSheet.Cells(r,c).Interior.Color = 14474460; //gris
		}

		// Texte en gras
		if (eSrc.cells(i).childNodes.length > 0 && eSrc.cells(i).childNodes(0).tagName == "B")
			oExcel.ActiveSheet.Cells(r,c).Font.Bold = true;
		// Rempli le contenu
		oExcel.ActiveSheet.Cells(r,c).Value = eSrc.cells(i).innerText;
		}
		oExcelSheet.Application.Visible = true;

}