Discussion :

[nizar24]

Bonjour
je suis debutant en langage perl.
j'ai des classeurs excel contenant des données durant des années et chaque classeur contient une seule feuille je veux maintenant les fusionner dans un seul classeur excel à condition que chaque classeur sera une feuille dans le classeur destination et merci d'avance

[djibril]

Utilise le module Spreadsheet::ParseExcel pour lire tes fichiers excel et le module Spreadsheet::WriteExcel pour en créer. Attention, Il existe une limitation dans le nombre de feuilles par classeur en fonction que tu souhaites créer un fichier xls ou xlsx (Excel::Writer::XLSX).

[nizar24]

Merci bien pour ta réponse mais je veux connaitre comment commencer et est ce qu'il y a un code pour m'aider s'il vous plait

[Philou67430]

Djibril, sauf erreur, les objets retournés par Spreadsheet::ParseExcel et ceux acceptés par Spreadsheet::WriteExcel sont différents. Les deux classes ne sont donc pas inter-opérantes (un fil récent à faire apparaitre ce problème de compatibilité).

Il n'est donc pas forcément évident que ce soit facile à réaliser.

[djibril]

En fait, c'est difficilement réalisable si tu souhaites récupérer les fonts, couleurs, graphiques ou macros, etc. Mais si c'est uniquement le contenu des cellules, c'est très facile à faire. C'est d'ailleurs ainsi que je converti automatiquement des fichiers xls et txt.

Il faudrait que nizar24 nous dise à quoi ressemble les classeurs xls à fusionner !!

[nizar24]

En fait, c'est difficilement réalisable si tu souhaites récupérer les fonts, couleurs, graphiques ou macros, etc. Mais si c'est uniquement le contenu des cellules, c'est très facile à faire. C'est d'ailleurs ainsi que je converti automatiquement des fichiers xls et txt.

Il faudrait que nizar24 nous dise à quoi ressemble les classeurs xls à fusionner !!

Salut
chaque classeur contient uniquement le contenu des cellules il n' y a ni fonts ni couleurs ni macros
Merci d'avance

[Philou67430]

Mmm... ça sent l'uniligne

[nizar24]

chaque classeur contient des cellules contenant des valeurs ou des chaines de caractères

[djibril]

Mmm... ça sent l'uniligne

Je ne crois pas non, ça serait de l'uniligne indigeste et trop long.

[djibril]

chaque classeur contient des cellules contenant des valeurs ou des chaines de caractères

Parfait, c'est donc assez simple à mettre en place. Mais il te faut un minimum de connaissance Perl.

[nizar24]

Bonjour
alors comment je peux commencer s'il vous plait ????
Merci d'avance

[djibril]

Dans mon premier post, je t'ai mis le lien vers les modules que tu dois utiliser. Lis les documentations, il y a pléthore d'exemples.
Il faut que tu les installes avant de commencer à tester ton programme.

[nizar24]

Il n' y as pas une documetation en français je suis nul en anglais

[djibril]

Toutes les documentations informatiques dans ce bas monde sont en anglais, donc tout informaticien se doit de comprendre l'anglais sinon il faut changer de métier

[djibril]

Je viens de terminer un programme basique que je mettrais dans les sources de la rubrique perl. Ce programme a pour but de fusionner tous les fichiers Excel au format xls et xlsx en un fichier xls. Il copie toutes les feuilles des différents classeurs dans un seul fichier. Le seul inconvénient est qu'il ne garde pas les noms des feuilles mais en génère automatiquement (feuille1, 2, 3, ...) et les formats des cellules ne sont pas conservés, uniquement le contenu des cellules.

Mais je ne mettrais ce code à disposition de tout le monde que lorsque que tu auras déjà essayé de faire un bout de code .

[nizar24]

Salut
Ok je vais essayer de faire un bout de code.
Merci bien

[nizar24]

Salut voila un code qui permet d'ajouter des feuilles à un classeur excel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl -w
 
use strict;
use Spreadsheet::WriteExcel;
 
# Create a new workbook called simple.xls and add a worksheet.
my $workbook  = Spreadsheet::WriteExcel->new('simple1.xls');
my $worksheet = $workbook->add_worksheet();
my $worksheet1 = $workbook->add_worksheet();           
my $worksheet2 = $workbook->add_worksheet();  
my $worksheet3 = $workbook->add_worksheet();    
my $worksheet4 = $workbook->add_worksheet();

il reste maintenant à remplir ces feuilles

[djibril]

Va falloir vous bouger un peu plus . Le but du forum n'est pas de donner des solutions toutes faites, mais de vous orienter. Puis vous aider ou donner une solution si les forumeurs ont du temps. Donc, cherchze un peu, proposez du code et après je vous donnerez la solution. Beaucoup trop de nouveaux ne cherchent que les solutions toutes faites sans fournir le moindre effort.

Bon courage !!

[nizar24]

Salut
Mais je suis bloqué est ce que tu peux me donner des indices pour écrire le code
Merci d'avance

[nizar24]

Salut j'ai tapé ce 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
#!/usr/bin/perl -w
use strict;
use warnings;
#use File::Copy;
use Spreadsheet::WriteExcel;
my $fichier1 = "regions.xls";
my $fichier2 = "simple.xls";
my $fichier3="jan.xls";
# Create a new workbook called simple.xls and add a worksheet.
my $workbook  = Spreadsheet::WriteExcel->new('simple1.xls');
my $worksheet = $workbook->add_worksheet();
my $worksheet1 = $workbook->add_worksheet();           
my $worksheet2 = $workbook->add_worksheet();  
my $worksheet3 = $workbook->add_worksheet();    
my $worksheet4 = $workbook->add_worksheet();           
 
#Write some text.
$worksheet->write('A1',  'Hi Excel!');
copy($fichier2,$fichier1);
$worksheet1->$fichier1;
copy($fichier3,$fichier1);
$worksheet2->$fichier1;

mais il ya une erreur "Undefined subroutine &main::copy called" je n'ai pas compris le problème