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.