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?