Discussion :

[Australia]

Bonjour à tous,
voila mon problème,

mon client (adoré) crée des documents Word 2007.
Dans ces documents, il crée des shape (rectangle à bord arrondi) dans lesquels il met des tableaux

je n'arrive pas à accéder par VBA à ces tableaux,
ces tableaux n'apparaissent pas dans

Code :

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

Documents(monFichier).Tables

Quelqu'un a t-il une idée de Comment faire ?

[pgz]

Bonsoir.

Si tu sais trouver les shapes en question, tu peux arriver au tableau avec

Code :

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

MyShape.TextFrame.TextRange.Tables(1)

Par exemple, pour scruter les shapes de premier niveau :

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
Sub toto()
Dim oShp As Word.Shape, oTbl As Word.Table, iFlag As Boolean
 
For Each oShp In ThisDocument.Shapes
    On Error Resume Next
        Set oTbl = oShp.TextFrame.TextRange.Tables(1)
        iFlag = (Err.Number = 0)
    On Error GoTo 0
        If iFlag Then
            'ici, on a un tableau dans shape
            MsgBox oTbl.Cell(1, 1)
        Else
            'ici on a shape sans Tab
            MsgBox "pas de tableau dans " & oShp.Name & "."
        End If
Next oShp
 
 
Set oTbl = Nothing
Set oShp = Nothing
End Sub

EN espérant que cela t'aide,

PGZ

[Heureux-oli]

Salut,

Peut-être un peu plus court.

Code :

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

1
2
3
4
5
6
7
8
Sub TestOli002()
Dim Sh As Shape
 
For Each Sh In ActiveDocument.Shapes
Debug.Print Sh.TextFrame.TextRange.Tables.Count
Next Sh
 
End Sub

[Australia]

Un grand merci avec énormément de retard (désolé)
merci pour les solutions proposées, elles me conviennent