J'ai créer une macro nommée AutoNew dans un modèle de document qui contient
un signet nommé Text1.
Celle-ci ouvre une UserForm qui propose deux OptionButton.
Si le premier est coché le texte "au laboratoire" doit s'afficher à
l'emplacement du signet, si c'est le second le texte "à domicile" doit
s'afficher à l'emplacement du signet et la macro se ferme.
voici le code de la macro:
Sub AutoNew()
'
' AutoNew Macro
' Macro enregistrée le 18/12/2004 par pcop
'
UserForm1.Show
End Sub
et le code de la UserForm:
Private Sub OptionButton1_Click()
If UserForm1.OptionButton1.Value = True Then
Bookmarks("Text1")InsertBefore "au laboratoire"
UserForm1.Hide
End Sub
Private Sub OptionButton2_Click()
If UserForm2.OptionButton2.Value = True Then
Bookmarks("Text1")InsertBefore "à domicile"
UserForm1.Hide
End Sub
Elle ne fonctionne pas.
Quelqu'un connait probablement la solution.