Discussion :

[lauvydream]

Bonjour,
malheureusement je n'ai pas trouvé mon bonheur!

j'ai un template Excel que je dois remplir à l'aide d'un programme Perl.
Pour ce faire, le template possède déjà un format. En ce qui concerne les lignes à remplir, trois sont déjà définies (avec cadre etc).
Le programme dois en fonction du volume du fichier source (à écrire dans Excel) à chaque fois insérer une nouvelle ligne en prenant en compte le quadrillage déjà effectué.

voici mon bout de programme:

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
 
use warnings;
 
 
use Cwd;
use OLE;
use Win32::OLE::Const "Microsoft Excel";
 
my $directory = &getcwd;
my ( $xl_report ) = "$directory/TemplateAuswertung.xlsx";
my ( $excel, $workbook, $sheet, $row);
 
    $excel = CreateObject OLE 'Excel.Application';
    $excel -> {Visible} = 1;
 
 
    $workbook = $excel    -> Workbooks  -> Open ( "$xl_report" ) or &terminate ( "open $xl_report" );
    $sheet    = $workbook -> Worksheets(1);
 
    $sheet -> Activate();
 
    $excel -> ActiveWindow    -> {FreezePanes} = "True";
    $sheet -> {Name} = "Test Report" . $workbook -> Worksheets -> {Count};
 
    $excel    -> {DisplayAlerts} = 0;
 
    $row   = 16;
    for ($row = 16; $row <=20; $row++ )
    {
	$sheet->Range( "A" . $row )->{Value} = "data";
	#$sheet->Range( '17,1' )->Insert();
 
     }
 
 
     $workbook -> SaveAs ( "$xl_report" );
 
     $workbook -> Save;
     $workbook -> Close;
     $excel    -> Quit;
 
sub terminate
{
    print "\a\a\nCould not @_ for the following reason:\n\n$!\n";
    print "This program will now terminate.  Press <ENTER> to exit.";
    <STDIN>;
    exit;
}

Je peux écrire mes lignes, mais insérer une qui prenne en compte la mise en page manuelle (quadrillage) je n'y arrive pas.

Qui a une idée?

Merci!

le template: TemplateAuswertung.xlsx
résulat escompté: Ergebnis.xlsx

[Gardyen]

pas sûr d'avoir bien compris ton problème, tu veux reproduire le style de tes cellules pour les nouvelles lignes ?

si c'est bien ça, tu trouveras peut-être quelques idées ici

[lauvydream]

pas sûr d'avoir bien compris ton problème, tu veux reproduire le style de tes cellules pour les nouvelles lignes ?

si c'est bien ça, tu trouveras peut-être quelques idées ici

Bonjour,
malheureusement je n'y ai pas trouvé quelque chose de bon pour moi.

Pour répondre à la question de savoir si tu as compris ou pas, je dirais que le gros du problème c'est de réussir à insérer les lignes. Je pense que Excel reproduira le quadrillage tout seul, c'est ce qui arrive lorsqu'on fait une insertion manuelle!

[Gardyen]

pour le quadrillage je suis pas sûr, dans le premier lien il y a de quoi changer un style au cas où.

ensuite il y a cette fonction pour insérer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$Sheet->Cells(2,1)->EntireRow->Insert;

c'est ce que tu cherchais ?

[lauvydream]

pour le quadrillage je suis pas sûr, dans le premier lien il y a de quoi changer un style au cas où.

ensuite il y a cette fonction pour insérer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$Sheet->Cells(2,1)->EntireRow->Insert;

c'est ce que tu cherchais ?

Ouais,
j'au trouvé celle-là.
maintenant j'essaie de reproduire le quadrillage. Peut-être qu'il faudra lui mettre des arguments à la méthode Insert?
le genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
-> Insert($row,$column,$format);

je vais voir