Discussion :

[manworms2]

bonjour
je me suis servis de la FAQ pour trouver comment ouvrir un document word. j utilise le code ci dessous mais il plante : "Le projet a provoque une classe d execption EOleSysError ..." comment faire ? merci

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
Variant vFileName, vLink, vReadOnly, vFormat, vReadPass, vWDocuments, vWDocument ;
    Variant vMSWord;
try
        {
 
    vMSWord = Variant::CreateObject("Word.Application");
        }
catch(...)
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
    vMSWord.OlePropertySet("Visible", true);
    vReadOnly = true; // lecture seule
 
    vFileName = "C:\Documents and Settings\Manu\Mes documents\C++ buikder\Anniv v3\Aide\Aide.doc";
    vWDocuments = vMSWord.OlePropertyGet("Documents");
    vWDocument = vWDocuments.OleFunction("Open", vFileName,vReadOnly);

[pottiez]

Salut,
déjà il y a une erreur dans ton chemin de fichier, tes antislash doivent être doublé pour que ça fonctionne :

Code :

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

vFileName = "C:\\Documents and Settings\\Manu\\Mes documents\\C++ buikder\\Anniv v3\\Aide\Aide.doc";

[manworms2]

D'accord le problème venait de la merci
Dernière question comment récupérer le chemin de l exécutable pour le placer dans le FileName.
Pour le jour on j installerai le programme sur un autre PC ou le chemin sera différent.

merci

[pottiez]

La réponse est dans la FAQ : http://cpp.developpez.com/faq/bcb/?p...oireexecutable

[manworms2]

j ai le message Type de variable incorrect . pourtant le chemin est bon je l ai tester dans un edit .

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
    AnsiString RepertoireApplication = ExtractFilePath(Application->ExeName);
    AnsiString CheminAide = (ExtractFilePath(Application->ExeName)+"Aide\\Aide.doc");
try
        {
 
    vMSWord = Variant::CreateObject("Word.Application");
        }
catch(...)
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
    vMSWord.OlePropertySet("Visible", true);
    vReadOnly = false; // lecture seule
 
 
    vFileName = CheminAide;
    vWDocuments = vMSWord.OlePropertyGet("Documents");
    vWDocument = vWDocuments.OleFunction("Open", vFileName,vReadOnly);

[sat83]

Code :

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

vFileName = StringToOleStr( CheminAide );

[pottiez]

Tu l'as à quel moment ? en exécution ou à la compilation ? sur quel ligne précisément ?