Discussion :

[caramon _majere]

Bonjour,

je regarde un tuto pour créer un fichier excel avec le modul Spreadsheet::WriteExcel
http://l.boivin.free.fr/perl/fpw08.pdf

le premier exemple fonctionne bien avec des boucles foreach avec des chiffees, ca fonctionne.

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
use warnings;
use strict;
use feature 'say';
use Spreadsheet::WriteExcel;
 
my $wb = Spreadsheet::WriteExcel->new("foo.xls");
my $ws = $wb->add_worksheet('Ma feuille');
 
foreach my $r (0..3)
    {
        foreach my $c (0..3)
        {
            $ws->write($r, $c, "cellule $r $c");
        }
    }
$wb->close();

Résultat




Second exemple avec la seconde boucle foreach avec des lettres. Problème, je n'ai qu'une colonne avec la dernière lettre.

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
use warnings;
use strict;
use feature 'say';
use Spreadsheet::WriteExcel;
 
my $wb = Spreadsheet::WriteExcel->new("foo.xls");
my $ws = $wb->add_worksheet('sheet1');
 
 
foreach my $r (0..3) 
	{
	foreach my $c ('A'..'D')
		{
		$ws->write($r, $c, "Cell $r$c");
		}
	}
$wb->close();

Résultat




Pourtant en affichant les variables avec chiffre ou lettre, tout semple bon.

Code :

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

1
2
3
4
5
6
7
foreach my $r (0..3) 
	{
	foreach my $c (0..3)
		{
		say "$r $c";
		}
	}

Résultat

0 0
0 1
0 2
0 3
1 0
1 1
1 2
1 3
2 0
2 1
2 2
2 3
3 0
3 1
3 2
3 3

Code :

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

1
2
3
4
5
6
7
8
9
 
foreach my $r (0..3) 
	{
	foreach my $c ('A'..'D')
		{
		$ws->write($r, $c, "Cell $r$c");
		}
	}
$wb->close();

Résultat

0 A
0 B
0 C
0 D
1 A
1 B
1 C
1 D
2 A
2 B
2 C
2 D
3 A
3 B
3 C
3 D

Je ne comprend pas avec les lettres pourquoi avec les lettres, les colonnes ne sont pas pris en compte.

Une idée?

[Lolo78]

Bonjour,

si tu fais comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
 
foreach my $r (0..3) 
{
	foreach my $c ('A'..'D')
	{
		$ws->write("$r$c", "Cell $r$c");
	}
}
$wb->close();

est-ce que ça marche mieux?

[Lolo78]

J'ai répondu ci-dessus de mémoire (je n'ai pas utilisé ce module depuis 2008, les souvenirs sont donc assez vagues).

En vérifiant la documentation du module, en particulier sur la façon de désigner les cellules, j'ai la confirmation que ce doit être ça:

http://search.cpan.org/dist/Spreadsheet-WriteExcel/lib/Spreadsheet/WriteExcel.pm#Cell_notation

[caramon _majere]

Bonjour Lolo,

