Bonjour,

J'essaie de générer un fichier Excel avec Perl. J'ai installer les modules nécessaires. Le problème que j'ai est le suivant: quand j'écris dans mon fichier excel, ben seule une ligne s'écris....
J'ai essayé d'écrire dans un fichier texte et ça marche correctement... je ne vois pas où est le problème...

le code est le suivant:

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
 
for (my $i=0; $i<@tab_aff; $i++){
    $name_aff=$tab_aff[$i];
    $affinity=$tab_aff[$i+2];
 
    for (my $j=0; $j<@tab_ener; $j++){   
    $name_ener=$tab_ener[$j];
    $nrj=$tab_ener[$j+1];
 
    $name_tmp=$tab_ener[$tmp+2];
    $ener_tmp=$tab_ener[$tmp+3];
 
    if ($name_aff eq $name_ener){
        if (($affinity =~ /[0-9]/g) && ($affinity>30)){
 
        $workbook = Spreadsheet::WriteExcel->new("toto.xls");
        $sheet = $workbook->add_worksheet();
        $sheet->activate();
        $sheet->write($row_name,$col_name,$name_aff);
        $sheet->write($row_aff,$col_aff,$affinity);
        $sheet->write($row_ener,$col_ener,$nrj);
        $row_name++;
        $row_aff++;
        $row_ener++;
        }
    }
    }
}