erreur

erreur - Perl - Programmation

Marsh Posté le 16-06-2006 à 13:55:25    

quelqu'un à déja eu l'erreur "Membre introuvable" et si oi que signifie t'elle?? merci

Reply

Marsh Posté le 16-06-2006 à 13:55:25   

Reply

Marsh Posté le 16-06-2006 à 13:59:01    

Jamais eu ce genre d'erreur. D'un autre côté, je n'ai jamais eu de problème à retrouver mes membres, quels qu'ils soient.
[:el g]

Reply

Marsh Posté le 16-06-2006 à 13:59:17    

que c'en est fini de ta descendance [:spamafote]

Reply

Marsh Posté le 16-06-2006 à 14:08:22    

Préférer vous ceci??? Ne t'inquiète pas j'ai de qoa l'assurer ma descendance
 
 
[Fri Jun 16 13:54:53 2006] extract_all.pl: Win32::OLE(0.1702) error 0x80020003: "Membre introuvable"
[Fri Jun 16 13:54:53 2006] extract_all.pl:     in METHOD/PROPERTYGET "" at extract_all.pl line 114

Reply

Marsh Posté le 16-06-2006 à 14:10:07    

Et il y a quoi, à la ligne 114 du script extract_all.pl ? [:el g]
 
 
 
_darkalt3_ > grilled :o

Reply

Marsh Posté le 16-06-2006 à 14:11:02    

[:god]

Reply

Marsh Posté le 16-06-2006 à 14:12:40    

je vais vous collez le code ca vous aideras surement mieux (dsl je pensais à autre chose quand j'ai poster je l'ai oublier)
 
 

Code :
  1. # !usr/perl/bin/
  2. # Modules nécessaires
  3. use strict;
  4. use Spreadsheet::WriteExcel;
  5. use warnings;
  6. use Win32::OLE qw(in with);
  7. use CGI::Carp qw(fatalsToBrowser);
  8. use Win32::OLE::Const 'Microsoft Excel';
  9. $Win32::OLE::Warn = 3;
  10. use Cwd;
  13. my $dir = cwd;
  14. chdir $dir;
  16. my @ListeXLS = <*.xls>;
  17.       foreach my $xls (@ListeXLS)
  18.       {
  19.       if($xls =~ / traité.xls/)
  20.       {next;}
  21. # Création d'une nouvelle instance du package pour Excel
  22. my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
  23. # Ouverture du fichier Excel "C:\\stat.xls"
  24. my $Book = $Excel->Workbooks->Open("$dir/$xls" ) || die "Fichier non trouvé";
  25. print "debut\n";
  26. #choix des donner à extraire
  27. my $col;
  29. my $numSheet;
  31. print "quelles données souhaité vous extraire?\n";
  32. print "auteur taper 1\n";
  33. print "organisation taper 2\n";
  34. print "ic taper 3\n";
  36. chomp($_ = <STDIN> );
  37. if ($_ =~ /1/){$col=80;$numSheet="1";}
  38. elsif($_ =~ /2/){$col=81;$numSheet="2";}
  39. elsif($_ =~ /3/){$col=73;$numSheet="3";}
  40. print "$_\n";
  41. sleep 5;
  43. # Affectation du 1er classeur à la variable $Sheet
  44. my $Sheet = $Book->Worksheets(1);
  45. # Récupération des valeurs de toutes les cellules comprises entre B2 et B10
  46. my $array = $Sheet->Columns($col)->{'Value'}; # get the contents
  47. # Récupération des valeurs de toutes les cellules comprises entre A2 et A10
  48. my $array2 = $Sheet->Columns(1)->{'Value'}; # get the contents
  49. $Book->Close;
  51. $xls =~ s/.xls/ traité.xls/;
  53. my $scalar2="01";
  54. my @indent;
  55. my $z;
  56. foreach my $ref_array2 (@$array2) {
  57.        # Parcours de chaque ligne
  58.        foreach $scalar2 (@$ref_array2) {
  59.           if ($scalar2){
  60.               push (@indent,$scalar2);
  61.           }
  62.           else{
  63.               goto FINBOUCLE;
  64.           }
  65.        }
  66. }
  67. FINBOUCLE:
  68. my $workbook;
  69. #my $Excel1 = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
  70. if (-e $xls) {
  71.     print "existe\n";
  72.     $workbook = $Excel->Workbooks->Open("$dir/$xls" ) || die "impossible d'ouvrir le fichier $xls ou fichier ouvert";
  73. }
  74. else{
  75.     # Creer une page excel ayant pour le même nom que le fichier txt
  76.     $workbook = Spreadsheet::WriteExcel->new($xls) || die "impossible de creer $xls ou fichier ouvert";
  77.     $workbook->add_worksheet("auteur" );
  78.     $workbook->add_worksheet("organisation" );
  79.     $workbook->add_worksheet("ic" );
  80. }
  81. # sélectionner la feuille la feuille
  82. my $worksheet;
  83. if ($numSheet eq 1){
  84. $worksheet = $workbook->Worksheets(1);
  85. print "feuille 1\n";
  86. }
  87. elsif($numSheet eq 2){
  88. $worksheet = $workbook->Worksheets(2);
  89. print "feuille 2\n";
  90. }
  91. elsif($numSheet eq 3){
  92. $worksheet = $workbook->Worksheets(3);
  93. print "feuille 3\n";
  94. }
  96. my $ligne_excel = 0;
  97. my $j=0;
  98. # Affichage de ces valeurs
  99. foreach my $ref_array (@$array) {
  100.        # Parcours de chaque ligne
  102.        foreach my $scalar (@$ref_array) {
  103.             # Parcours
  104.             print "--------------------------------------------------------\n";
  105.             print "$indent[$j] $scalar\n";
  106.             if($indent[$j]){
  107.                     if ($scalar)
  108.                     {
  109.                         if ($col eq "73" ){
  110.                             foreach my $word ( split(' ',$scalar) ) {
  111.                                 if ($word eq "-" ){}   #si le mot est un -
  112.                                 else{
  113.                                     my $toto =$indent[$j];
  114.                                     $worksheet->write($ligne_excel, 0,$toto);
  115.                                     $worksheet->write($ligne_excel, 1,$word);
  116.                                     $ligne_excel++;
  117.                                 }
  118.                             }
  119.                         }
  120.                         else{
  121.                             foreach my $word ( split(';',$scalar) ) {
  122.                                 $worksheet->write($ligne_excel, 0,"$indent[$j]" );
  123.                                 $worksheet->write($ligne_excel, 1,$word);
  124.                                 $ligne_excel++;
  125.                             }
  127.                         }
  128.                     }
  129.                     else{
  130.                         #remplissage du fichier excel
  131.                         $worksheet->write($ligne_excel, 0,$indent[$j]);
  132.                         $worksheet->write($ligne_excel, 1,"no patentee" );
  133.                         $ligne_excel++;
  134.                     }
  135.             $j++;
  136.             }
  137.             else{goto FINFIC;}
  138.        }
  140. }
  142. FINFIC:
  143. }
  145. print "Open Perl IDE Test finished.\n";

