Discussion :

[boniface]

Bonjour,
Suite à un passage d'un serveur en local sous Windows à un serveur distant sous Linux, j'ai du reprendre certains scripts perl d'import qui utilisaient win32....
Donc, depuis hier, je me bats un peu avec le module Spreadsheet:arseExcel et j'obtiens toujours la meme erreur à savoir :
"Can't call method "Worksheet" on a undefined value" sur le ligne suivante

Code :

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

my $exWorksheet = $exBook->Worksheet(1);

A priori, d'après ce que j'ai compris en cherchant un peu partout, j'ai un problème de définition du workbook, seulement, je ne vois pas du tout où est le problème...
Mon fichier test.xls se trouve dans le répertoire qui contient aussi mon script perl.

Voici un bout de mon script :

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
 
 
use Spreadsheet::ParseExcel;
use strict;
use DBI;
 
my $oExcel = new Spreadsheet::ParseExcel;
my $exBook = $oExcel->Parse("test.xls");
my $exWorksheet = $exBook->Worksheet(1);
$line=2;
$col = 1;
while($exWorksheet->Cell($line,'A')->{'Value'}){
      $var = $exWorksheet->Cell($line,$col)->{'Value'};
      $cel = $exWorksheet->Cell('1',$col)->{'Value'};
.......
}

Merci d'avance pour toute aide et bonne journée quand meme....
Virginie

[Jedai]

Mon fichier test.xls se trouve dans le répertoire qui contient aussi mon script perl.

Code :

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

1
2
3
 
my $exBook = $oExcel->Parse("test.xls");
my $exWorksheet = $exBook->Worksheet(1);

Es-tu sûr d'être dans le bon répertoire quand tu lances ton script ? Le répertoire courant dans ton script n'est pas forcément celui où se trouve ton script, mais plutôt celui à partir duquel on l'a lancé.

Rajoute un test d'existence :

Code :

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

die "test.xls n'est pas là !" if( not -e "test.xls" );

--
Jedaï

[boniface]

Je viens de tester ton idée, mais il semblerait que ça ne soit pas ça, le fichier est bien présent...

[Jedai]

Dans ce cas, vérifie si $exBook est bien undef après le Parse() :

Code :

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

my $exBook = $oExcel->Parse("test.xls") || die "Parse() a échoué !\n";

Si c'est le cas et que test.xls existe bien, ça signifie que test.xls est soit corrompu, soit incompatible avec le module (pour une raison quelconque : version du format trop récente/ancienne ?).

--
Jedaï

[boniface]

Dans ce cas, vérifie si $exBook est bien undef après le Parse() :

Code :

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

my $exBook = $oExcel->Parse("test.xls") || die "Parse() a échoué !\n";

Si c'est le cas et que test.xls existe bien, ça signifie que test.xls est soit corrompu, soit incompatible avec le module (pour une raison quelconque : version du format trop récente/ancienne ?).

--
Jedaï

Ton idée était la bonne, il semblerait que le Parse() echoue...
Je vais essayer de tester avec d'autres fichiers xls....
Si quelqu'un a une autre suggestion ou des tests auquels je ne pense pas forcément, chui tjs preneuse!!
Merci à tous les 2 en tt cas!

[lami20j]

Regarde sur cpan Spreadsheet ParseExcel

[lami20j]

Salut,

Voici un bout de mon script :

Code :

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

1
2
3
4
5
 
 
my $oExcel = new Spreadsheet::ParseExcel;
my $exBook = $oExcel->Parse("test.xls");
my $exWorksheet = $exBook->Worksheet(1);

Essai

Code :

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

1
2
3
my $oExcel = new Spreadsheet::ParseExcel::Workbook;
my $exBook = $oExcel->Parse("test.xls");
my $exWorksheet = $exBook->Worksheet(1);

[boniface]

Salut,
Essai

Code :

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

1
2
3
my $oExcel = new Spreadsheet::ParseExcel::Workbook;
my $exBook = $oExcel->Parse("test.xls");
my $exWorksheet = $exBook->Worksheet(1);

Je viens de tester ta solution, et j'obtiens une autre erreur que j'avais au tout début à savoir :
Can't call method "Worksheet" on unblessed reference at import_excel.pl line 984.

Pfff, je n'y comprend rien, ya personne qui a une petite idée???

Merci d'avance....

[Jedai]

Code :

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

1
2
3
4
5
6
7
 
use Spreadsheet::ParseExcel;
use strict;
use DBI;
 
my $oExcel = new Spreadsheet::ParseExcel;
my $exBook = $oExcel->Parse("test.xls");

D'après la doc ce que tu utilises est une vieille interface, avant toute chose essaie avec la nouvelle interface :

Code :

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

1
2
3
4
5
6
 
use Spreadsheet::ParseExcel;
use strict;
use DBI;
 
my $exBook = Spreadsheet::ParseExcel::Workbook->Parse("test.xls");

--
Jedaï