Discussion :

[marti]

Je souhaiterais, dans mon programme VBA sous Excel 2000, lire la valeur d'une cellule contenue dans une table Word. Je sais déjà comment affecter une valeur à une cellule d'une table Word :

Code :

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

1
2
 
AppWord.ActiveDocument.Tables.cell(i,j).Text = "valeur"

Mais comment faire l'opération inverse ?

Merci d'avance

[ouskel'n'or]

Comme tu ne mets pas ton code en entier, je le mets

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
Sub test()
Dim appDoc As Variant
Dim appword As Variant
Dim Result
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set appword = CreateObject("Word.Application")
    DoEvents
    Set appDoc = appword.Documents.Open(Filename:="D:\Doc\Addresse mail Service + invitésl.doc")
    'Replace pour supprimer le caractère de contrôle se trouvant en fin ce cellule
    Result = Replace(appDoc.Tables(1).cell(2, 1), Chr(7), "")
    appword.Visible = False
    MsgBox Result
    appDoc.Close
    Set appDoc = Nothing
    appword.Quit
    Set appword = Nothing
End Sub

Bonne journée

[marti]

merci