Discussion :

[atv_picco]

J'ai deja un autre post mais qui demeurens reponse : j'espere etre plus clair :

Je souhaite extraire des donnees a partir d'un classeur Excel pour les ecrire dans un autre fichier excel tout en conservant les formats et les formules :

Je ne comprend pas trop ce que dit le error_log !

error_log : [Tue Jul 25 16:25:40 2006] [error] [client 127.0.0.1] [Tue Jul 25 16:25:40 2006] test.pl: Can't locate object method "get_xf_index" via package "Spreadsheet:arseExcel::Format" at /opt/lampp/lib/perl5/site_perl/5.8.6/Spreadsheet/WriteExcel/Worksheet.pm line 1210., referer: http://localhost/xampp/test.pl

Voici mon code :

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
25
26
27
28
29
30
for($iSheet=0; $iSheet < $oBook->{SheetCount}; $iSheet++)
{
	$oWkS = $oBook->{Worksheet}[$iSheet];
	# Si le nom de la feuille recherchee est trouvee, on va parcourir l'etendue des lignes et des colonnes
	# pour recopier toutes les informations du document source
	if ($oWkS->{Name} eq $valeur)
	{
		# Definition de la variable qui va recuperer le contenu d'une cellule du document source
		my $cellule = 0;
		# Boucle qui recupere les donnees dans la feuille source et les copie dans la feuille de destination
		# a) On parcourt les lignes
		for($iR = $oWkS->{MinRow} ;
			defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ;
			$iR++)
		{
			# b) on parcourt les colonnes
			for($iC = $oWkS->{MinCol} ;
				defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ;
				$iC++)
			{
				# on recupere le contenu de la cellule pour le stocker dans une variable
				# qui sera copiee dans la feuille de destination
				$oWkC = $oWkS->{Cells}[$iR][$iC];
				$cellule = $oWkC->Value if($oWkC);
				$format = $oWkC->{Format} if ($oWkC);
				$Sheet->write($iR, $iC, $cellule, $format);
			}
		}
	}
}

Si je mets Value entre "{}", cela n'ecrit rien dans mon fichier excel et je n'ai rien dans le error_log.

[piotr]

est-ce que tu sais à quel moment ton programme plante?

[atv_picco]

ca plante a ce niveau la :

$format = $oWkC->{Format} if ($oWkC);

Je voudrais pouvoir extraire les formules qui sont dans mon classeur excel source pour les ecrire dans mon fichier excel de destination.
et idem pour les formats.

[piotr]

je ne suis pas un expert, mais j'utilise le code ci dessous pour manipuler les fichier excel (lecture et écriture) au cas où ça peut te rendre service

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
 
use Spreadsheet::ParseExcel::Simple;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;         
#
# get already active Excel application or open new
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');  
# open Excel file
my $Book = $Excel->Workbooks->Open("C:/fichier.xls"); 
 
my $Sheet = $Book->Worksheets(3);
 
#pour lire une cellule
$cellule=$Sheet->Cells($row,$col)->{'Value'};
 
#pour écrire dans une cellule
$Sheet->Cells($row, $col+2)->{'Value'} = $valeur;

[atv_picco]

yep ! Je fais a peu pres pareil mais j'aurai voulu pouvoir extraire la formule excel s'il y en a une.
par ex : =A3*C2

[piotr]

excuse moi de répondre tardivement car j'étais en vacances. as-tu trouvé une solution à ton pb?

[atv_picco]

nan toujours pas !
Je suis parti un peu en vacances alors je l'avais mis de cote. Mais la j'y planche tjs donc i vous avez des news pour m'eclairer c'est bien venu