Bonjour.
En faisant des recherches sur le net, et en "cuisinant" un peu je suis arrive a écrire ce script qui permet de créer un graphique sous Excel a partir d'une table, le tout avec perl.
Voici le script:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
    use strict;
    use Win32::OLE;
    use Win32::OLE::Const 'Microsoft Excel';
 
    my $Excel = Win32::OLE->new("Excel.Application");
    $Excel->{Visible} = 1;
 
 
    my $Book = $Excel->Workbooks->Add;
    my $Sheet = $Book->Worksheets(1);
    my $Range = $Sheet->Range("A2:C7");
 
        $Range->{Value} =
        [['VAL1', 'VAL2', 'VAL3'],
         [50, 102, 86],
         [67, 150, 174],
         [89, 26, 201],
         [127, 471, 321],
         [156, 536, 241]];
 
 
        my $Chart = $Excel->Charts->Add;
        $Chart->{ChartType} = xlLine;
        $Chart->SetSourceData({Source => $Range, PlotBy => xlColumns});
        $Chart->{'HasTitle'} = 1;
        $Chart->ChartTitle->{Text} = "Graphe cree avec PERL";
 
        $Book->SaveAs("chart.xls");
        $Book->Close;
Cependant, je remarque que les abscisses sont {1, 2, 3, 4, 5} et j'aimerai les modifier en {-95, -97, -99, -101, -103} par exemple.
Quelqu'un saurait quelles modifications je devrais apporter pour ajouter ces valeurs?

Merci d'avance,

roob1