j'ai fait un delestage du sujet précédant car il devenait un peu difficile de s'y retrouver.

Mon probleme :
------------------
Je veux pouvoir récupèrer le contenu des colones dans un document word (format RTF mais cela ne changera pas grand chose) [exemple de document dispo a http://www.jeuxetgains.com/site5/rappo.rtf]. J'ai plusieurs fichiers mais tous dispose des mêmes colonnes avec les même titres. Je veux pouvoir convertir vers une base Access les données que je lis (pour la gestion Delphi vers Access, je n'ai pas de problème).

Mes outils :
-------------
Delphi 4.0 Pro (absence du composant Oleserver.dcu)
Word 2002

Mon code actuel :
--------------------
Il me permet juste d'ouvrir le fichier

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
unit Unit1; 
 
interface 
 
uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls, Comobj, ComCtrls; 
 
type 
TForm1 = class(TForm) 
Button1: TButton; 
Button2: TButton; 
procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
private 
{ Déclarations privées } 
public 
{ Déclarations publiques } 
end; 
 
var 
Form1: TForm1; 
vMSWord : variant ; 
OleApplication :variant; 
vXLWorkbooks, vXLWorkbook : variant ; 
vFileName : AnsiString ; 
vSaveChanges : variant ; 
vSheetName : AnsiString ; 
vWorksheet : variant ; 
vRange, vValue : AnsiString ; 
vCell : variant ; 
vWDocument, vWDocuments : variant; 
T : variant ; 
 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
vMSWord := CreateOleObject('Word.Application.10'); 
vMSWord.Visible := true ; 
vFileName := 'c:\Windows\Bureau\Projet test\test.rtf'; 
vWDocuments := vMSWord.Documents; 
vWDocument := vWDocuments.Open(vFileName); 
end; 
 
end.
[Balise [code] rajoutée par Nono40]