Discussion :

[jpp]

Bonjour,

Franchement, je comprends ce qui se passe mais je n'arrive pas à m'en sortir. Voilà ce qui m'arrive : je mets en place une liaison OLE pour ouvrir un document avec Word 2010. Quand je mets le nom du fichier en dur dans le code, ça marche parfaitement ; dès que je mets le nom et le chemin du fichier en variable, j'ai un message d'erreur, soit mémoire insuffisante, soit ne trouve pas le chemin. J'ai essayé de mettre des Quotedstr, de mettre les caractères ascii "39, ça ne marche toujours pas.
Là ça ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
var
vMSWord,vWDocuments,vWDocument:variant;
begin
 //demarrer word
 vMSWord:=CreateOLEObject('Word.Application');
 vMSWord.Visible:=true;
 
 //ouvrir un document word
 vMSWord.Documents.Open('+edit1.text+');
end;

et là ca marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
var
vMSWord,vWDocuments,vWDocument:variant;
begin
 //demarrer word
 vMSWord:=CreateOLEObject('Word.Application');
 vMSWord.Visible:=true;
 
 //ouvrir un document word
 vMSWord.Documents.Open('c:\test\test.docx');
end;

C'est d'autant plus vexant que je suis persuadé que c'est un détail insignifiant. . Mais quand ça veut pas,

[Roland Chastain]

Bonjour !

Cette ligne me semble incorrecte :

Code :

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

1
2
 
 vMSWord.Documents.Open('+edit1.text+');

En supposant que edit1.text contienne un nom de fichier, je crois qu'il faudrait plutôt écrire :

Code :

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

1
2
 
 vMSWord.Documents.Open(edit1.text);

[jpp]

bonjour

effectivement, la ligne n'était pas correcte, cependant, que je mette ceci ou juste edit1.text, ça ne change rien j'ai toujours le même problème. Il semblerait que le serveur variant n'accepte pas les apostrophes qui ne sont pas dans le code.

Code :

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

1
2
 
vMSWord.Documents.Open(edit1.text);

Code :

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

1
2
3
 
nomfichier :=quotedstr(edit1.text);
vMSWord.Documents.Open(nomfichier);

rien n'y fait

[tourlourou]

Compatibilité UTF-8 (Edit.Text) et AnsiString (Open) ? Dans ce cas, utiliser UTF8Decode().

[jpp]

Bonjour,

donc quelque chose comme

Code :

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

1
2
3
4
5
6
7
 
 //demarrer word
 vMSWord:=CreateOLEObject('Word.Application');
 vMSWord.Visible:=true;
 nomfichier:=UTF8Decode(edit1.text);
 //ouvrir un document word
 vMSWord.Documents.Open(nomfichier);

ou alors pas , en tout cas a marche pas

[Roland Chastain]

Et comme ça ?

Code :

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

vMSWord.Documents.Open('"'+edit1.text+'"');

[tourlourou]

Code :

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

1
2
nomfichier:='c:\test\test.docx';
vMSWord.Documents.Open(nomfichier);

fonctionne-t-il ? avec quelles déclarations de types de chaînes ?

[jpp]

merci de votre aide.
bon Roland ça ne fonctionne pas, avec cette syntaxe, le nom de fichier n'est pas reconnu et donc Word s'ouvre et c'est tout.

Tourlourou, Ça ne fonctionne pas, et la on a un message d'erreur du serveur OLE je crois qui dit que la mémoire est insuffisante pour cette opération. chose qui est faux, sinon ça ne marcherait pas en mettant le chemin en dur.

les déclarations sont les suivantes

Code :

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

1
2
3
4
 
 var
vMSWord,vWDocuments,vWDocument,Varian:variant;
nomfichier:ansistring;

en même temps si je mets un string a la place de l'ansistring, c'est exactement la même chose Word s'ouvre et ensuite on a le message (mémoire insuffisante pour cette opération).

je viens de tester en mettant un widestring et la , Ca marche !
du coup, j'essaie et je mets ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 var
vMSWord,vWDocuments,vWDocument:variant;
nomfichier:widestring; 
begin
 //demarrer word
 vMSWord:=CreateOLEObject('word.Application');
 vMSWord.Visible:=true;
 nomfichier:=edit1.text;
 
 //ouvrir un document word
 vMSWord.Documents.Open(nomfichier);

et ça marche aussi !
Merci beaucoup a tous les deux, je vais pouvoir rendre mon projet avec juste quelques jours de retard, mais ça va passer. et Puis je suis content de pouvoir passer à autre chose parce que avec toutes ces histoires de string ça commençait à m'exciter !