Discussion :

[baloo81]

Bonjour a tous.

Je cherche à lire un fichier EXCEL et, plus exactement, le premier onglet en particulier. Mon but est de sauvegarder le contenu de cet onglet pour réinjecter les données sauvegardés lors de la prochaine génération de ce fichier EXCEL. Ce fichier EXCEL est générer par du perl avec le module WriteExcel

En toute logique, j'ai été sur pour télécharger le module Spreadsheet:: ParseExcel

Et j'ai fait ce tout petit morceau de code la :

Code :

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

1
2
3
4
5
6
7
8
9
use strict;
use warnings;
use File::Basename;
use Spreadsheet::ParseExcel;
# use Spreadsheet::WriteExcel;
use POSIX;
 
my $file = "C:\\script\\Calendrier2008\\TestLecture\\ACH-PF_COS.xls";
my $excel = Spreadsheet::ParseExcel->read('$file');

Mon soucis est que, quand je lance mon script, j'obtient cette erreur :

Code :

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

1
2
3
4
Weak references are not implemented in the version of perl at D:/Perl/lib/Spreadsheet/ParseExcel.pm line 67
BEGIN failed--compilation aborted at D:/Perl/lib/Spreadsheet/ParseExcel.pm line 67.
Compilation failed in require at C:\script\Calendrier2008\TestLecture\LectureExcel.pl line 4.
BEGIN failed--compilation aborted at C:\script\Calendrier2008\TestLecture\LectureExcel.pl line 4.

Si je regarde la ligne 67 du ParseExcel.pm j'ai cela :

Code :

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

use Scalar::Util qw(weaken);

et j'ai bien le Scalar d'installé.

Pour info, je suis en PERL 5.6.1

[djibril]

Code :

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

1
2
3
4
5
6
7
8
9
use strict;
use warnings;
use File::Basename;
use Spreadsheet::ParseExcel;
# use Spreadsheet::WriteExcel;
use POSIX;
 
my $file = "C:/script/Calendrier2008/TestLecture/ACH-PF_COS.xls";
my $excel = Spreadsheet::ParseExcel->read($file);

Pas besoin de \\ en perl pour les chemins, il comprend parfaitement les /

et pour ta boulette, tu as mis '$file' au lieu de $file ou "$file" et entre simple quote veut dire pas d'interpolation

[baloo81]

Merci djibril mais cela ne change rien du tout.

Que je mette $toto à la place de $file et que j'enleve les simples côte ne change rien.

Visiblement, comme je l'indique au début, je doit avoir un problème, non pas au niveau du script, mais au niveau du module :
--> BEGIN failed--compilation aborted at D:/Perl/lib/Spreadsheet/ParseExcel.pm line <--

Selon le site CPAN, j'ai même vérifié ou téléchargé les modules :
IO::File
IO::Scalar
Scalar::Util
OLE::Storage_Lite

Cela ne change rien et je craque


Si quelqu'un a une idée à me soumettre pour extraire les données d'un onglet
d'un fichier excel, je lui offre un café

[djibril]

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
#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
use Spreadsheet::ParseExcel;
 
my $file = "C:/script/Calendrier2008/TestLecture/ACH-PF_COS.xls";
my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($file) or die ("$!");
 
my($iR, $iC, $oWkS, $oWkC);   
foreach my $oWkS (@{$oBook->{Worksheet}}) {
    for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {  
        for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {  
          $oWkC = $oWkS->{Cells}[$iR][$iC];
          if(defined $oWkC) {
            print $oWkC->Value,"\t"; 
          } 
          else {
            print  "\t";
          }  
        }  
        print  "\n"; 
      }
  }

[baloo81]

Heueue, merci pour ta réponse DJIBRIL, mais je sait que cela ne va pas marcher.

Pourquoi ?? Parce que tu utilises le Spreadsheet:: ParseExcel qui est le module que je n'arrive pas à faire marcher sur mon poste

Il faut bien comprendre que ce n'est pas l'écriture du script qui me pose soucis, mais le chargement du module, uniquement le chargement du module, seulement le chargement du module

Je pense que je devrait modifier le nom de ce post pour que cela soit plus clair .....

[Jasmine80]

Bonjour,

Tu peux aussi utiliser Win32::OLE, il permet également de manipuler des fichiers Excel.
http://search.cpan.org/~jdb/Win32-OL...2/OLE/Const.pm

Jasmine,

[djibril]

Heueue, merci pour ta réponse DJIBRIL, mais je sait que cela ne va pas marcher.

Pourquoi ?? Parce que tu utilises le Spreadsheet:: ParseExcel qui est le module que je n'arrive pas à faire marcher sur mon poste

Il faut bien comprendre que ce n'est pas l'écriture du script qui me pose soucis, mais le chargement du module, uniquement le chargement du module, seulement le chargement du module

Je pense que je devrait modifier le nom de ce post pour que cela soit plus clair .....

Dans l'art de ne pas donner de précision, tu sembles être champion.
Dans ce cas, pourquoi n'arrive tu pas à charger le module? l'as tu installé?
Si non, pourquoi?

[baloo81]

Désolé DJIBRIL, il me semblait avoir été clair

Comme je le disait dans mon premier post, j'ai installé le module mais quand je lance mon script, cela me répond ça :

Weak references are not implemented in the version of perl at D:/Perl/lib/Spreadsheet/ParseExcel.pm line 67
BEGIN failed--compilation aborted at D:/Perl/lib/Spreadsheet/ParseExcel.pm line

Comme indiqué dans mon deuxième post

Selon le site CPAN, j'ai même vérifié ou téléchargé les modules :
IO::File
IO::Scalar
Scalar::Util
OLE::Storage_Lite

Par contre, il y a une précision très importante que je n'ai pas fait : je doit faire tourner ce script sur un serveur Windows où le PackOffice n'est pas installé.
Je cherche donc une réponse au Weak references are .....

[djibril]

J'ai pas fait gaffe, mais tu es sous Perl 5.6 .
C'est une version ancêtre de Perl, faut que tu passes à une version récente de Perl, notamment, 5.8.8.822

[baloo81]

C'est bien ce que je craignais

Le soucis c'est que je suis en entreprise et je vais pas pouvoir faire ça comme ça ( car environnement soumis à la validation pharmaceutique )

Bon, j'ai plus qu'à mettre en place une autre solution à laquelle j'ai déjà réfléchi.

Merci quand même DJIBRIL et à toi aussi JASMINE.

Je clôture ce post.

A la prochaine ......

[Jedai]

Attends, la solution de Jasmine devrait fonctionner pour toi, tu peux aussi essayer d'installer une vieille version de Spreadsheet::... du temps où il était encore compatible avec Perl 5.6 (qui doit tout de même avoir dans les 8 ans... enfin je sais comme c'est en entreprise).

--
Jedaï

[baloo81]

Merci JEDAI.

J'ai vaguement testé la solution de JASMINE. Le soucis est que je souhaite produire et relire ces fichiers sur un serveur où n'est pas installé EXCEL. La création fonctionne bien mais, visiblement, cela ne marche pas pour la relecture.

Je vais essayer de faire tout ça sur un serveur UNIX ou LINUX car là, je suis bien en version 5.8 du PERL.

Je vous tiendrais au courant

[baloo81]

Bon, pour information, comme je n'arrive à rien, j'ai abandonné l'idée de départ. En plus, j'ai trouvé un freeware se nommant XLS2CSV, qui ne demande pas d'installe et qui fonctionne en mode commande alors ....