Discussion :

[sino]

salut
je veux ouvrir un fichier word à partir d'un clic sur un bouton . comment faire?

[bakaneko]

FAQ...

[damienlann]

tu tapes ShellExecute est tu appuis sur
sinon il y a un autre sujet a peu prés sur le meme theme:
http://www.developpez.net/forums/sho...d.php?t=153259

[blondelle]

peut etre en executant ce petit bout de programme avec une forme et un bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#pragma link "Word_2K_SRVR"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//----------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//----------------------------------------------
Variant vMSWord , vWDocument , vWDocuments;
Variant vFileName;
//----------------------------------------------
vMSWord = Variant::CreateObject("Word.Application");
vMSWord.OlePropertySet("Visible",true);
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\télégraphe.csv";
vWDocuments = vMSWord.OlePropertyGet("Documents");
vWDocument = vWDocuments.OleFunction("Open", vFileName);
}
//-----------------------------------------------

[Gilles Louïse]

peut etre en executant ce petit bout de programme avec une forme et un bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vMSWord , vWDocument , vWDocuments, vFileName;
 
vMSWord = Variant::CreateObject("Word.Application");
vMSWord.OlePropertySet("Visible",true);
vFileName = "C:\\Documents and Settings\\blondelle\\télégraphe.csv";
vWDocuments = vMSWord.OlePropertyGet("Documents");
vWDocument = vWDocuments.OleFunction("Open", vFileName);
}

Ce code me paraît excellent, il faudrait sans doute l'inclure dans la FAQ si ce n'est déjà fait. Il fait concurrence au ShellExecute, c'est une autre formule tout aussi intéressante.

À bientôt
Gilles

[blondelle]

Ce bout de code a ete ecrit avec l'aide de la FAQ Word et en minspirant du cheminement de l'ouverture de fichier excel
Tutoriel Pilotez OLE de Word
Tutoriel Pilotage OLE d'Excel