Bug Spreadsheet::WriteExcel, le retour !, version Formules.

**myspanique** · 13/01/2016, 16h54

Bonjour,

Décidément, ce module me cause du souci. Le topic n-3 est déjà de moi, et déjà pour ce module !
Cette fois-ci il est au bon endroit, www-data a le droit d'y aller et ne s'en prive pas !

Je rencontre à présent un souci au niveau de l'écriture de formules.
J'ai un joli programme qui récupère des données dans des fichiers, les écris dans le tableur, qui fait tout plein de choses avec (moyenne, écart type, graphique...).
Je le lance sous le terminal, aucun souci.
Je le lance via ma page web... et il décède pile poil au moment où il est question d'écrire une formule dans le fichier (alors qu'écrire quoi que ce soit d'autre ne pose pas de problème).

Mon maître de stage et moi avons pensé à pas mal de choses... Mais visiblement pas encore aux bonnes. (y'a pas un smiley qui se gratte la tête?

). et je ne trouve aucune littérature là dessus.
Merci pour vos idées que je n'aurais pas encore eues... !

Pour vous donner une idée pas du tout contractuelle :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
#!/usr/bin/perl -w
 
use IO::File;
use CGI qw(:standard) ;
use PAGEWEB;
use strict ;
use Date::Calc qw(Delta_DHMS) ;
use Spreadsheet::WriteExcel ;
use Data::Dumper;
$Data::Dumper::Purity = 1;
 
 
print "Content-type: text/html ; charset=UTF-8\n\n";
print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">';
 
print "<html>";
print 	"<head>
	<title>Etude du comportement des souris : souris</title>";
print "</head>" ;
 
 
my $variables ....
 
print "<body>" ;
 
$workbook  = Spreadsheet::WriteExcel->new('formula_result.xls');	
$worksheet = $workbook->add_worksheet();
$format    = $workbook->add_format(color => 'blue');
 
 
$worksheet->write('A1', '1+2');    
$worksheet->write('A2', '=1+2',  $format);     #Le programme décède ici... à cause du "=" !
$worksheet->write('A3', '"ABC"');
$worksheet->write('A4', '=IF(A1 > 1, TRUE, FALSE)');
$worksheet->write('A5', '1/0');
 
$workbook->close() ;	
 
 
print "<a href = '/donnees/experiences/$fichier_traite'>Cliquez ici pour telecharger</a>";
print "</body>" ;
 
}

**Lolo78** · 13/01/2016, 17h44

Juste une idée comme ça: as-tu essayer de mettre la formule dans une variable intermédiaire?

**myspanique** · 13/01/2016, 17h57

Yep, c'est ce que je fais dans mon "vrai" programme...

**Philou67430** · 14/01/2016, 11h40

