Discussion :

[lauvydream]

Salut tout le monde,

j'ai généré un document Excel en utilisant Excel::Writer:: xlsx et en appliquant à la toute première feuille de calcul ($worksheet ou tout simplement $sheet dans mon script) un format donné.
Plus tard le document est sollicité avec possibilité d'ajouter automatiquement de nouvelles feuilles. Seulement ces feuilles nouvellement ajoutées n'acceptent pas le format imposé.
Je me dis que cela est dû à la définition du wokrsheet et workbook à la génération du fichier, différente de celle à l'ouverture simple.
J'espère que quelqu'un pourra trouver la solution à mon problème.
J'ai allégé le code afin de ne traiter que de cette partie là. Je joins aussi un doc excel qui sera sauvegardé dans le même dossier que le code.
Lancer ce dernier depuis la console et répondre "n" à la question posée.

J'aimerais que le template de la procédure en fin de code soit appliqué à la nouvelle feuille "Test Report2"

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
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
use strict;
use warnings;
use Cwd;
use OLE;
use Win32::OLE::Const "Microsoft Excel";
use constant SCRIPT_VERSION => "1.0.0";
use Data::Dumper;
use Excel::Writer::XLSX;
 
 
my $directory = &getcwd;
my $sheet;
my $sheet1;
my $alt;
my $column = 0;
my $tbCnt = 1;
my $workbook;
my $workbook1;
my $excel;
my $input;
my $block;
my $Excel_file = $directory . "\\Test_Excel" . ".xlsx";
 
#my $DIR = $ARGV[0];
 
#($DIR =~ s/^..// or $DIR =~ s/^.//);
 
#--if excel file doesn't exist create it------
if (!-e $Excel_file)
{
	print"\n";
	#sleep (1);
	$excel = CreateObject OLE 'Excel.Application';
	$excel -> {Visible} = 1;
	$Excel_file = $directory . "\\Test_Excel" . ".xlsx";
	$workbook = Excel::Writer::XLSX -> new('Test_Excel.xlsx');	
	$sheet = $workbook -> add_worksheet('Test Report1');
	$sheet1 = $sheet;
	$workbook1 = $workbook;
	&template;
}
 
#---otherwise open it-------------------------
else
{
	$excel = CreateObject OLE 'Excel.Application';
	$excel -> {Visible} = 1;
 
	$workbook = $excel    -> Workbooks  -> Open ( "$Excel_file" ) or die ( " can't open $Excel_file" );
	#$sheet    = $workbook -> Worksheets(1);
	$sheet    = $workbook -> Worksheets("Test Report" . $workbook -> Worksheets -> {Count});
 
	$sheet -> Activate();      
	$excel -> ActiveWindow    -> {FreezePanes} = "True";
	$excel    -> {DisplayAlerts} = 0;
}
 
#---blocs delimitation-------------------------------
print "\nIs this a new Excel Document? (y/n): ";
$input = <STDIN>;
chomp $input;
#$input_2 = 1;
print"\n";
 
 
my @alphabet = ("A".."ZZ");
 
if ($input =~ /y/i)
{	
	$column = 0;
	#$sheet -> Range ( "D:E" ) -> {HorizontalAlignment} = xlHAlignCenter;
 
	#$input_2 = 1;	
}
 
elsif($input =~ /n/i)
{
	$alt = $sheet -> Range( 'A14'  )-> {Value};
	print"value A14: $alt\n";
	print"table's number: $tbCnt \n";
 
	if($alt eq '')
	{
		$column = 0;	
	}
	else
	{		
		do
		{ 			
			$column = $column+9;						
			$alt = $sheet -> Range( $alphabet[$column]. '14' ) -> {Value};
			$tbCnt = $tbCnt + 1;
			print"value $alphabet[$column]14: $alt\n";
			print"table's number: $tbCnt \n";
		}
 
		until( $alt ne 'Frame');		
	}
}
 
#---new worksheet if the current already has 4 tables-------
if($tbCnt == 5)
{
	$tbCnt = 1;
	$column = 0;
 
	$sheet = $workbook -> Worksheets -> Add({after =>
			 $workbook -> Worksheets($workbook -> Worksheets -> {count})});
 
	$sheet -> {Name} = "Test Report" . $workbook -> Worksheets -> {Count};	
	&template;	
}	
 
#-----format----------------------------------------
sub template
{	
	for $block (0..3)
	{			
		$sheet -> set_column ($column,   0, 40);
		$sheet -> set_column ($column+1, 0, 40);
		$sheet -> set_column ($column+2, 0, 40);
		$sheet -> set_column ($column+3, 0, 12);
		$sheet -> set_column ($column+4, 0, 12);
		$sheet -> set_column ($column+5, 0, 15);
		$sheet -> set_column ($column+6, 0, 60);
		$sheet -> set_column ($column+7, 0, 60);
		$sheet -> set_column ($column+8, 0,  1);
		$column = $column+9;		
	}	
}