Discussion :

[perdeak]

Bonjour,

J'aimerai ouvrir un fichier d'aide (format excel, possibilité de le mettre en word eventuellement) en cliquant sur un bouton.

Quel type de structure, ou quel contrôle puis je utiliser?

Merci par avance.

[kevinou55]

si c'est un classeur Excel que tu veux ouvrir tu peux utiliser le composant TExcelApplication (dans l'onglet Servers)

[perdeak]

Euh...l'aide Delphi sur l'ExcelApplication est inexistante, savez vous comment ça marche? structure?

[kevinou55]

Pour ouvrir un classeur il faut que tu créé ton TexcelApplication (tu le place juste sur ta Form) ensuite au moment voulu tu fait

Code :

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

1
2
3
4
 
vXlWorkBook:=ExcelApplication1.Workbooks.Open(aFileName,False,False,
                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
              EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);

il faut avoir défini vXLWorkBook comme "_workbook"

Cependant ce code t'ouvre Excel en tache de fond, Excel ne sea pa visible.
Il me semble que le dernier argument doit etre modifié pour lerendre visible mais un peu de recherche la-dessus devrait te guider.

[perdeak]

Désolé mais j'ai pas tout compris...

A la compilation ça passe nickel, mais quand j'arrive sur ma fenêtre, ben je vois pas le contrôle...donc je l'ai rattaché à un bouton, qui doit déclencher la procédure sur un clique, mais rien ne s'exécute!

[kevinou55]

si a mon avis ca s'execute mais come je te l'ai dis, c'est en tache de fond. donc Excel n'est pas visible C'est le seul probleme que tu as a règler je suis désolé mais je ne connait pas la solution.
essaie de passer le dernier parametre a 1 a la place de 0 mais je ne garantis rien

Bonne chance

[perdeak]

Oui, ça je te confirme ça tourne bien en tâche de fond, il mouline...
Déjà essayé de passer le dernier paramètre à 1, rien de bien concluant...
Merci quand même pour ton aide!

[perdeak]

Je voudrais ouvrir un fichier Excel lorsque j'appuie sur un bouton (fichier d'aide). Pour cela j'utilise:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
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...

Avez vous déjà eu le problème, ou avez vous une solution pour y remédier?

[ero-sennin]

Re,

Si ça t'interesses et si ça te convient, tu peux t'inspirer de ce tutoriel.

A+

EDIT :
Comment rendre Excel visible ?

[kevinou55]

je crois que j'ai trouvé la solution :
il faut mettre ExcelApplication1.visible[0]:=True;
et je pense qu'il faut laisser le dernier parametre a 0


EDIT : post croisés

[perdeak]

Merci pour vous réponses, du coup je suis passé par la fonction ShellExecute, et là ça passe nickel.