[Déplacé VB6 --> VBA] Probleme de récuperation dynamique de nom sur des signets [Résolu]
thiefr3
Messages postés mercredi 5 mai 2010Date d'inscription
5 mai 2010
Dernière intervention
-
5 mai 2010 à 11:20 - Dernière réponse : thiefr3
Messages postés mercredi 5 mai 2010Date d'inscription
5 mai 2010
Dernière intervention
- 5 mai 2010 à 18:38
Je suis en train de faire une macro qui est appelée après chaque passage dans une liste déroulante d'un formulaire et qui vérifie si l'on a choisi un certain champ dans la liste déroulante.
Pour accéder au nom du formulaire courant et/ou sa valeur, j'utilise :
ActiveDocument.FormFields(nom du formulaire).Result ( ou .Name )
Le problème est que la macro ne fonctionne du coup que pour un seul formulaire, vu que le nom est écrit en dur.
Sauriez-vous me dire comment récupérer dynamiquement le nom du signet courant qui appelle la macro ?
Sub Demo()
Dim MonObjet As FormField, TheType As String
'pour chaque objet de type FormField de la collection "FormFields"
For Each MonObjet In ActiveDocument.FormFields
'si la selection est dans la zone "Range" de mon objet
If Selection.InRange(MonObjet.Range) = True Then
'si le nom est vide
If MonObjet.Name = "" Then
Select Case MonObjet.Type
Case wdFieldFormTextInput
TheType = "TextBox"
Case wdFieldFormDropDown
TheType = "DropDown"
Case wdFieldFormCheckBox
TheType = "CheckBox"
End Select
MsgBox "ce formulaire de type: " & TheType & " n'a pas de nom !"
Else 'comme tout est ok(le nom n'est pas vide, c'est bon objet) le nom de l'objet est renvoyé ici
MsgBox MonObjet.Name
End If
End If
Next
End Sub
je n'ai pas trouvé plus simple... mais je ne dit pas qu'il n'y a pas plus simple.
ActiveDocument.FormFields est du VBA word donc cela doit être word
Mais même en sachant cela je n'ai rien compris à la question
Y aurait-il plusieurs formulaire ?
quel rapport y a t'il entre un signet et un formulaire ?
Ta macro est-elle classifiée TOP SECRET !
Une boule de cristal sa coute la peau du Q c'est pour cela que sur CS y en a qu'une et la elle pas dispo car en réparation
Ben ouai elle est vachement mise à contribution ici
thiefr3
Messages postés mercredi 5 mai 2010Date d'inscription
5 mai 2010
Dernière intervention - 5 mai 2010 à 13:04
0
Merci
Je vais essayer d'être plus clair
Il s'agit en effet de Word 2000
Mon document contient des options de champ : liste déroulante.
Donc quand le document est verrouillé et que je clique sur mon champ, j'ai donc mes divers choix. Après ce choix, j'appelle une macro qui vérifie quel champ a été sélectionné. Si un certain champ est appelé je veux qu'un message d'alerte apparaisse dans un MsgBox.
exemple de message : "Dans le formulaire X, votre choix n'est pas valide"
Mon problème est que ce X, je n'arrive pas à le récupérer de façon dynamique pour que la macro fonctionne avec n'importe quel formulaire. En gros je voudrais récupérer le nom du formulaire qui appelle la macro.
a aidé 100 internautes ce mois-ci