Discussion :

[noogatix]

Salut à vous

En VBA, je dois retrouver un tableau dans un document word à partir du titre qui est juste au dessus.

J'aimerai pouvoir récupérer le numero du tableau pour le manipuler avec ActiveDocument.Tables(i).Cell(j, k).Range pour récupérer son contenu.

merci !

[Heureux-oli]

Le titre, tu recherches un mot dans le titre je suppose.

[noogatix]

Bon en fait j'ai résolu mon problème

Voici la solution :

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
 
    Dim Paragraphe As Paragraph
    Dim MyPara As Paragraph
    Dim myTable As Table
    Dim myTitle As String
 
    myTitle = "Mon titre au dessus du tableau que je cherche"
 
    ' Finds the table in the document from the title above
    For Each Paragraphe In ActiveDocument.Paragraphs
        ' Means that the paragraph is numbered, so it's a title
        If Paragraphe.Range.ListFormat.ListValue <> 0 Then
            ' The first title's sentence is logically the name of the title...
            If InStr(Paragraphe.Range.Sentences(1).Text, myTitle) <> 0 Then
                ' Finds the first next paragraph with a table
                Set MyPara = Paragraphe
                Do
                    Set MyPara = MyPara.Next
                Loop While MyPara.Next.Range.Tables.Count = 0
                Exit For
            End If
         End If
    Next
 
    ' ...and here is my table looked for
    MsgBox MyPara.Next.Range.Tables(1).Cell(1, 1).Range