Discussion :

[mariafan]

bonjour,
j'ai déjà eu un script pour passer d'un .xls à un .txt.
le script je l'ai testé et il marchait vraiment bien après une semaine, il ne marche plus et je ne sais pas de tout pourquoi.
avec ce script je récupère les données de mon fichier .xls dans un fichier .txt
mais la je n'ai rien dans le fichier.txt, il est vraiment vide 0ko

voila le code

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
#!c:/perl/bin/perl
use strict;
use warnings;
use Spreadsheet::ParseExcel;
my @lignes;
 
my $fichier_txt = "./xls_txt.txt";
my $fichier_xls = "./cheklist_massy.xls";
die "fichier non trouve !\n" if (! -s $fichier_xls);
open(FIC, ">$fichier_txt" ) or die "impossible d'ecrire dans le fichier $fichier_txt : $!";
 
my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($fichier_xls);
my($iR, $iC, $oWkS, $oWkC);
foreach my $oWkS (@{$oBook->{Worksheet}}) {
    print "--------- SHEET:", $oWkS->{Name}, "\n";
    for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {  
      for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {  
        $oWkC = $oWkS->{Cells}[$iR][$iC];
        print FIC $oWkC->Value,"\t" if($oWkC); 
      }  
      print FIC "\n"; 
    }
}
close FIC;

[djibril]

et quel est le message d'erreur?

[Arioch]

Et question subsidiaire : quand tu fais tes print sur les noms d'onglets de ton fichier Excel, ça apparait bien à l'affichage ?

[mariafan]

je me rappel c'est vous djbril qui m'avez aidé sur ce script.
je n'ai pas de tout de message d'erreur j'ai seulement la création du fichier résultat mais
je ne comprend plus rien.
merci de m'aider.

[djibril]

peux tu nous donner ton fichier xls si ce n'est pas confidentiel?

[mariafan]

le voila le fichier .xls.
merci de votre aide.

[Arioch]

le script je l'ai testé et il marchait vraiment bien après une semaine, il ne marche plus et je ne sais pas de tout pourquoi.

Petite question pas tout à fait aussi conne qu'elle en a l'air : es-tu sûr que tu exploites exactement le même script au caractère près ?

A force de faire des essais, on renomme des scripts Perl, on les déplace, on les renomme à nouveau, on en teste un et hop, il marche. Sauf qu'on a oublié de le renommer avec son véritable nom de production, etc.

On sait jamais, alors je pose la question

[mariafan]

c'est une bonne piste.
mes je les vérifier avant de poster ma question.
MERCI BEAUCOUP POUR VOTRE AIDE
je ne sais tjs pas pourquoi ça ne marche plus

[djibril]

bah apres verif, je ne trouve pas ton soucis. Il ne fonctionne pas chez moi non plus. Le souci vient de ton fichier excel. Je ne sais pas d'ou vient le probleme ou si c'est un souci de version de ton excel avec le module perl. Bref le souci vient de ton fichier excel car quand je copie le contenu de ton fichier dans un nouveau fichier excel, j'ai plus de souci et j'ai bien un fichier txt plein.

Exemple :

Code :

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

1
2
3
4
5
6
use Spreadsheet::ParseExcel;
 
#objet excel
my $fichier_excel = "cheklist_velizy2.xls";
my $objet_excel = new Spreadsheet::ParseExcel;
my $objet_fichier = $objet_excel->Parse($fichier_excel) or die "$!";

=> Bad file descriptor at G:\perl\art_perl\test2.pl

[mariafan]

sincèrment je vois pas de tout .
la seule différence entre les deux ie la semaine dernière et cette semaine et que cette semaine je récupère les .xls via le ftp automatiquement à l'aide d'un script perl. alors que l'autre fois je l'ai récupérer à l'aide de FileZilla

[Arioch]

sincèrment je vois pas de tout .
la seule différence entre les deux ie la semaine dernière et cette semaine et que cette semaine je récupère les .xls via le ftp automatiquement à l'aide d'un script perl. alors que l'autre fois je l'ai récupérer à l'aide de FileZilla

Autre question conne alors : les deux transferts FTP ont-ils transféré le fichier Excel en mode binaire ???