[VBA-W] userform sous word [Résolu]

[fmris]

bonjour utilisant vba sous excel je tente de l'utiliser sous word ms la je ne vois pas comment faire correspondre des textbox a des endroitss a moins quil ne faut faire un fichier .dot et dans ce cas comment ca marche ?
merci

[ouskel'n'or]

Sélectionne tes "endroits" l'un après l'autre, colle-leur un signet
Menu Insertion -> Signet -> Tu mets un nom.
Ensuite, pour récupérer ces endroits dans ton userform, tu fais :

Code :

1
2
    Selection.GoTo What:=wdGoToBookmark, Name:="LeSignet1"
    Textbox1.text  = Selection

A+

[fmris]

peux tu me préciser ou je metz dans l'userform ????

[ouskel'n'or]

Si tu veux afficher ça à l'ouverture de l'userform, mets-le dans

Code :

Private sub Userform_Initialize()

Mets bien Userform et non son nom
A+

[fmris]

jai essaye et ca a pas lair de fonctionner
de ce fait jai mis un bouton "ok" en y inserant ton code et ca fonctionne pas non plus
as tu une autre idee ou c moi qui a mal interprete ton code ?

merci d'avance

[ouskel'n'or]

Pour chaque endroit que tu veux afficher, tu dois insérer un signet avec un nom différent. Tu as fait ça ?
A+

[fmris]

c fait pour les signets mais par contre en l'associant avec un userform ca fonctionne pas

[fmris]

voici le code rentré associé au bouton

Code :

1
2
3
4
5
6
Private Sub CommandButton1_Click()
Dim selection
selection.GoTo What:=wdGoToBookmark, Name:="nom"
TextBox1.Text = selection
Unload UserForm1
End Sub

avec nom étant un signet
Merci

[fmris]

en otant dim selection
lorsque je rentre quelque chose dans la textbox1 et lorsque j'appui sur mon bouton il selectionne le signet mais ne le remplace pas

[fmris]

en fait il suffit d'inverser la derniere ligne

Code :

Selection = Textbox1.text

et la ca marche

[ouskel'n'or]

Oui, mais pour la prochaine fois : A aucun moment tu n'avais précisé que tu souhaitais placer le contenu de la textbox à la place du signet.

comment faire correspondre des textbox a des endroitss

Plutôt ambiguë la demande