Discussion :

[holly8004]

Bonjour,
J'ai un contrôle de contenu où j'ai mis dans nom complet "Test1", "Test2" et dans valeur "1-", "2-".
Je souhaiterai enregistrer sous avec la valeur, mais quand je mets le code : .Name = ActiveDocument.ContentControls.Item(2).Range cela me met le nom complet au lieu de la valeur.
Je n'arrive pas à trouver. Pourriez-vous svp m'aider ?

[E KERGRESSE]

Bonjour,

Quand vous lancez ce code, que donnent les msgbox ?

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
 
Sub Test()
 
Dim I As Integer
Dim WdDoc As Document
 
    Set WdDoc = ActiveDocument
    With WdDoc
         If .ContentControls.Count > 0 Then
            For I = 1 To .ContentControls.Count
                With .ContentControls(I)
                     MsgBox .Title & " : " & .Range.Text
                End With
            Next I
         End If
    End With
    Set WdDoc = Nothing
 
End Sub

Nb : Vous ne m'avez pas répondu dans votre discussion précédente.

[holly8004]

Bonjour,

ça met "Test 1" et pas "1-".
Je ne vous ai pas répondu dans la discussion précédente, car je n'avais pas fait assez de tests avec combobox et que je ne comprenais pas son fonctionnement.

[E KERGRESSE]

Regardez le fonctionnement de ce fichier :

[holly8004]

Merci pour le fichier mais ce n est pas exactement ce que je souhaite faire.
Jai ajouté dans le fichier un exemple

[E KERGRESSE]

Ce ne serait pas plus simple avec une combobox ?

[holly8004]

Sûrement ! Je suis en train de re essayer avec un combo box. J'ai réussi à lui ajouter une liste via une macro.reste à trouver comment afficher une valeur selon une autre. Je suis en train de revoir votre premier fichier. D'ailleurs je ne comprends pas comment il fonctionne il n y a pas de macro.

[holly8004]

Je viens de trouver la macro 😁

[E KERGRESSE]

Rajoutez cette macro dans le module ThisDocument pour charger la combo à l'ouverture. La combobox s'appelle ComboBoxTest

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
 
Private Sub Document_Open()
 
Dim ControleEnCours As InlineShape
 
    For Each ControleEnCours In ActiveDocument.InlineShapes
        If ControleEnCours.Type = wdInlineShapeOLEControlObject Then
             Select Case ControleEnCours.OLEFormat.ClassType
                    Case "Forms.ComboBox.1" '"Forms.ListBox.1", "Forms.Label.1", "Forms.TextBox.1"
                         With ControleEnCours.OLEFormat.Object
                              If .Name = "ComboBoxTest" Then
                                    .AddItem "Test1"
                                    .AddItem "Test2"
                             End If
                        End With
            End Select
     End If
    Next
 
End Sub

Dans ThisDocument également, ajoutez cet événement :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBoxTest_Change()
 
       Select Case ComboBoxTest.Value
              Case "Test1"
                   MsgBox "1-"
              Case "Test2"
                   MsgBox "2-"
       End Select
 
End Sub

[holly8004]

Je ne souhaite pas un msg box mais mettre dans mon nom de fichier mais avec toutes les explications fournies et votre fichier, je vais peut-être pouvoir me débrouiller et prendre le combobox 2 pour le mettre dans le titre du fichier Word. Je continuerai demain soir. Merci encore pour votre aide !

[E KERGRESSE]

Les msgbox ne sont là que pour illustrer le résultat, il vous suffit de mettre le résultat dans une variable string. Bon courage.