FmShareExclusive [Résolu]

Signaler
-
 Utilisateur anonyme -
bonjour à tous;

voici une condition,
If (FileOpen(Chemin+Classeur , fmShareExclusive) >= 0)then

comment ouvrir mon fichier avec cette condition ??
je l'utilise pour savoir si mon fichier est ouvert, ça marche très bien, mais le problème que je rencontre, c'est que je peux plus ouvrir mon fichier, car:

"fmShareExclusive : En aucun cas une autre application ne peut ouvrir le fichier." , lol !!!

Comment sortir de cette condition, que je veux impérativement la garder,
et ouvrir mon fichier ??;
Mon fichier est un fichier excel , le lien se crée bien, mais l'ouverture de celui-ci est donc impossible et je n'arrive pas à m'en sortir.
Auriez-vous une réponse ou solution ???

voici mon code:

  
If (FileOpen(Chemin+Classeur , fmShareExclusive) >= 0)then
    begin
     showmessage('fichier fermé');
    end
    else
    begin
      ShowMessage('fichier ouvert');


Merci d'avance et bon codding à tous ...

2 réponses

Messages postés
207
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
29 avril 2021
10
salut
en ajoutant peut être
   
fmShareExclusive or fmOpenReadWrite
ou fmShareExclusive or fmOpenRead

Bonjour Papyvore;
Merci pour votre réponse,
J'ai trouvé
Handle := FileOpen(Fichier, fmShareExclusive);
if (Handle = -1) then (fichier ouvert!!)
FileClose(Handle);
et ma procédure de création de mon fichier Excel j'ai dû la mettre avant la procédure OnShow de ma form
Cmerci et bon coddind