Discussion :

[Kestion100]

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 :

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

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

[Kestion100]

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

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
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 :

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

Code128$

n'est plus valide

[Kestion100]

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

Code :

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

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