Discussion :

[achraf.z]

bonjour a tous je suis tout nouveaux et c'est mon premier post j’espère respecter les réglés du forum bon j ai un problème avec mon code j utilise le module file::find pour avoir le chemin de n importe quelle fichier excel se trouvant dans une arborescence le code me retourne le chemin comme suit :
c:\X/Y/Z.xls pourvu que je veux que le chemin soit de la forme classique c:\X\Y\Z.xls car je vais prendre les chemin de ce code pour ouvrir les fichier excel
avec une autre fonction voici mon 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
25
26
27
28
29
 #!/usr/bin/perl
    #use warnings;
    use strict;
    use File::Find;
    use Cwd;
    use Win32::OLE qw(in with);                              
print 'entrer le lien : ';
$a = <STDIN>;
my $b = chomp($a);
my $repertoire = "$a";  
find( { wanted => \&process, }, $repertoire );
my @fichier;
 my $fichier;
  my $i=0;
sub process {
   if (( -f $File::Find::name) && ($File::Find::name =~ m/[a-z]*.xls$/) ) 
    {
         #my $i=0;
         foreach ($File::Find::name)
         {
         $fichier[$i]= $File::Find::name;
         $i++;
         }  
    }  
}
for ($i = 0;$i <3; $i++) {
my $c = chomp($fichier[$i]);
print"$fichier[$i]\n";
}

[djibril]

Bonjour,

Comment récupérer le nom (ou chemin) ou l'extension d'un fichier ?

[achraf.z]

merci mais votre lien ne marche pas deja est ce que dans ton lien on cherche dans toute l arboressence car moi j ai besoin de donner par exemple c:\ et le programe doit chercher dans tout le disque dur et trouver des fichier excel

[achraf.z]

votre lien a marché mais c est pas d une grande aide puisque moi je cherche a ouvrir tout dossier qu il y a partir d'un chemin et chercher les fichier qui ont l extention .xls mon code marche bien j ai qu un problem que j ai posé c est avec les slach

[djibril]

Inspire toi de ce programme

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
25
26
#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
use File::Spec;
 
use Cwd;
use Win32::OLE qw(in with);
my @fichiers;
print 'entrer le lien : ';
my $repertoire = <STDIN>;
chomp $repertoire;
find( { wanted => \&process, }, $repertoire );
 
sub process {
  my $fichier = $File::Find::name;
 
  if ( ( -f $fichier ) && ( $fichier =~ m/[a-z]*.xlsx?/ ) ) {
    $fichier = File::Spec->catfile($fichier);
    push @fichiers, $fichier;
  }
}
 
foreach my $file (@fichiers) {
  print "- $file\n";
}

[achraf.z]

bonjour votre code m'est vraiment utile merci mais j'ai pas compris comment vous avez fais puisque je veux modifier le code pour avoir l les liens sous la forme c:\\perl\\y\\... car je veux rentrer ces liens comme argument pour une fonction Open('c:\\perl\\y\\... ') et merci d'avance.

[djibril]

Il ne faut pas utiliser des chemins avec \\.

Comment utiliser des noms de fichiers ou répertoires portables ?

[achraf.z]

dsl je me suis trompé c'est open ("c:\\perl\\y\\..) voici mon code complet pour que vous me comprenez mon code consiste a ouvrir n importe quelle fichier excel a partir d #!/usr/bin/perl

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
 
use strict;
use warnings;
use File::Find;
use File::Spec;
use Cwd;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Spreadsheet::ParseExcel;
$Win32::OLE::Warn = 3;         
 
 
my @fichiers;
print 'entrer le lien : ';
my $repertoire = <STDIN>;
my @fichier;
my $i = 0;
chomp $repertoire;
find( { wanted => \&process, }, $repertoire );
 
sub process {
  my $fichier = $File::Find::name;
 
  if ( ( -f $fichier ) && ( $fichier =~ m/[a-z]*.xlsx?/ ) ) {
    $fichier = File::Spec->catfile($fichier);
    push @fichiers, $fichier;
  }
}
 
foreach my $file (@fichiers) {
  #print "$file\n";
 
  $fichier[$i]= $file;
 
         #print"$fichier[$i]\n";
                  $i++;
 
  }
 
   for (my $i=0; $i <= 2; $i++) {
#print $fruit[$i];
 
    my $c = chomp($fichier[$i]);
 
#my $repertoire1 = "$fichier[$i]"; 
 
 
   my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
        || Win32::OLE->new('Excel.Application', 'Quit');  # utilise le process Excel en cours
 # d'application ou ouverture d'une nouvelle
    my $Book = $Excel->Workbooks->Open("$fichier[$i]"); # ouvre un fichier Excel
    my $Sheet = $Book->Worksheets(1);                     # selectionne la feuille numéro 1
 
 
    my $last_row = $Sheet->UsedRange->Find({What => "*", SearchDirection=>xlPrevious, SearchOrder=>xlByRows})->{Row};
 
 
 
   my $array = $Sheet->Range("A1:A$last_row")->{'Value'};        # Recupere le contenu
 
    $Book->Close;
 
 
    open(FILE, ">file.txt");
        foreach my $ref_array (@$array) {
          foreach my $scalar (@$ref_array) {     
      print FILE ("$scalar \t");
}
print FILE "\n";
} 
}   une arborescence et pour chaque fichier creer un fichier txt

j'ai le problem avec la fonction open () pour ouvrir le lien pris du code que vous m'avez proposé.

[djibril]

Votre progamme fait tout et n'importe quoi, des boucles inutiles...
Bref, qu'elle est le but concret de votre programme ?

N.B. Merci de mettre des apostrophes dans vos phrases car la lecture est assez désagréable.

[achraf.z]

desolé pour mon écriture le but de mon programe est de chercher a partir d'un chemain tout les fichiers excel appartenant a l'arborescence puis les ouvrir et prendre des case bien déterminer du fichier excel et les ecrire pour chaque fichier excel trouver dans un fichier txt séparer

[djibril]

Vous connaissez les noms de fichiers excel que vous cherchez ?
Le bout de code que je vous ai donné vous permet déjà de parcourir proprement le répertoire.
Pour lire le fichier Excel, le module Spreadsheet::ParseExcel est suffisant.

[achraf.z]

oui le code parcour les repertoir et fais tout le problem c est que pour la fontion open du module Spreadsheet:arseExcel quand je recupere le chemin des fichiers pour les donner a la fonction open c'est la ou il y a l'erreur puisque j'ai déja essaier la fontion et elle m'ouvre les liens sous la forme

Code :

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

 my $Book = $Excel->Workbooks->Open("C:\\X\\Y.xls")

, le lien que je recupere avec le code que vous m'avez proposé est sous la forme c:\X\Y c'est la où j ai l erreur et je fais des boucle pour que a chaque fichier excel trouvé on lui associe a fichier txt.

[achraf.z]

bonjour j ai pu resoudre le problem j ai fait un open tout court comme suit :

Code :

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

   my $Book = $Excel->Workbooks->Open($fichier[$i])

merci beaucoup djibril tu etais d'une grande aide ...