1. #1
    Membre régulier
    Homme Profil pro
    Inscrit en
    mai 2012
    Messages
    487
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : mai 2012
    Messages : 487
    Points : 106
    Points
    106

    Par défaut 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 : 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

  2. #2
    Membre régulier
    Homme Profil pro
    Inscrit en
    mai 2012
    Messages
    487
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : mai 2012
    Messages : 487
    Points : 106
    Points
    106

    Par défaut

    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 n'est plus valide

  3. #3
    Membre régulier
    Homme Profil pro
    Inscrit en
    mai 2012
    Messages
    487
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : mai 2012
    Messages : 487
    Points : 106
    Points
    106

    Par défaut

    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

Discussions similaires

  1. Récupérer valeur champ formulaire dans une variable
    Par majudis dans le forum VBA Access
    Réponses: 3
    Dernier message: 28/05/2016, 08h15
  2. [XL-2010]Récupérer valeur champ formulaire dans une variable
    Par sasafca dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 22/04/2013, 10h58
  3. Récupérer valeur champs formulaire en PHP sur la meme page
    Par ingeniomatique dans le forum JavaScript
    Réponses: 5
    Dernier message: 12/06/2011, 15h43
  4. code pour récupérer valeur du formulaire fck
    Par ideal23 dans le forum Débuter
    Réponses: 6
    Dernier message: 17/02/2011, 18h38
  5. Récupérer valeur champs de formulaire dynamique
    Par antillejj dans le forum ASP
    Réponses: 1
    Dernier message: 22/12/2006, 07h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo