Discussion :

[Bengeldim]

Bonjour,

Quelqu'un pourrait il m'indiquer comment faire pour lire un tableau a partir d'un fichier word et ecrire dans un fichier excel.

Par avance merci

[Jasmine80]

Je pense que le module Win::OLE permet de faire ce que tu veux mais je n'ai pas encore réussi à lire un fichier Word, j'ai seulement pu récupérer des données d'Excel.

http://www.bribes.org/perl/docfr/perlwin32faq12.html
http://www.adp-gmbh.ch/perl/word.html

[Jasmine80]

J'ai réussi à récupérer les données textes ... essaie sur ton tableau pour voir

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
 
use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Enum;
 
my $input_file = 'P:/Perl/scripts2/Files/JL/Copie de Impact_Factor.doc';
my $document = Win32::OLE -> GetObject($input_file);
 
 
my $paragraphs = $document->Paragraphs();
my $enumerate = new Win32::OLE::Enum($paragraphs);
while(defined(my $paragraph = $enumerate->Next()))
    {
        my $text = $paragraph->{Range}->{Text};
        $text =~ s/[\n\r]//g;
        $text =~ s/\x0b/\n/g;
        print "$text\n";
    }

[Bengeldim]

Merci pour ta reponse Jasmine,

finalement je vais tout simplement faire un copier de mon tableau sous word et le coller dans une fiche excel, cela me permettra de le traiter plus simplement.

A plus...