Parsing et écriture de fichier .xls

Bonjour, j'aurais de nouveau besoin de votre aide pour un autre script perl, celui ci me permet déjà de créer un classeur excel avec les feuilles que je désires, et j'arrive à écrire des données venant d'une autre feuille dans la nouvelle. Mon problème est que je dois maintenant m'attaquer à la copie d'autres feuilles, sauf que celle si sont très grandes, avec une certaines mises en page et beaucoup de calcul. J'aurais donc voulu savoir s'il existait un module pour charger des modèles que j'aurais préalablement créé de feuilles Excel ou alors si il y avait un moyen de copier efficacement la mise en page et les calculs ou si je dois créer chaque cellules de chaque colonne/ligne à la main. Merci d'avance ;)

Bonjour,

je ne me suis pas penché sur le fait de copier des cellules avec de la mise en forme (voir la doc sur CPAN)

Mais tu peux contourner le problème si tes formats sont constant en créant un fichier xls déjà formaté et en copiant les valeurs à l'intérieur.

Bonjour, j'ai un problème similaire.

En fait lorsque je remplis ma feuille excel avec cette formule :

Code:

---

$worksheet->write($line, $col_f, '=IF'.'(A'.$case.'="free",MATCH(B'.$case.',C:C,0),"")');

---

Aucun problème tout se passe bien, mais le hic c'est que le calcul ne se fait pas parce qu'il manque le signe '+' après le égal.
Sauf que lorsque que je le met :

Code:

---

$worksheet->write($line, $col_f, '=+IF'.'(A'.$case.'="free",MATCH(B'.$case.',C:C,0),"")');

---

En fait le '+' ne change rien en soit dans excel, mon problème est que la formule ne fait le calcul qu'après avoir appuyer sur enter en sélectionnant le calcul ... est ce qu'il y a un moyen d'automatiser cette action via mon script ?

Je ne sais pas si cela pourra vous aider à tous les deux mais lisez bien jusqu'au bout cela : http://l.boivin.free.fr/perl/fpw08.pdf

Oui je me suis aidé de ce tutoriel pour créer et écrire dans mes feuilles avec mon script, mais je n'ai pas trouver de réponse concernant mon problème de validation des formules dans mes cellules :/ mais merci quand même ;).

Bonjour,

Le pb avec l'écriture de formule dans Excel est que le nom des fonctions dépend de la langue d'install d'Excel.
Et à l'époque (puisqu'on a pointé un talk que je... enfin, une erreur de jeunesse), j'avais déjà des soucis avec les formules.

Depuis, la situation a bougé et il vaut mieux utiliser Excel::Writer::XLSX pour créer des classeurs Excel.
Mais j'avoue ne pas avoir eu besoin (ni la curisiosité) de joeur avec des formules dernièrement.
Excel::Writer::XLSX s'utilise à peu près de la même façon que son ancètre Spreadsheet::Write::Excel mais il est plus costaud.

HTH

Elbeho
PS: je suis quand même un peu content que mes pauv' slides aien pu aider quelqu'un :-)

UPDATE:
Je viens de faire un petit test avec Excel::Writer::XLSX et la formule est résolu à l'ouverture du xlsx.
Le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/perl   use strict; use warnings; use Excel::Writer::XLSX;   my $filename = "essai.xlsx"; my $workbook = Excel::Writer::XLSX->new($filename); my $ws = $workbook->add_worksheet(); my $row = 0; for ( 1..5 ) { $ws->write($row++,0,$_); } $ws->write($row,0, '=SUM(A1:A5)'); $workbook->close();   __END__

---

Alors là merci, ce module est tout simplement génial, non seulement il réalise parfaitement les calculs, mais en plus il à divisé par trois le temps de création de mon classeur :). Merci beaucoup Elbeho.

Merci en effet ce module m'a bien aidé aussi, par contre j'aurais une dernière question, je souhaites si possible avec ce module (j'ai vu qu'il existait aussi Spreadsheet::XLSX) parser un fichier, pour écrire les données parser dans une nouvelle feuilles, seulement je n'arrive pas à avoir le même format (Quadrillage etc ..) que sur la feuille primaire.

Voici le bout de code pour copier la feuille :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

foreach my $sheet (@{$obj_sheet->{Worksheet}}) { for(my $row = ($sheet->{MinRow}) ; defined $sheet->{MaxRow} && $row <= $sheet->{MaxRow} ; $row++) { for(my $col = $sheet->{MinCol} ; defined $sheet->{MaxCol} && $col <= $sheet->{MaxCol} ; $col++) { if ($cell = $sheet->{Cells}[$row][$col]) { $format = $cell->get_format(); $worksheet->write($row, $col, $cell->Value, $format); } } } }

---