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