IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

Combobox : valeur et texte différente et utiliser la valeur pour le mettre dans le nom du fichier


Sujet :

VBA Word

  1. #1
    Futur Membre du Club
    Femme Profil pro
    Chef de projet MOA
    Inscrit en
    Février 2024
    Messages
    20
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Chef de projet MOA

    Informations forums :
    Inscription : Février 2024
    Messages : 20
    Points : 8
    Points
    8
    Par défaut Combobox : valeur et texte différente et utiliser la valeur pour le mettre dans le nom du fichier
    Bonjour,

    J'ai créé un document avec des textbox, des contrôles de contenus et un combobox. Je souhaiterais que les informations mis dans ces différents champs servent pour le nom du fichier.
    J'ai réussi pour les textbox et les contrôles de contenus mais je ne comprends pas le fonctionnement du combobox.
    D'abord quand je remplis dans les propriétés du combobox la valeur, cela remplit le text et vice-versa, alors que je souhaiterais que le texte soit ce qui soit affiché dans le combobox et que la valeur soit ce qui soit indiqué dans le nom du fichier.
    Pourriez-vous svp m'aider ?

    Pour information, voici mon code pour lequel il manque le combobox car je n'ai pas réussi :
    Private Sub ToggleButton1_Click()

    With Dialogs(wdDialogFileSaveAs)

    .Name = ActiveDocument.ContentControls.Text(3).Range & " -" & ActiveDocument.ContentControls.Item(1).Range & " -" & TextBox1 & " -" & ActiveDocument.ContentControls.Item(2).Range & " -" & TextBox2 & "€" & " -" & TextBox3 & " -" & TextBox4
    .Format = wdFormatXMLDocument
    .Show
    End With
    ActiveDocument.ContentControls(1).Range.Text = ""
    End Sub

  2. #2
    Membre confirmé
    Homme Profil pro
    Auto entrepreneur
    Inscrit en
    Décembre 2021
    Messages
    351
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Auto entrepreneur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Décembre 2021
    Messages : 351
    Points : 552
    Points
    552
    Par défaut
    Bonjour,

    Il aurait été plus simple d'avoir un fichier exemple pour vous répondre.

    Dans le fichier joint, je ne réponds pas directement à votre question, je vous montre seulement comment récupérer le contenu d'une combobox dans un textbox.

    En changeant la valeur de la 2ème combobox, regardez comment se remplit le textbox.

    Nom : Capture.JPG
Affichages : 41
Taille : 8,3 Ko


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    Private Sub ComboBoxNiveau2_Change()
     
            With ComboBoxNiveau2
                 If .ListIndex > -1 Then
                    TextBox1 = .Value
                 Else
                   TextBox1 = ""
                 End If
     
            End With
     
    End Sub
    Fichiers attachés Fichiers attachés

  3. #3
    Futur Membre du Club
    Femme Profil pro
    Chef de projet MOA
    Inscrit en
    Février 2024
    Messages
    20
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Chef de projet MOA

    Informations forums :
    Inscription : Février 2024
    Messages : 20
    Points : 8
    Points
    8
    Par défaut
    Bonjour,

    Merci pour votre retour, mais je ne souhaite pas mettre un combobox dans un textbox.
    Je souhaite récupérer la valeur du combobox pour le mettre dans le nom du document Word.
    Et le 1er souci que je rencontre c'est que lorsque je remplis dans les propriétés du combobox le texte cela écrase la valeur.

  4. #4
    Membre confirmé
    Homme Profil pro
    Auto entrepreneur
    Inscrit en
    Décembre 2021
    Messages
    351
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Auto entrepreneur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Décembre 2021
    Messages : 351
    Points : 552
    Points
    552
    Par défaut
    J'ai pris cet exemple pour vous montrer comment récupérer la valeur d'une combobox. Peu importe que la valeur récupérée soit dans un textbox ou non.

    Je n'ai pas compris ce que vous essayez de faire avec cette phrase :

    Et le 1er souci que je rencontre c'est que lorsque je remplis dans les propriétés du combobox le texte cela écrase la valeur.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Python 2.X] Extraire des valeurs d'un fichier texte pour les mettre dans une matrice
    Par nekcorp dans le forum Général Python
    Réponses: 12
    Dernier message: 22/04/2016, 17h01
  2. Réponses: 2
    Dernier message: 30/01/2012, 10h40
  3. valeur d'une variable dans un nom de fichier
    Par g.abdou dans le forum VBScript
    Réponses: 7
    Dernier message: 24/06/2010, 12h16
  4. Faut-il utiliser des underscores ou des espaces dans les noms des fichiers ?
    Par Invité dans le forum Général Conception Web
    Réponses: 1
    Dernier message: 07/05/2008, 19h23
  5. Réponses: 6
    Dernier message: 29/03/2007, 10h31

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