affiner son fichier excel en perl

**PadawanInPerl** · 15/03/2010, 12h00

Hello,

j'arrive à générer un fichier xls à partir d'un fichier texte (avec des données en continue)

j'arrive à faire pas mal de petite amélioration...

mais

je ne sais pas comment insérer une ligne vide fusionner sur qq cellule (suivant une condition) et ce sans perdre de donnée (ce qui m'inquiète !!)

faut il utiliser la commande merge range ??

et comment ?

**djibril** · 15/03/2010, 12h43

Méthode merge_range et voir aussi write_blank

**PadawanInPerl** · 15/03/2010, 13h19

Envoyé par djibril

Méthode merge_range et voir aussi write_blank

Merci Djibril

je regarde ça.

**PadawanInPerl** · 15/03/2010, 14h13

Hello Djibril si t'es toujours dans le coin...

my $titre = $wb->add_format(
bold => 1,
border => 6,
valign => 'vcenter',
align => 'center',
);
$ws->write_blank($ligne,undef,$titre);

Mon code est faux...

j'arrive pas intégrer ma variable même dans merge_range

j'ai un $ligne qui m'indique le numéro de ligne...comment l'intégrer dans:
$ws->merge_range('A1:F1', $bib{$code}, $format);

A1:F1 avec mon $ligne ??

**djibril** · 15/03/2010, 14h26

Il va falloir nous montrer un peu plus de code.

**PadawanInPerl** · 15/03/2010, 14h28

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
 if ($color{$cpt}) {$col=$color{$cpt};}
          # pour la séparation des couleurs
          $sep = $wb->add_format();
          $sep->set_bg_color($col);
 
 
          if (  ($bib{$code}) && ($ligne%2==0)  )
                    {
                      my $titre = $wb->add_format(
                                        bold => 1,
                                        border  => 6,
                                        valign  => 'vcenter',
                                        align   => 'center',
                                      );
                                $ws->write_blank($ligne,$titre);
                    #$ws->merge_range('A.$ligne:F.$ligne', $bib{$code}, $titre);
                      #$ligne++;
                      $ws->write($ligne,0,$bib{$code},$sep);
                      $ws->write($ligne,1,$tab[1]);
                      $ws->write($ligne,2,$tab[2],$centre);
                      $ws->write($ligne,3,$tab[3],$centre);
                      $ws->write($ligne,4,$tab[4],$centre);
                      $ws->write($ligne,5,$tab[5]);
                      $ligne++;
                    }