Discussion :

[dimitri13]

Bonjour à toutes et à tous,

J'utilise le module Perl Spreadsheet-WriteExcel-1.01.
Est-ce que vous savez comme je peux obtenir le numéro de la dernière ligne remplie de mon fichier Excel généré par Spreadsheet-WriteExcel-1.01.
Merci pour votre aide.

Cordialement
Dimitri.

[cmcmc]

J'utilise le module Perl Spreadsheet-WriteExcel-1.01.

??? Avec quelle version de perl ? Cette version date de 2004, le développement de Spreadsheet-WriteExcel s'est arrêté en 2013 avec la 2.40 pour passer à Excel::Writer::XLSX ...

Est-ce que vous savez comme je peux obtenir le numéro de la dernière ligne remplie de mon fichier Excel généré par Spreadsheet-WriteExcel-1.01.

Là tu as accès directement au programme de génération, donc regarde/capture l'indice de ligne maximum utilisé par les fonctions write_...

Sinon, utilise Spreadsheet::ParseExcel et quelque chose comme (non testé)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
use Spreadsheet::ParseExcel;
for my $filename (@ARGV) {
  my $parser   = Spreadsheet::ParseExcel->new();
  my $workbook = $parser->parse($filename) or die $parser)->error();
  for my $worksheet ( $workbook->worksheets() ) {
    my ( $row_min, $row_max ) = $worksheet->row_range();
    ...
  }
}

[dimitri13]

??? Avec quelle version de perl ? Cette version date de 2004, le développement de Spreadsheet-WriteExcel s'est arrêté en 2013 avec la 2.40 pour passer à Excel::Writer::XLSX ...

Là tu as accès directement au programme de génération, donc regarde/capture l'indice de ligne maximum utilisé par les fonctions write_...

Sinon, utilise Spreadsheet::ParseExcel et quelque chose comme (non testé)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use strict;
use warnings;
use Spreadsheet::ParseExcel;
for my $filename (@ARGV) {
  my $parser   = Spreadsheet::ParseExcel->new();
  my $workbook = $parser->parse($filename) or die $parser)->error();
  for my $worksheet ( $workbook->worksheets() ) {
    my ( $row_min, $row_max ) = $worksheet->row_range();
    ...
  }
}

Bonjour cmcmc,

Merci pour ta réponse. Par contre je une autre question. Dans mon fichier Excel, je la cellule (9,9) ou j'écris une valeur. Je voudrais récupérer cette valeur.
Pour le faire, j'utilise le code suivant :

Code :

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

1
2
3
4
5
 
	my $cell = $preco->get_cell(9, 9);
	next unless $cell;
	$valeur = $cell->value();
	$preco->write(10,10, $valeur);

A la fin du script, il n'y a rien sur la cellule (10,10).
Est-ce que je besoin de parcourir le fichier Excel, ou je peux aller directement sur la cellule qui m'intéresse ?

Merci beaucoup
Dimitri