Sujet Précédent Sujet Suivant

FmShareExclusive

Résolu
Utilisateur anonyme - 22 juil. 2018 à 18:55
 Utilisateur anonyme - 24 juil. 2018 à 05:40
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

Réponse 1 / 2
papyvore Messages postés 223 Date d'inscription samedi 15 novembre 2003 Statut Membre Dernière intervention 16 décembre 2021 15
23 juil. 2018 à 09:07
salut
en ajoutant peut être 
   
         fmShareExclusive or fmOpenReadWrite  
 ou      fmShareExclusive or  fmOpenRead
0
Réponse 2 / 2
Utilisateur anonyme
24 juil. 2018 à 05:40
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
0
Rejoignez-nous