Discussion :

[dominique21000]

Bonjour tout le monde,

Voilà, j'ai un problème que j'aimerais assez solutionné. Je vous explique :
Je suis sous windows 8.1, j'ai installé Strawberry et la bibliothèque SpreadSheet::Read via la méthode préconisé et même manuellement, en mettant les fichiers pm dans le dossier C:\Perl64\lib\SpreadSheet.

Mais alors que mon code est simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
 
use Spreadsheet::Read;
use SpreadSheet::ParseExcel;
 
my $book  = ReadData ("test.xls"); # .ods .csv .xls .xlsx
my $cell  = $book->[1]{A3};         # content of field A3 of sheet 1
 
 
print("cellule : " . $cell);

ça me met l'erreur :
Attempt to reload Spreadsheet/ParseExcel/FmtDefault.pm aborted.
Compilation failed in require at C:/Perl64/lib/SpreadSheet/ParseExcel.pm line 8.
BEGIN failed--compilation aborted at C:/Perl64/lib/SpreadSheet/ParseExcel.pm line 8.
Compilation failed in require at exempleQuiFonctionne.pl line 6.
BEGIN failed--compilation aborted at exempleQuiFonctionne.pl line 6.

Si quelqu'un a une idée, ça serait fort aimable de sa part de me la communiquer.

Je commence à devenir...

Merci d'avance
Cordialement
Dominique

[Lolo78]

Bonjour,

je ne sais pas si c'est l'origine de ton problème, mais essaie de remplacer:

Code :

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

1
2
use SpreadSheet::ParseExcel;

par:

Code :

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

1
2
use Spreadsheet::ParseExcel;

[dominique21000]

merci, ça aurait pu ...et ça aurait été super bête de ma part.
Bon, faut dire que je début dans perl... je suis plus familiarisé avec d'autres langages comme php...

Mais ça ne change rien.

Cordialement
Dominique

[Lolo78]

Il faut peut-être aussi corriger le nom du répertoire...

[dmganges]

Bonjour,
Par curiosité et parce que ça peut servir j'ai fait un essai, mais je ne connais pas le module.

J'ai installé le module :

Code :

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

cpan  Spreadsheet::Read

Ça s'est bien passé.

J'ai lancé ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
 
use Spreadsheet::Read;
use SpreadSheet::ParseExcel;
 
my $book  = ReadData ("test.xls"); # .ods .csv .xls .xlsx
my $cell  = $book->[1]{A3};         # content of field A3 of sheet 1
 
 
print("cellule : " . $cell);

Là j'ai obtenu la réponse mais précédée d'erreurs vois image.

J'ai modifié le pgm comme suit (suppression de use SpreadSheet:arseExcel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
 
use Spreadsheet::Read;
#use SpreadSheet::ParseExcel;
 
my $book  = ReadData ("test.xls"); # .ods .csv .xls .xlsx
#my $cell  = $book->[1]{A4};         # content of field A3 of sheet 1
my $cell  = $book->[1]{cell}[3][32]; # same, unformatted 
 
print("\ncellule : " . $cell);

Ça passe sans erreur.
Je ne suis pas allé plus loin, voir images :

[dominique21000]

Bonjour,
Par curiosité et parce que ça peut servir j'ai fait un essai, mais je ne connais pas le module.

J'ai installé le module :

Code :

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

cpan  Spreadsheet::Read

Ça s'est bien passé.

J'ai lancé ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
 
use Spreadsheet::Read;
use SpreadSheet::ParseExcel;
 
my $book  = ReadData ("test.xls"); # .ods .csv .xls .xlsx
my $cell  = $book->[1]{A3};         # content of field A3 of sheet 1
 
 
print("cellule : " . $cell);

Là j'ai obtenu la réponse mais précédée d'erreurs vois image.

J'ai modifié le pgm comme suit (suppression de use SpreadSheet:arseExcel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
 
use Spreadsheet::Read;
#use SpreadSheet::ParseExcel;
 
my $book  = ReadData ("test.xls"); # .ods .csv .xls .xlsx
#my $cell  = $book->[1]{A4};         # content of field A3 of sheet 1
my $cell  = $book->[1]{cell}[3][32]; # same, unformatted 
 
print("\ncellule : " . $cell);

Ça passe sans erreur.
Je ne suis pas allé plus loin, voir images :

Les installations de module se passent bien.

Mais sans le ParseExcel, j'ai le message :
Parser for XLS is not installed at exempleQuiFonctionne.pl line 11.

et avec, j'ai le message d'erreur suivant :
Attempt to reload Spreadsheet/ParseExcel.pm aborted.
Compilation failed in require at exempleQuiFonctionne.pl line 6.
BEGIN failed--compilation aborted at exempleQuiFonctionne.pl line 6.

Merci pour vos aide en tout cas.
Cordialement
Dominique

[djibril]

j'ai installé Strawberry et la bibliothèque SpreadSheet::Read via la méthode préconisé et même manuellement, en mettant les fichiers pm dans le dossier C:\Perl64\lib\SpreadSheet.

Ta méthode d'installation me chagrine un peu. Néanmoins, je te recommande d'utiliser les modules suivants :
SpreadSheet::ParseExcel
Spreadsheet::XLSX (si ce sont des fichiers xlsx).

Et pour les installer, c'est

Code :

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

cpan -i SpreadSheet::ParseExcel Spreadsheet::XLSX

Ne va pas trifouiller les répertoires d'installation.

[dominique21000]

Ta méthode d'installation me chagrine un peu. Néanmoins, je te recommande d'utiliser les modules suivants :
SpreadSheet:arseExcel
Spreadsheet::XLSX (si ce sont des fichiers xlsx).

Et pour les installer, c'est

Code :

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

cpan -i SpreadSheet::ParseExcel Spreadsheet::XLSX

Ne va pas trifouiller les répertoires d'installation.

J'essaie de ne pas trifouiller...parce que je sais que ça fait pas propre, mais j'essaye aussi de comprendre.
Les paquets semblent bien s'installer, mais ensuite, il ne semble pas les trouver...donc
- soit il les cherche au(x) mauvais endroit(s)s
- soit...autres choses

[Artemus24]

Salut à tous.

Pour ce faire, j'ai réinstallé la dernière version de ActiveState Perl, soit la 5.26.1.

Et pour installer les packets , j'ai fait :

Code :

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

1
2
ppm install Spreadsheet::Read
ppm install Spreadsheet::ParseExcel

J'ai vérifié dans le répertoire "C:\Perl64\site\lib\Spreadsheet", et je trouve bien :

Code :

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

1
2
ParseExcel.pm
Read.pm

Il y a aussi un autre répertoire qui se nomme "ParseExcel".

J'ai fait un test basique :

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
#!C:\perl64\bin\perl.exe -w
 
use strict;
use warnings;
 
use Spreadsheet::WriteExcel;
 
my $book  = Spreadsheet::WriteExcel->new("foo.xls");
my $sheet = $book->add_worksheet('Ma feuille');
 
$sheet->write(1,1, "ca fonctionne très bien");
 
$book->close();
 
exit;

Et j'ai vérifié dans le fichier Excel dans la case B2. Je retrouve bien mon message.

@+