Bonjour,

J'ai réalisé un tableau croisé dynamique à partir et d'une feuille de données et ensuite j'ai créé le graphique associé.

Je voudrai maintenant pouvoir sélectionner toutes les pages une à une et sélectionner toutes les colonnes une à une afin d'exporter en image le graphique généré.

Avez vous déjà fait cela et surtout est-ce possible ?

Je vous mets mon code en-dessous :

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
 
 
my ($fileIN) = @_;
my $Book = $Excel->Workbooks->Open($fileIN); 
my $Range = $Excel->ActiveSheet->Range("\$A:\$F");
 
my $Table = $Excel->ActiveSheet->PivotTableWizard(1, $Range, "", "MyPivotTable");
 
$Table->PivotFields("Valeur")->{Orientation}=4; # 3 : xlDataField;
$Table->PivotFields("Nombre de Valeur")->{Function}=0;
$Table->PivotFields("Pays")->{Orientation}=3; # 3 : xlPageField;
$Table->PivotFields("Type")->{Orientation}=2; # 2 : xlColumnField;
$Table->PivotFields("Date")->{Orientation}=1; # 1 : xlRowField;
 
my $chart = $Excel->Charts->Add;
$chart->{ChartType} = xlLineMarkers; 	
my $Axis = $chart->Axes(xlValue);
$Axis->{MinimumScale} = 0;
$Axis->{MaximumScale} = 100; 
$Axis->{MinorUnit} = 10; 
$Axis->{MajorUnit} = 20; 
$Axis->{Crosses} = xlCustom; 
$Axis->{CrossesAt} = 0;
Merci