1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
| <?php
session_start();
/*Connexion à la base de données*/
require_once('../fonction_connexion.php');
connexion();
require_once ('../ed/fonction_ed.php');
define("FILENAME","test.xls");
$chemin = 'C:\Documents and Settings\thomeres\Mes documents\test.xls';
header('Content-Type: application/msexcel');
header("Content-Disposition: attachment; filename=\"test.xls\"");
header('Cache-Control: must-revalidate, post-check=0, pre-check=0');
readfile($chemin);
$variable=liste_age("age","nb_age");
$age=liste_age("age","liste_age");
//Si le fichier existe, le supprimer
//if(file_exists(FILENAME)){
// unlink(FILENAME);
//}
$excel=new COM("Excel.application");//Instanciation de l'objet COM
$excel->sheetsinnewworkbook=1;//Une seule feuille dans le document
$excel->Workbooks->Add();//Ajout d'un classeur
$book=$excel->Workbooks(1);//$book contient le classeur actif
$sheet=$book->Worksheets(1);//$sheet contient la feuille active
$sheet->Name="Graphique effectifs par âge";//Attribution d'un nom à la feuille
$cell=$sheet->Range('A1');
$cell->value="Âge";
$cell=$sheet->Range('B1');
$cell->value="Effectifs";
$i=2;
while($i <= count($variable)+1){//Parcours du résultat de la requête
$cell=$sheet->Range('A'.$i);
$cell->value=$age[$i-2];
$cell=$sheet->Range('B'.$i);
$cell->value=$variable[$i-2];
$i++;
}
$i--;
$selection = $sheet->range("B2:B$i");//Sélection des cellules qui seront la source du graphique
$graph = $sheet->chartobjects->add(150, 10, 300, 250); //Ajout du graphique
$graphique = $graph->chart;//$graphique contient le graphique actif
$graphique->type=3;//le graphique est de type "Histogramme"
//$graphique->activate;//Activation du graphique
$graphique->setsourcedata($selection);//Définition de la source du graphique
//$graphique->ApplyDataLabels->type=5;//Afficher les valeurs
$graphique->HasTitle=true;
$graphique->ChartTitle->Text="Effectifs par âge";//Attribution d'un titre
//$book->saveas(FILENAME);//Enregistrement du document
unset($sheet);//Libération de $sheet
unset($book);//Libération de $book
$excel->Workbooks->Close();//Fermeture du classeur
$excel->Quit();//On quitte Excel
unset($excel);//Libération de l'objet $excel
?> |
Partager