Discussion :

[Johakr]

Bonjour,

J'ai lu cette discussion et j'ai moi-même besoin d'aide pour piloter Word.

Depuis Excel, j'aimerais sélectionner (.Follow) un certain champ dans la table des matières afin d'arriver directement à la page voulue.

J'ai déjà écrit ceci :

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 Picture_Click()
 
    Dim NumPicture As String
    Dim appword As Word.Application
 
    NumPicture = Application.Caller
    Set appword = New Word.Application
    Application.DisplayAlerts = True
    appword.ShowMe
    appword.Visible = True
    appword.Documents.Open (ThisWorkbook.Path & "\Document.doc")
 
    Dim Itm As Field
 
    For Each Itm In ActiveDocument
 
 
    Next
 
    appword.Documents.Close
End Sub

Donc c'est bien dans la boucle "For Each" que je suis bloqué car je n'arrive pas à contrôler chaque champ composant la table des matières et encore moins récupérer le numéro du champ afin de le comparer à la variable "NumPicture"

Première fois que j'utilise du word en vba et j'ai un peut de mal je dois dire

Merci à(aux) âme(s) qui voudront bien m'aider !

[Johakr]

J'ai pour finir trouvé comment faire, voici ma 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
Sub Picture_Click()
 
    Dim NumPicture As String
 
 
    NumPicture = Application.Caller
    NumPicture = Mid(NumPicture, 9, 1) & "." & Mid(NumPicture, 10, Len(NumPicture) - 9)
    Set WordApp = New Word.Application
    Application.DisplayAlerts = False
    WordApp.ShowMe
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\" & Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - 4) & ".doc")
 
        WordDoc.Application.Activate
 
        WordDoc.TablesOfContents(1).UseFields = True
 
        For i = 1 To WordDoc.Fields.Count
            If Left(WordDoc.Fields(i).Result.Text, Len(NumPicture)) = NumPicture Then
                WordDoc.Fields(i).DoClick
            End If
        Next
End Sub

A+ sur le fofo