Discussion :

[atv_picco]

Je veux lire un fichier excel puis copier certaines donnees avec leur format :

Code :

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

1
2
3
4
$oWkC = $oWkS->{Cells}[$iR][$iC];
$valeur = $oWkC->Value, if($oWkC);
$format = $oWkC->Format, if ($oWkC);
$SheetAlim->write($iR, $iC, $valeur, $format);

et ca marche sans la 3eme ligne, mais je souhaite conserver le format du hier original.

Et je ne comprend pas trop pourquoi j'ai le message ci-dessous dans mon error_log

[Fri Jul 21 11:35:24 2006] [error] [client 127.0.0.1] [Fri Jul 21 11:35:24 2006] test.pl: Can't locate object method "Format" via package "Spreadsheet:arseExcel::Cell" at /opt/lampp/htdocs/xampp/test.pl line 250., referer: http://localhost/xampp/test.pl

alors que format.pm est present dans /opt/lampp/lib/perl5/site_perl/Spreadsheet/ParseExcel/

[Jedai]

Déjà tu fais une erreur de syntaxe (ou plutôt la syntaxe est correcte mais probablement vient d'une erreur) : il n'y a pas de virgule avant le "if".

Essaie plutôt :

Code :

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

1
2
3
4
$oWkC = $oWkS->{Cells}[$iR][$iC];
$valeur = $oWkC->{Value} if($oWkC);
$format = $oWkC->{Format} if ($oWkC);
$SheetAlim->write($iR, $iC, $valeur, $format);

(Au fait j'espère qu'il manque un bout à ton code, parce que là tu copies sus place...)

--
Jedaï

[atv_picco]

Jedai :
====

C'est pas un probleme de virgule je viens d'essayer sans et ca fait la meme chose :

Can't locate object method "Format" via package "Spreadsheet:arseExcel::Cell" at /opt/lampp/htdocs/xampp/test.pl line 250.

my $SheetAlim = $workbook->add_worksheet("$alimentation");
# Selection de a page $SheetAlim
$SheetAlim->select();
Remplissage de la feuille alimentation
$valeur = 0;
my $iR = 0;
my $iC = 0;
for($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];
$valeur = $oWkC->Value if($oWkC);
$format = $oWkC->Format if ($oWkC);
$SheetAlim->write($iR, $iC, $valeur, $format);
}
}
# Fermeture du fichier Excel
$workbook->close();


quand j'insere : $format = $oWkC->Format if ($oWkC); j'obtiens une erreur sinon ca marche, je recupere bien le contenu de mon fichier excel initial

[Arioch]

Une question bête (c'est tout moi ça ) mais en rajoutant pour tester cette ligne là dans ton code :

Code :

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

1
2
 
use Spreadsheet::ParseExcel::Format;

???

[atv_picco]

Ca y est deja !

use strict;
use CGI;
use HTML::Parser;
use LWP::UserAgent; # Client html
use Spreadsheet::ParseExcel; # charge les routines d'extraction des donnees excel.
#use Excel::Template::Element::Cell;
use Spreadsheet::ParseExcel::Cell;
use Spreadsheet::ParseExcel::Format;
use Spreadsheet::ParseExcel::SaveParser; #
use Spreadsheet::WriteExcel; # charge les routines de creation de documents excel.
use Parse::RecDescent;
use CGI::Carp qw(fatalsToBrowser); # Fonction permettant de tansmettre les message d'erreur Perl dans le
# navigateur

[Arioch]

Ca y est deja !

En nous distillant ton code morceau par morceau, je ne pouvais pas le deviner