Discussion :

[sebyo]

Bonjour dans le cadre d'un projet ou je converti des tables paradox en fichier Excel j'ai déjà posé quelques questions et les indications m'ont parfois bien aidé...donc en voila une de plus ..



Losrque j'exporte une table paradox vers excel je teste d'abord si le fichier existe déjà ou si j'en crée un nouveau.

Dans le cas ou le fichier existe j'aimerais faire un test pour savoir si le fichier excel est pas déjà ouvert car dans ce cas la ca me crée pas d'erreur forcement mais ca m'ouvre le deuxieme fichier en doublons et lorsque je ferme le deuxieme le premier ne s'actualise pas avec les données que je viens de transferer....


en clair je pisserais dans un violon ca n'en ferais pas mieux ...

J'espère avoir énoncé mon problème le plus clairement possible .

Si quelqu'un sais comment tester si un fichier excel est déjà ouvert ca serais parfait !


© Seb ®

[NABIL74]

salut,
tu peux tester si ton fichier excel est déjà ouvert en passant par cette fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function VerifierSiFichierEstOuvert(NomFichier : string) : boolean;
var HFileRes : HFILE;
begin
  Result := False;
  if not FileExists(NomFichier) then
    Exit;
  HFileRes := CreateFile(pchar(NomFichier),
                         GENERIC_READ or GENERIC_WRITE,
                         0, nil, OPEN_EXISTING,
                         FILE_ATTRIBUTE_NORMAL, 0);
  Result := (HFileRes = INVALID_HANDLE_VALUE);
  if not Result then
    CloseHandle(HFileRes);
end;

pour l'appeler, il suffit de mettre ça:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
if VerifierSiFichierEstOuvert('C:\ton ficher.xls') then begin
showmessage('impossible d''exporter les données car le fichier est encore ouvert!')
end else
.
.
end;

j'espère que ça t'aidera.

a+

NABIL74

[tourlourou]

ou pê en passant par l'OLE Excel (si tu l'utilises) et listant les classeurs ouverts

[sebyo]

merci pour la réponse je vais la tester , sinon justilise les OLE mais je ne sais pas comment lister les classeurs ouverts..si jamais le code est plus rapide ca sera mieux mais déjà je vais intégrer le code de NABIL74.



Merci

© Seb ®

[sebyo]

J'ai intégré la fonction que tu m'a donnée elle marche bien !! dc bon j'vais abandonner les recherches pour l'OLE. je n'ai pas reussi a trouver car il se connecte a une nouvelle session excel donc pas a celle existante.

merci pour la réponse qui marche bien bien !!


© Seb ®

[tourlourou]

je pense que ce petit tour dans la FAQ : http://delphi.developpez.com/faq/?pa...#wordwordlance permettra de récupérer Excel s'il est lancé (lien "comment savoir si une application COM est en cours d'exécution ?")