ouverture d'un fichier Excel en appuyant sur un bouton

Question

Bonjour, Voilà mon problème, je voudrais ouvrir un fichier Excel lorsque j'appuie sur un bouton (fichier d'aide). Pour cela j'utilise: Code : procedure TFDtlBlExploit.Button1Click(Sender: TObject); var vXLWorkBook : _workbook; begin vXlWorkBook:=ExcelApplication1.Workbooks.Open('D:\Mes documents\Qualimat\Qualimat_transport_4_annexe_1 utilisation Pégase.xls',False,False, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0); end; end. J'essai de modifier le dernier param et de le passer à 1 mais rien n'y fait, Excel ne s'ouvre pas...pourtant il semble chercher qqchose... Quelqu'un a t'il une autre solution ou un moyen d'afficher ce foutu fichier? Merci par avance.

BernieNoel68 · Answer

Si tu souhaite juste ouvrir un fichier Excel déja crée, regarde du coté de la fonction ShellExecute (dans l'unité ShellAPI).

Bon courage.

BernieNoel68 · Answer

Un petit exemple : 

--------------------------------------------------------------------------------------------
uses ShellAPI ;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShellExecute(Handle,'open',PChar('C:\MonFichier.xls'),nil,nil,SW_SHOW);
end;
--------------------------------------------------------------------------------------------

A noté que ShellExecute utilisera l'application par defaut associé a l'exstension *.xls, dans ton cas Excel (si il est installé).

perdeak · Answer

J'ai essayé et...................ça marche nickel!!!! 

Merci beaucoup BernieNoel68, ça faisait déjà 2 jours que je bloquais dessus!

Ouverture d'un fichier Excel en appuyant sur un bouton

3 réponses

Votre réponse

Discussions similaires