Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 12/04/2007, 11h52   #1
Invité de passage
 
Inscription : juin 2006
Messages : 10
Détails du profil
Informations forums :
Inscription : juin 2006
Messages : 10
Points : 3
Points : 3
Par défaut [VBA-W]récuperer le signet d'un champ texte

hello,

J'ai un formulaire word, dans lequel j'ai plusieur champs texte. Quand on clique dessus une macro est lancée et donne le choix d'inserer un nom via une liste déroulant. On sélection le nom et il est automatiquement mis dans le champs text.

J'aimerais au moment que je clique sur mon champ text récupérer son signet dans une variable.
Car j'utilise le signet pour affecter le nom selectionner dans le bon champ text.

voici mon code. le signet utilisé et "text6"

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Cmdclose_Click()
Unload Me
End Sub
 
Private Sub ComboBox1_Change()
ActiveDocument.FormFields("text6").Result = ComboBox1.Value
End Sub
 
Private Sub CommandButton1_Click()
frmcombo.Close() = 1
End Sub
 
Private Sub UserForm_Initialize()
 
ComboBox1.ColumnCount = 1
ComboBox1.List() = Array("zero", "un")
End Sub
Merci de votre aide.
bijour est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 12/04/2007, 14h33   #2
Inactif
 
Avatar de ouskel'n'or
 
Inscription : février 2005
Messages : 12 466
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 12 466
Points : 11 930
Points : 11 930
Pour récupérer le nom du signet
Code :
    NomChamp = ActiveDocument.Bookmarks(Selection.BookmarkID).Name
ouskel'n'or est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 12/04/2007, 15h08   #3
Invité de passage
 
Inscription : juin 2006
Messages : 10
Détails du profil
Informations forums :
Inscription : juin 2006
Messages : 10
Points : 3
Points : 3
Citation:
Envoyé par ouskel'n'or
Pour récupérer le nom du signet
Code :
    NomChamp = ActiveDocument.Bookmarks(Selection.BookmarkID).Name
Merci cela fonctionne super bien
bijour est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 13h22.


 
 
 
 
Partenaires

Hébergement Web