OVH Cloud OVH Cloud

Utilisation d'un UserForm

1 réponse
Avatar
jdel5
Bonjour,
J'essaie toujours de créer une macro qui permette de remplir une page Word
en écrivant à des endroits définis le contenu de TextBox apparaissant dans
un UserForm qui s'ouvre avec le fichier.
J'ai défini un signet que j'ai appelé tutu et j'arrive maintenant à mettre
le point d'insertion là où je veux avec
Selection.GoTo What:=wdGoToBookmark, Name:="Tutu"
mais je ne trouve pas de moyen pour écrire le contenu de la TextBox.
J'ai essayé :
Selection.GoTo What:=wdGoToBookmark, Name:="Tutu"
Selection.InsertAfter TextBox1.Value (ça plante ici, erreur 424, objet
requis)
Ou bien :
Selection.GoTo What:=wdGoToBookmark, Name:="Tutu"
'Selection = TextBox1.Text (pareil)
J'ai essayé également de déclarer en variable le contenu de ma TextBox
Dim Toto As String
Set Toto = TextBox1.Value (ça plante ici, erreur de compilation, objet
requis)
Selection.GoTo What:=wdGoToBookmark, Name:="Tutu"
Selection.TypeText Text:=Toto
J'ai essayé également de remplir la propriété ControlSource de la TextBox
avec le nom du signet mais ça ne marche pas (Dans Excel, il suffit de mettre
l'adresse de la cellule.)
Il faudrait que je comprenne comment il faut faire car ça m'a l'air un peu
différent d'Excel.
Nota, je travaille sur Word 97 avec Windows 98 ou NT4
Je nai rien trouvé sur le site http://faq.ms.word.free.fr/ relatif aux
UserForm
Merci de bien vouloir me donner encore un petit coup de pouce
Jean-Pierre

1 réponse

Avatar
Rémi
Bonjour

Esais le code

Selection.GoTo What:=wdGoToBookmark, Name:="Tutu
Selection.TypeText TextBox1.Valu

Cordialement

Rémi

----- jdel5 wrote: ----

Bonjour
J'essaie toujours de créer une macro qui permette de remplir une page Wor
en écrivant à des endroits définis le contenu de TextBox apparaissant dan
un UserForm qui s'ouvre avec le fichier
J'ai défini un signet que j'ai appelé tutu et j'arrive maintenant à mettr
le point d'insertion là où je veux ave
Selection.GoTo What:=wdGoToBookmark, Name:="Tutu
mais je ne trouve pas de moyen pour écrire le contenu de la TextBox
J'ai essayé
Selection.GoTo What:=wdGoToBookmark, Name:="Tutu
Selection.InsertAfter TextBox1.Value (ça plante ici, erreur 424, obje
requis
Ou bien
Selection.GoTo What:=wdGoToBookmark, Name:="Tutu
'Selection = TextBox1.Text (pareil
J'ai essayé également de déclarer en variable le contenu de ma TextBo
Dim Toto As Strin
Set Toto = TextBox1.Value (ça plante ici, erreur de compilation, obje
requis
Selection.GoTo What:=wdGoToBookmark, Name:="Tutu
Selection.TypeText Text:=Tot
J'ai essayé également de remplir la propriété ControlSource de la TextBo
avec le nom du signet mais ça ne marche pas (Dans Excel, il suffit de mettr
l'adresse de la cellule.
Il faudrait que je comprenne comment il faut faire car ça m'a l'air un pe
différent d'Excel
Nota, je travaille sur Word 97 avec Windows 98 ou NT
Je nai rien trouvé sur le site http://faq.ms.word.free.fr/ relatif au
UserFor
Merci de bien vouloir me donner encore un petit coup de pouc
Jean-Pierr