Modifier label Word depuis excel

Version imprimable

09/07/2013, 15h30
jojo86

Modifier label Word depuis excel

Bonjour,
Je voudrais pouvoir modifier plusieurs labels présents dans un fichier word.
J'ai recherché plusieurs méthodes, mais je n'arrive pas à trouver la bonne solution.

Si sur mon document word j'ai un label : LabelTest je veux pouvoir modifier la valeur Caption.

J'arrive à ouvrir le document word, mais je ne trouve pas le moyen d'atteindre les controles.

Merci beaucoup de votre aide.

Cordialement,

Jojo
09/07/2013, 16h01
lelensois16

Bjr,

Ce cours vous sera utile ...
Cdt

Bonjour,

Une piste avec le code suivant à tester dans Word

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub aa()
Dim S As InlineShape
Dim L As MSForms.Label
For Each S In ActiveDocument.InlineShapes
  On Error Resume Next
  If S.OLEFormat.ClassType = "Forms.Label.1" Then
    If Err = 0 Then
      Set L = S.OLEFormat.Object
      With L
        MsgBox L.Caption  'pour visualiser (à virer)
        L.Caption = "zaza"
      End With
    Else
      Err.Clear
    End If
  End If
Next S
End Sub

Si vous voulez utiliser ce code à partir d'Excel, il faudra recourir à l'automation avec GetObject (etc)