En fait c'était l'exemple dans le lien mais ca donne un tableau vide (j'utilise libreoffice mais si ca fonctionne pour les chiffres ca devrait le faire pour les lettres)

J'ai testé de faire deux cellules sur une même lignes et la dernière écrase la précédente.

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
use warnings;
use strict;
use feature 'say';
use Spreadsheet::WriteExcel;
 
 
my $wb = Spreadsheet::WriteExcel->new("foo.xls");
my $ws = $wb->add_worksheet('sheet1');
 
my $ligne = '0',
my $colonneA ='A';
my $colonneB = 'B';
 
		$ws->write($ligne, $colonneA, "Cell $ligne$colonneA");
		$ws->write($ligne, $colonneB, "Cell $ligne$colonneB");
 
$wb->close();

Résultat



Je passerai par des chiffres au pire n'est pas grave mais la différence de comportement l’interpellait.

Les exemples du module sur CPAN utilisent des chiffres en général, c'est qu'il doit y avoir une raison

[Lolo78]

Euh, pas bien compris.

Je suggérais ce qui suis.

Au lieu de:

Code :

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

1
2
 
$ws->write($ligne, $colonneA, "Cell $ligne$colonneA");

Utiliser:

Code :

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

1
2
 
$ws->write("$ligne$colonneA", "Cell $ligne$colonneA");

Autrement dit, concaténer ligne et colonne en une seule valeur, en sorte de passer deux arguments, et non trois, à la méthode write.

[caramon _majere]

En fait pour reprendre ta première réponse

Code :

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

1
2
 
$ws->write("$r$c", "Cell $r$c");

Ca me donne un fichier vide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
my $wb = Spreadsheet::WriteExcel->new("foo.xls");
my $ws = $wb->add_worksheet('sheet1');
 
foreach my $r (0..3) 
	{
	foreach my $c ('A'..'D')
		{
		$ws->write("$r$c", "Cell $r$c");
		}
	}
$wb->close();

Sur
http://search.cpan.org/dist/Spreadsh...#Cell_notation

Avec une recherche je ne vois pas d'exemple ou la ligne et la colonne sont dans des variables entre "".

Mais bon je passerais par le chiffre, ce n'est pas bloquant

[Lolo78]

Sur
http://search.cpan.org/dist/Spreadsh...#Cell_notation

Avec une recherche je ne vois pas d'exemple ou la ligne et la colonne sont dans des variables entre "".

Mais si:

Code :

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

1
2
 
('A1')      # The top left cell in A1 notation.

ce qui veut dire que, dans cette notation il fait passer la colonne (désignée par une lettre) avant la ligne (désignée par un chiffre), dont en fait:

Code :

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

1
2
 
		$ws->write("$c$r", "Cell $c$r");

de façon à utiliser, par exemple, "B3" et non "3B".

[caramon _majere]

J'avais écris de cette manière en suivant le tuto que je donnais en exemple mais j'avais l’erreur suivante ainsi que un fichier vide

Unknown cell reference -1 at test.pl line 15.

C'est pour cela que j'ai inversé les valeurs $c et $r

[Lolo78]

Bonjour,

surpris que tu n'y arrives pas, je me suis décidé à installer le module Spreadsheet::WriteExcel sur mon ordi sous Windows, bien que je n'en aie normalement pas trop usage: sous Unix et Linux, je n'utilise pas trop Excel... Cela dit, il m'est en fait arrivé il y a quelques années d'écrire un programme Perl sous AIX pour préparer des rapports Excel à destination de managers n'utilisant certainement que Windows.

En fait, en notation de cellule A1, il faut faire commencer la première ligne à 1, pas à 0.

Et ceci marche parfaitement:

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
 
use warnings;
use strict;
use Spreadsheet::WriteExcel;
 
my $wb = Spreadsheet::WriteExcel->new("foo.xls");
my $ws = $wb->add_worksheet('sheet1');
 
 
foreach my $r (1..5) {
	foreach my $c ('A'..'E') {
		$ws->write("$c$r", "Cell $c$r");
		}
	}
$wb->close();

et remplit correctement ma feuille Excel.

[djibril]

Bonsoir,

Tu peux également utiliser ce module : Excel::Writer::XLSX si tu souhaites créer des fichiers .xlsx au lieu de .xls.
Pour revenir à ton problème, écoute les conseils de lolo78, soit tu utilises la notation : 0,0 ; 0,1... soit A1, B1,...

[caramon _majere]

Merci Lolo

En fait, en notation de cellule A1, il faut faire commencer la première ligne à 1, pas à 0.

Comme avec les chiffres il n'y avait pas de problème avec le 0, j'étais persuadé qu'il prenait toujours le 0 en compte avec les lettres ...

Effectivement maintenant ca change la vie

Désolé de t'avoir fait réinstaller ce module

Comme pour toi, le format .xls c'est pour faire des créations pour les chefs ou des clients avec plus tard des couleurs etc ...le format .csv ca ne fait pas assez jolie, ca passe pour les collègues

Bonsoir,

Tu peux également utiliser ce module : Excel::Writer::XLSX si tu souhaites créer des fichiers .xlsx au lieu de .xls.
Pour revenir à ton problème, écoute les conseils de lolo78, soit tu utilises la notation : 0,0 ; 0,1... soit A1, B1,...

Bonsoir Djibril,

le format .xls c'est pour que ca soit lu sur le plus grande nombre de machines. Ca coute cher les licences Microsoft Office ...et puis tant que ca fonctionne, pourquoi changer ?