Mise à jour de liaison avec Text Box [Résolu]

[MrCarma]

Bonjour à Tous,

J'avais trouver mon bonheur dans les pages du Forums mais une autres question c'est poser à moi.
Tout d'abord j'utilise Word XP/2003.
Et voici le code que j'ai trouvé :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Sub AutomatisedLink()
Dim fld As Field
Dim stTemp As String
 
For Each fld In ActiveDocument.Fields
    stTemp = fld.Code
    stTemp = Replace(stTemp, "Affaires", "Ventes")
    Debug.Print "stTemp = " & stTemp & vbCrLf
 
 
    fld.Code.Text = stTemp
    Debug.Print fld.Code
Next fld
 
End Sub

j'aimerai en faite créer une texte box au lancement de la MACRO qui rempli une variable pour que "vente" écrite en dur dans la macro soit remplacer par une variable VarVentes par exemple.

J'ai essayé différente texte Box sans succès, mais je pense aussi que c'est surtout un manque de connaissance dans l'utilisation

Donc si vous pouviez m'aider s'il vous plaît

Cordialement,

[J.Michel]

Bonjour,

En partant du principe que ta textbox s'appelle TextBox1 et qu'elle est déjà saisie lorsque tu lance ta macro tu peux essayer ça:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub AutomatisedLink()
Dim fld As Field
Dim stTemp As String
Dim stVarVente as string
 
stVarVente = TextBox1.Value
For Each fld In ActiveDocument.Fields
    stTemp = fld.Code
    stTemp = Replace(stTemp, "Affaires", stVarVente)
    Debug.Print "stTemp = " & stTemp & vbCrLf
 
 
    fld.Code.Text = stTemp
    Debug.Print fld.Code
Next fld
 
End Sub

[MrCarma]

Merci de ton aide ....
Tu m'as mis sur la voie j'ai remplacé Text Box par Inputbox pour que ca fasse ce que je veux et ca marche...
Genial