Discussion :

[Renegad666]

Bonjour a tous,

Je suis actuellement en train de développer un script Perl pour écrire des données dans un fichier Excel. L'ouverture du fichier, l'écriture des données et la fermeture du fichier fonctionnent très bien.

Je rencontre un problème lors de l'écriture de donnée si le fichier Excel est déjà ouvert par un utilisateur.

Je vous demande donc s'il est possible de savoir si un fichier Excel est ouvert ou non (j'ai déjà essayé avec les options -e -r -w -x), ou si on peux forcer la fermeture du fichier.

Merci d'avance

[djibril]

Bonjour,

Essaye la fonction Perl fileno.

[Renegad666]

Bonjour,

Merci beaucoup, c'est exactement ce qu'il me fallait.
Je ne connaissait pas cette fonction . Elle est bien pratique.

[djibril]

Si tu pouvais mettre un petit code montrant comment tu utilises cette fonction, ça aiderait des non connaisseurs.

[Renegad666]

Pas de souci,

Voici le petit code qui me permet de savoir si un fichier Excel (ou autre format) est ouvert ou non :

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
 
# Ouverture du fichier concerné
open (FIC, "+<", "donnees.xls");
 
# Si le fichier est accessible en ecriture et donc pas encore ouvert
if (fileno (FIC)) {
   # traitements
}
# Sinon
else {
   print "Le fichier : donnees.xls n'est pas accessible en ecriture\n";
}
 
# Fermeture du fichier
close (FIC);