Discussion :

[layate]

Bonjour
Je cherche à savoir comment est ce que je pourrai ouvrir un document Word à partir de forms.
Je sais traiter un document Excel par le biais d'OLE mais je n'arrive pas à trouver comment le faire pour Word.

Merci

[ktano]

Essaie avec host :
host('C:\Program Files\Microsoft Office\OFFICE11\WINWORD.exe');

[layate]

En fait j'aimerai ouvrir un document word specifique.
L'utilisateur ne connait pas forcement le nom ou où se trouve le fichier.

[SheikYerbouti]

En fait j'aimerai ouvrir un document word specifique.
L'utilisateur ne connait pas forcement le nom ou où se trouve le fichier.

Ah ! vous souhaitez donc quelque chose de paranormal qui saura, lui, ou se trouve le document ?

[layate]

Je defini au prealable le chemin d'acces au document.
Mais ce que je veut c'est que quand l'utilisateur va cliquer sur le bouton "Ouvrir Doc" le fichier word (que j'aurai moi defini et dont j'aurai renseigné dans le code son chemin d'acces) s'ouvre.
Ca n'a rien de paranormal.

[ktano]

dans ce cas utilise ceci sur un bouton
declare
v_filename varchar2(255);
begin
v_filename := get_file_name(NULL,NULL,
'DOC Files (*.doc)|*.ctl|' ||
'All Files (*.*)|*.*|', NULL, OPEN_FILE );

host ('C:\Program Files\Microsoft Office\OFFICE11\WINWORD.exe '||v_filename);
end;

[layate]

Le get_file_name fonctionne correctement mais le host ne me lance toujours pas Word et donc je n'arrive pas à ouvrir le fichier choisi prealablement.

[plaineR]

Essaie :

Code :

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

host ('cmd /c start "" "' || nom_du_fichier || '"');

Cette commande a l'avantage d'ouvrir n'importe quel fichier avec son application associée.

[ktano]

reprend ce code: assure toi que le nom du fichier word à ouvrir est unique. J'ai deja tester ce code il marche parfaitement.

declare
v_filename varchar2(255);
begin
v_filename := get_file_name(NULL,NULL,
'DOC Files (*.doc)|*.doc|' ||
'TXT Files (*.txt)|*.txt|' ||
'All Files (*.*)|*.*|', NULL, OPEN_FILE );

host('C:\Program Files\Microsoft Office\OFFICE11\WINWORD.exe '||v_filename);
end;

[ktano]

Ou bien :

declare
v_filename varchar2(255);
begin
v_filename := get_file_name(NULL,NULL,
'DOC Files (*.doc)|*.doc|' ||
'TXT Files (*.txt)|*.txt|' ||
'All Files (*.*)|*.*|', NULL, OPEN_FILE );

host ('cmd /c start "" "' || v_filename || '"');
end;

[plaineR]

reprend ce code: assure toi que le nom du fichier word à ouvrir est unique. J'ai deja tester ce code il marche parfaitement.

Code :

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

1
2
3
4
5
6
7
8
9
10
declare
   v_filename  varchar2(255);
begin
   v_filename := get_file_name(NULL,NULL,
   'DOC Files (*.doc)|*.doc|'  ||
   'TXT Files (*.txt)|*.txt|' ||
   'All Files (*.*)|*.*|', NULL, OPEN_FILE );
 
   host('C:\Program Files\Microsoft Office\OFFICE11\WINWORD.exe  '||v_filename);
end;

L'inconvénient de cette méthode c'est qu'il faut connaître le chemin de word.

NB : merci de penser à utiliser les balises code