Reply

Marsh Posté le 16-06-2006 à 14:32:11    

Ben ton objet worksheet il connait pas la méthode write() [:spamafote]
 
D'un autre côté, je ne la vois pas non plus dans la doc de Win32:: OLE.
Je subodore l'utilisation d'une méthode de Spreadsheet::WriteExcel sur un objet Win32:: OLE, d'où *boom*


Message édité par Elmoricq le 16-06-2006 à 14:32:35
Reply

Marsh Posté le 16-06-2006 à 15:51:02    

eu serais il possible d'avoir le lien sur la doc d'OLE stp
 
et eu si j'ai bien compris c'est ceci:
 

Code :
  1. #
  2. if ($numSheet eq 1){
  3. #
  4. $worksheet = $workbook->Worksheets(1);
  5. #
  6. print "feuille 1\n";
  7. #
  8. }
  9. #
  10. elsif($numSheet eq 2){
  11. #
  12. $worksheet = $workbook->Worksheets(2);
  13. #
  14. print "feuille 2\n";
  15. #
  16. }
  17. #
  18. elsif($numSheet eq 3){
  19. #
  20. $worksheet = $workbook->Worksheets(3);
  21. #
  22. print "feuille 3\n";
  23. #
  24. }


 
qui va pas ???

Message cité 1 fois
Reply

Marsh Posté le 16-06-2006 à 15:54:08    

Lanfeust42 a écrit :

eu serais il possible d'avoir le lien sur la doc d'OLE stp


 
Mais tu l'as eu où ton module ? :??:
 
http://search.cpan.org :o
(Win32:: OLE : http://search.cpan.org/~jdb/libwin [...] n32/OLE.pm )
 
 

Lanfeust42 a écrit :

et eu si j'ai bien compris c'est ceci:
 

Code :
  1. ...


 
qui va pas ???


 
Euh... dans le code que tu montres, il n'y a pas la ligne 114, ni de méthode write() utilisée.

Reply

Marsh Posté le 16-06-2006 à 15:54:08   

Reply

Marsh Posté le 16-06-2006 à 16:04:59    

oui mais tu ma dit:

Citation :

utilisation d'une méthode de Spreadsheet::WriteExcel sur un objet Win32:: OLE


 
donc si je crée un objet spreadsheet au lieu d'un OLE ca devrais marcher non??? bon j'essai

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed