Discussion :

[fredoh]

Bonjour,
je voudrais importer des données, par VBA, présentes dans un document word. Pour cela j'utilise le code suivant, mais il me dit qu'une propriété ou la méthode n'est pas gérée par cet objet.
Le problème est que je n'arrive pas a récupérer le contenu d'une cellule d'un tableau word.
pouvez vous m'aider ?

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
18
19
20
21
 
Public Function ImportWord()
 
Dim progword As Object
Dim sPathFichierWord As String
Dim TbWordTempo
 
 
sPathFichierWord = "D:\Dev\Access\test.doc"
 
Set progword = CreateObject("Word.Application")
progword.Application.Visible = False
 
progword.Documents.Open FileName:=sPathFichierWord
 
Debug.Print progword.ActiveDocument.Table(0).cell(1, 1).Range.Text
progword.Application.Quit
Set progword = Nothing
 
 
End Function

[Invité]

Bonjour

mais il me dit qu'une propriété ou la méthode n'est pas gérée par cet objet.

Où ? Sur quelle ligne ?

Starec

[fredoh]

ah oui pardon, je n'avais pas précisé clairement, il s'agit de la ligne ou je fais reference au contenu de la cellule :

Code :

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

Debug.Print progword.ActiveDocument.Table(0).cell(1, 1).Range.Text

[fredoh]

en fait c'était tout bête, il fallait juste mettre ce code

Code :

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

Debug.Print progword.ActiveDocument.Tables(1).cell(1, 1)

il y avait deux erreurs :

1/ la référence au tableau doit s'effectuer au moyen de la collection (Tables) et non au moyen de l'objet (Table , sans S)
2/ pour accéder au contenu d'une cellule pas besoin d'utiliser une propriété du type Text ou Value, la référence a la cellule (cell (1, 1)) suffit.