[WD-2010] Debutant VBA : Comment creer des signets ?

[Benato]

Tout d'abord bonjour, et merci de vous attarder sur mon cas.

Je dois réaliser un script générateur de contrat en VBA sous word, sauf que je n'ai absolument jamais utilisé le VBA.

En suivant quelques tutos disponibles sur la toile, je suis arrivé à formuler grossomodo ce que je voulais, mais de nombreuses erreurs persistent : je n'arrive pas à créer des signets sur le doc Word.

Ci joint le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
 
 
Option Explicit
Private Sub UserForm_Initialize()
 
 
End Sub
 
Private Sub TextBox1_Change()
 
End Sub
 
Private Sub TextBox2_Change()
 
End Sub
 
Private Sub TextBox3_Change()
 
End Sub
 
Private Sub TextBox4_Change()
 
End Sub
 
Private Sub TextBox5_Change()
 
End Sub
 
Private Sub TextBox6_Change()
End Sub
 
 
Private Sub CommandButton2_Click()
' = Bouton Annuler
' Lui affecter la propriété Cancel à True
' pour bénéficier de la touche Echap (ESC)
Me.Hide
End Sub
 
Private Sub CommandButton1_Click()
' = Bouton OK
 
' Les données de la UserForm :
Dim A As String ' Nom
Dim T As String ' M
Dim B As String ' adresse
Dim C As String ' nir
Dim D As String ' dateeffet
Dim E As String ' heure
Dim F As String ' date
 
 
' 1 - Récupérer les données
 
If Me.OptionButton1 = True Then
      T = "Madame"
Else: T = "Mademoiselle"
End If
 
A = Me.TextBox1.Text
B = Me.TextBox2.Text
C = Me.TextBox3.Text
D = Me.TextBox4.Text
E = Me.TextBox5.Text
F = Me.TextBox6.Text
 
 
 
' 2 - Vérifier la cohérence des données
 
If Me.TextBox1.Value = "" Then
   MsgBox "Il manque des données !!", vbExclamation, "Erreur"
   Exit Sub
End If
 
If Me.TextBox2.Value = "" Then
   MsgBox "Il manque des données !!", vbExclamation, "Erreur"
   Exit Sub
End If
 
If Me.TextBox3.Value = "" Then
   MsgBox "Il manque des données !!", vbExclamation, "Erreur"
   Exit Sub
End If
 
If Me.TextBox4.Value = "" Then
   MsgBox "Il manque des données !!", vbExclamation, "Erreur"
   Exit Sub
End If
 
If Me.TextBox5.Value = "" Then
   MsgBox "Il manque des données !!", vbExclamation, "Erreur"
   Exit Sub
End If
 
If Me.TextBox6.Value = "" Then
   MsgBox "Il manque des données !!", vbExclamation, "Erreur"
   Exit Sub
End If
 
' 3 - Placer les données dans le document
 
ActiveDocument.Bookmark(A).TextFrame.TextRange.Text = "Nom"
ActiveDocument.Bookmark(T).TextFrame.TextRange.Text = "M"
ActiveDocument.Bookmark(B).TextFrame.TextRange.Text = "adresse"
ActiveDocument.Bookmark(C).TextFrame.TextRange.Text = "nir"
ActiveDocument.Bookmark(D).TextFrame.TextRange.Text = "dateeffet"
ActiveDocument.Bookmark(E).TextFrame.TextRange.Text = "heure"
ActiveDocument.Bookmark(F).TextFrame.TextRange.Text = "date"
 
RemplirSignet "Nom", A
RemplirSignet "M", T
RemplirSignet "adresse", B
RemplirSignet "nir", C
RemplirSignet "dateeffet", D
RemplirSignet "heure", E
RemplirSignet "date", F
 
ActiveDocument.Fields.Update ' màj des champs pour le renvoi sur Titre
 
' 4 - Fermer la Userform
 
 
 
Me.Hide
 
 
 
 
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub Label2_Click()
 
End Sub
 
Private Sub Label3_Click()
 
End Sub
 
Private Sub Label4_Click()
 
End Sub
 
Private Sub TextBox7_Change()
 
End Sub
 
Private Sub Label5_Click()
 
End Sub
 
Private Sub Label6_Click()
 
End Sub
 
Private Sub Label7_Click()
 
End Sub

Un grand merci d'avance,

Cordialement

Benato

[Heureux-oli]

Salut,

La création d'un signet est très simple.

Code :

ActiveDocument.Bookmarks.Add Name:="MonSignet", Range:=Selection.Range