Deux points :
- je te conseille plutôt l'utilisation du module Excel::Writer::XLSX (interface compatible avec Spreadsheet::WriteExcel, et en plus supporte le nouveau format XLSX).
- pour écrire une formule dans une cellule, utilise la méthode write_formula au lieu de write (j'ai aussi eu des plantages en utilisant write pour une formule).

**myspanique** · 14/01/2016, 14h15

Une question et une réponse :

Excel::Writer::XLSX génère t'il aussi du "simple" xls? je vais de ce pas me renseigner.

J'ai utilisé indifféremment write ou write_formula. Ca ne change rien...

**myspanique** · 14/01/2016, 17h01

Bon bon bon.
Je viens d'installer Excel::Writer::XLSX ;
En regardant dans var/log/apache2/error.log (oui, je suis sous Debian), j'ai vu qu'on me réclamait Parse::RecDescent ; je ne sais pas vraiment pourquoi, mais soit, je l'ai installé.

Depuis, j'ai un nouveau souci (et demi).

Je n'arrive plus à faire tourner le programme sous www-data ; ça marche dans le terminal, mais, surprise !, les résultats de mes formules ne sont pas bons.
Par exemple, "=1+2" donne 0 ...?!, mais si j'étire à la main la formule, les autres cases reçoivent 3, sans que la première ne change.

Pour info, j'ouvre le fichier avec Libre Office Calc.

Bref, j'y retourne.

**myspanique** · 15/01/2016, 14h50

C'est pas gagné.
Le souci de la formule qui donne 0 n'ayant pas lieu avec SpreadSheet, j'y suis repassée.
Ca marche toujours parfaitement en ligne de commandes, mais toujours pas via la page web

Qu'aurais-je bien pu négliger?

**Philou67430** · 18/01/2016, 10h45

Je suis en train d'essayer ton script, mais je remarque qu'il ne fonctionne pas "tel quel", ... je reviens dès que j'ai du nouveau.

**myspanique** · 19/01/2016, 16h04

Pour info, j'ai branché le 3eme cerveau du labo dessus, et il n'a pas eu non plus l'illumination.

Du coup j'ai contacté M. J. McNamara, on verra bien ce qu'il me dit !

**Philou67430** · 19/01/2016, 18h06

Désolé, je n'ai pas pu regarder aujourd'hui, j'essaye d'y penser demain matin... sinon, faut faire un petit up

**Philou67430** · 21/01/2016, 12h05

Alors, j'ai testé ce programme (corrigé de ton exemple) :

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
31
32
33
34
35
36
37
38
39
40
41
42
#!/usr/bin/perl -w
 
use IO::File;
use CGI qw(:standard) ;
#use PAGEWEB;
use strict ;
#use Date::Calc qw(Delta_DHMS) ;
#use Spreadsheet::WriteExcel;
use Excel::Writer::XLSX;
use Data::Dumper;
$Data::Dumper::Purity = 1;
 
 
print "Content-type: text/html ; charset=UTF-8\n\n";
print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">';
 
print "<html>";
print 	"<head>
	<title>Etude du comportement des souris : souris</title>";
print "</head>" ;
 
 
#my $variables ....
 
#print "<body>" ;
 
my $workbook  = Excel::Writer::XLSX->new('formula_result.xlsx'); #Spreadsheet::WriteExcel->new('formula_result.xls');
my $worksheet = $workbook->add_worksheet();
my $format    = $workbook->add_format(color => 'blue');
 
 
$worksheet->write('A1', '1+2');
$worksheet->write('A2', '=1+2',  $format);     #Le programme décède ici... à cause du "=" !
$worksheet->write('A3', '"ABC"');
$worksheet->write('A4', '=IF(A1 > 1, TRUE, FALSE)');
$worksheet->write('A5', '1/0');
 
$workbook->close() ;
 
 
#print "<a href = '/donnees/experiences/$fichier_traite'>Cliquez ici pour telecharger</a>";
#print "</body>" ;

Je l'ai essayé avec Spreadsheet::WriteExcel et Excel::Writer::XSLX et en laissant l'usage de write (bien que je préconise write_formula), et j'obtiens le bon résultat.
Cela peut donc venir des versions de Excel, de perl et des modules que tu utilises. Qu'en est-il ?

**myspanique** · 21/01/2016, 15h51

Ha!!

Après réponse du concepteur de la librairie, il s'avère qu'en effet le souci provenait bien de Parse::RecDecsent , sur lequel www-data n'avait pas le droit de lecture XD
Problème réglé, donc. Et finalement, c'était le même que la dernière fois, alors que je pensais l'avoir réglé.
Bigre !

En tous cas, merci Philou pour ton aide et ta patience !

**Philou67430** · 21/01/2016, 16h21

Du coup, tu vas utiliser Excel::Write::XLSX ou Spreadsheet::WriteExcel ?

**myspanique** · 21/01/2016, 16h24

Spreadsheet::WriteExcel ; parce que je ne suis pas certaine que tous les chercheurs de mon labo qui utiliseront mes fichiers disposent d'un tableur qui accepte vraiment les .xlsx ... déjà le mien il aime pas trop, alors... !

Bug Spreadsheet::WriteExcel, le retour !, version Formules.

Modules Perl

Discussions similaires

Partager

Partager