Récupérer la valeur d'un champs de fusion [Résolu]

[petdelascar]

Bonjour, je parviens à inserrer dans word une valeur présente dans un fichier en faisant une macro qui fait une fusion:

Code :

Code :

1
2
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
            , Text:="""ve"""

Maintenant j'aimerai tester cette valeur, si elle est égale à 1, faire quelque chose.

Savez vous comment je peux obtenir cette valeur et faire un if, j'ai tester ce genre de choses sans réussite:

Code :

Code :

If ActiveDocument.Fields(33).Result = 1 Then

[JackOuYA]

Bonjour,

Il suffit de conserver une référence à ton champ :

Code :

1
2
3
4
5
6
 
Dim f As Field
Set f = ActiveDocument.Fields.Add(Selection.Range, wdFieldMergeField, """ve""")
If f.Result.Text = "1" Then
   MsgBox "OK"
End If

Jacques.

[petdelascar]

Et bah merci, ça me sauve ça!