[WD-2003] Recupérer une donnée d'un fichier word !

[oko67]

Bonjour ,

A partir d'un fichier word ouvert, je cherche à récupérer une info dans un autre
fichier word sans afficher ce dernier .
Une idée ?

Merci .

[Heureux-oli]

Salut,

Plein !

Un exemple :

Code :

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
 
Sub OuvrirSansAfficher()
Dim oDoc As Document
Dim stTemp As String
 
 
Application.ScreenUpdating = False
 
Set oDoc = Documents.Add("c:\temp\c.doc")
 
 
 
 
stTemp = oDoc.Bookmarks("S1").Range.Text
 
oDoc.Close savechanges:=False
 
Set oDoc = Nothing
Selection.TypeText stTemp
Application.ScreenUpdating = True
Application.ScreenRefresh
 
 
 
End Sub