Discussion :

[anne-so]

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++;
        }
    }
    }
}

[Jim_Nastiq]

test tes variables row_name,col_name,... pour voir si ils varient bien ,est ce des indices numeriques?

parce que chez moi le module Spreadsheet::WriteExcel fonctionne tres bien avec des indices numeriques pour les colonnes et les lignes !

[anne-so]

des indices numériques? tu veux dire des entiers?

[Jim_Nastiq]

oui