Récupérer valeur champ formulaire pour un code barre

Version imprimable

10/10/2017, 12h08
Kestion100

Récupérer valeur champ formulaire pour un code barre

Bonjour,
Je souhaite réutiliser les valeurs que des utilisateurs auront renseignées dans un champ dans un code barre mais n'y parviens pas.

J'ai essayé par l'enregistrement de macro mais ça bloc au moment de l'ouverture des propriétés du code barre.
J'ai essayé de bidouiller du code pour reprendre:

Code:

ActiveDocument.FormFields("NOM").Result

et donner cette valeur au code barre que j'ai créé mais je sèche complètement.

Le but est que la valeur renvoyée quand je scanne mon code barre soit actualisée après que l'utilisateur est inscrit son nom dans le champ "NOM" et soit ce nom justement.

Quelqu'un pourrait-il me passer un coup de main s'il vous plaît.

MERCI

J'ai essayé de m'inspirer de ce code...:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub transform()
 
' sélection de la zone de texte (à définir avant)
    ActiveDocument.Shapes("Text Box 2").Select
 
' recherche du signet (=ligne à coder sans le retour chariot / à définir avant)
    Selection.GoTo What:=wdGoToBookmark, Name:="signetCB"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
 
' application de la macro de grandzebu
    Selection.Range.Text = Code128$(Selection.Range.Text)
 
' Double application de la police code 128 et modification de la taille des caractères (sélectionner la bonne zone de texte!)
    ActiveDocument.Shapes("Text Box 2").Select
    Selection.Font.Name = "Code 128"
    Selection.Font.Name = "Code 128"
    Selection.Font.Size = 40
 
End Sub

Mais je n'arrive à rien et le lien vers

Code:

Code128$

n'est plus valide

Je pensais partir de quelque chose comme ceci à la base:
Code:

1 2 3 Private Sub EnvBCode1_GotFocus() EnvBCode1.Value = ActiveDocument.FormFields("NOM").Result End Sub