Bonjour,

Je souhaite parser un fichier excel jusqu'à la première ligne vide.
Pour le moment j'utilise le code suivant et je souhaite le modifier.

# !usr/perl/bin/
# Modules nécessaires
use strict;
use Win32::OLE qw(in with);
use CGI::Carp qw(fatalsToBrowser);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;
# Type de contenu pour le navigateur
print "Content-Type: text/html; charset=utf-8\n\n";
# Création d'une nouvelle instance du package pour Excel
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
# Ouverture du fichier Excel
my $Book = $Excel->Workbooks->Open("C:\\fiche.xls");
# Affectation du 1er classeur à la variable $Sheet
my $Sheet = $Book->Worksheets(3);
# Récupération des valeurs de toutes les cellules comprises entre F4 et J160
my $begin_cell = 'F4';
my $end_cell = 'J160';
my $array = $Sheet->Range("$begin_cell:$end_cell")->{'Value'}; # get the contents
$Book->Close;
# Affichage de ces valeurs
foreach my $ref_array (@$array) {
# Parcours de chaque ligne
foreach my $scalar (@$ref_array) {
# Parcours et affichage de chaque valeur rangées dans les colonnes de la ligne parcourue
print "$scalar ";
}
print "\n";
}



Merci pour votre aide.

Configuration: Windows XP
Opera 9.25