WORD 2016 - Ajustement autoatique hauteur Formield ActiveX

**Theboobasparks** · 05/09/2023, 13h36

Bonjour à tous,

Je cherche à ajuster automatiquement la hauteur d'une zone de texte contrôle ActiveX en ayant une largeur fixe.

Comme trouvé sur internet, j'ai défini l'option Multiline sur True et défini le paramètre Widht à la largeur souhaité.

J'ai également essayé de jouer avec le paramètre Autosize sur True mais le résultat est pire encore. La largeur indiquée n'est plus prise en compte.

Quelqu'un aurais l'amabilité de m'orienter à ce sujet?

D'avance merci pour votre aide.

Excellente journée.

Michael.

**E KERGRESSE** · 07/09/2023, 03h37

Bonjour,

Je n'ai pas vu de propriété permettant d'ajuster automatiquement la hauteur d'un contrôle textbox.

Cependant en utilisant un événement de type MouseDown, à placer dans le module ThisDocument, vous pourriez modifier cette hauteur sur clic gauche ou droit de la souris.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
     With TextBox1
          If Button = vbKeyLButton Then .Height = .Height + 10
          If Button = vbKeyRButton Then .Height = .Height - 10
     End With
 
End Sub

**jurassic pork** · 08/09/2023, 06h52

Hello,

Envoyé par Theboobasparks

Je cherche à ajuster automatiquement la hauteur d'une zone de texte contrôle ActiveX en ayant une largeur fixe.

Tu es dans un formulaire ou sur une page Word ? Parce que sur une page Word on peut ajuster avec l'option Ajuster la forme au texte :
Nom : AdjustTextBox.gif
Affichages : 37
Taille : 299,6 Ko

Nom : AdjustTextBox.gif
Affichages : 37
Taille : 299,6 Ko

Ami calmant, J.P

**Theboobasparks** · 12/09/2023, 08h05

Bonjour,

Merci pour vos réponses.

Effectivement, j'ai donc modifié le type d'objet que j'insère dans Word, ce qui me permets d'ajuster automatiquement la taille avec un Shape "Zone de texte".

Par contre, je rencontre désormais un autre problème.

Pour remplir ce document Word qui comporte plusieurs FormFields et ce Shape, j'utilise mon application Excel.

A partir du moment ou je souhaite remplir également cette nouvelle zone, l'ensemble des FormFields ne se remplissent plus automatiquement et je ne comprends par pourquoi. Si j'enlève la partie avec la zone Shape, les FormFields se remplissent.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
 
Private Sub CommandButton16_Click()
Dim objword As Word.Application
Dim LeDocWord As Word.Document
Dim chemin As String
Dim shape As Object
 
Application.ScreenUpdating = False
 
Notificationcompagnie = "Notification compagnie MOU_" & Nomclient_temp & "_" & Prenomclient_temp & "_" & Datenaissance_temp & ".docx"
 
Set FSO = New FileSystemObject
 
chemin = Dossierclient & "\" & Notificationcompagnie
If FSO.FolderExists(Dossierclient) Then
 
UserForm_traitement.Show
 
If FSO.FileExists(Dossierclient & "\" & Notificationcompagnie) Then
 
If FichierEstOuvert(Dossierclient & "\" & Notificationcompagnie) Then
 
Set objword = GetObject(, "Word.Application")
Set LeDocWord = GetObject(chemin)
 
LeDocWord.Application.Activate
LeDocWord.Application.Visible = False
LeDocWord.Application.WindowState = 1
 
Else
 
Set objword = CreateObject("Word.Application")
Set LeDocWord = objword.Documents.Open(chemin)
LeDocWord.Application.Visible = False
 
End If
 
With LeDocWord
 
.FormFields("Datearrivee").Result = Datearrivee_temp
.FormFields("Iatavolaller").Result = Codeiataaller_temp
.FormFields("Numerovolaller").Result = Numerodevolaller_temp
.FormFields("Iataaeroportaller").Result = Iataaeroportaller_temp
.FormFields("Iataaeroporttransit").Result = Iataaeroporttransit_temp
.FormFields("Numeromyabi").Result = Numeromyabi_temp
.FormFields("Dateapprehension").Result = Dateapprehension_temp
.FormFields("Heureapprehension").Result = Heureapprehension_temp
 
If Naturedocument1_temp = "Authentique" Then .CheckBox1.Value = True
If Etablieselon_temp = "déclaration" Then .CheckBox2.Value = True
If Naturedocument1_temp = "Faux documents" Then .CheckBox3.Value = True
If Naturedocument1_temp = "Usurpé / Imposteur" Then .CheckBox4.Value = True
 
If Naturedocument1_temp <> "Authentique" Then .CheckBox1.Value = False
If Etablieselon_temp <> "déclaration" Then .CheckBox2.Value = False
If Naturedocument1_temp <> "Faux documents" Then .CheckBox3.Value = False
If Naturedocument1_temp <> "Usurpé / Imposteur" Then .CheckBox4.Value = False
 
If Naturedocument1_temp = "Authentique" Or Typedocument1_temp = "Démuni(e) de document d'identité" Then
.FormFields("Nom").Result = Nomclient_temp
.FormFields("Prenom").Result = Prenomclient_temp
.FormFields("Datenaissance").Result = Datenaissance_documents_temp
.FormFields("Sexe").Result = Sexe_temp
.FormFields("Nationalite").Result = Nationalite_temp
.FormFields("Typedocument1").Result = Typedocument1_temp
.FormFields("Numerodocument1").Result = Numerodocument1_temp
.FormFields("Valableaudocument1").Result = Valableaudocument1_temp
End If
If Naturedocument1_temp = "Faux documents" Or Naturedocument1_temp = "Usurpé / Imposteur" Then
.FormFields("Nom2").Result = Nomclient_temp
.FormFields("Prenom2").Result = Prenomclient_temp
.FormFields("Datenaissance2").Result = Datenaissance_documents_temp
.FormFields("Sexe2").Result = Sexe_temp
.FormFields("Nationalite2").Result = Nationalite_temp
.FormFields("Typedocument1_2").Result = Typedocument1_temp
.FormFields("Numerodocument1_2").Result = Numerodocument1_temp
.FormFields("Valableaudocument1_2").Result = Valableaudocument1_temp
End If
 
.FormFields("Numerodevolretour").Result = Codeiataretour_temp & Numerodevolretour_temp
.FormFields("Datedepart").Result = Datedepart_temp
.FormFields("Heuredepart").Result = Heuredepart_temp
 
If Aeroprtransitretour_temp = "" Then
.FormFields("Aeroportdestination").Result = Iataaeroportdestination_temp
Else
.FormFields("Aeroportdestination").Result = Iataaeroporttransitretour_temp
End If
 
If LeDocWord.ProtectionType <> wdNoProtection Then
LeDocWord.Unprotect
End If
Set shape = LeDocWord.Shapes("Zone de texte 2")
shape.TextFrame.TextRange.text = Remarquestraduites_temp
If LeDocWord.ProtectionType = wdNoProtection Then
LeDocWord.Protect Type:=wdAllowOnlyFormFields, Password:=""
End If
 
.FormFields("Collaborateur").Result = Matriculegestionnaire
 
End With
 
LeDocWord.Application.Visible = True
 
Set objword = Nothing
Set LeDocWord = Nothing
chemin = ""
 
Unload UserForm_traitement
 
Application.ScreenUpdating = True
 
Exit Sub
 
Else
 
FSO.CopyFile "C:\Users\jordanm\Desktop\Gestion INAD\SEM\Documents INAD\INAD Notification\Gestion INAD_Notification compagnie.docx", Dossierclient & "\"
Name Dossierclient & "\" & "Gestion INAD_Notification compagnie.docx" As Dossierclient & "\" & Notificationcompagnie
On Error Resume Next
Set objword = CreateObject("Word.Application")
Set LeDocWord = objword.Documents.Open(chemin)
LeDocWord.Application.Visible = False
 
With LeDocWord
 
.FormFields("Datearrivee").Result = Datearrivee_temp
.FormFields("Iatavolaller").Result = Codeiataaller_temp
.FormFields("Numerovolaller").Result = Numerodevolaller_temp
.FormFields("Iataaeroportaller").Result = Iataaeroportaller_temp
.FormFields("Iataaeroporttransit").Result = Iataaeroporttransit_temp
.FormFields("Numeromyabi").Result = Numeromyabi_temp
.FormFields("Dateapprehension").Result = Dateapprehension_temp
.FormFields("Heureapprehension").Result = Heureapprehension_temp
 
If Naturedocument1_temp = "Authentique" Then .CheckBox1.Value = True
If Etablieselon_temp = "déclaration" Then .CheckBox2.Value = True
If Naturedocument1_temp = "Faux documents" Then .CheckBox3.Value = True
If Naturedocument1_temp = "Usurpé / Imposteur" Then .CheckBox4.Value = True
 
If Naturedocument1_temp <> "Authentique" Then .CheckBox1.Value = False
If Etablieselon_temp <> "déclaration" Then .CheckBox2.Value = False
If Naturedocument1_temp <> "Faux documents" Then .CheckBox3.Value = False
If Naturedocument1_temp <> "Usurpé / Imposteur" Then .CheckBox4.Value = False
 
If Naturedocument1_temp = "Authentique" Or Typedocument1_temp = "Démuni(e) de document d'identité" Then
.FormFields("Nom").Result = Nomclient_temp
.FormFields("Prenom").Result = Prenomclient_temp
.FormFields("Datenaissance").Result = Datenaissance_documents_temp
.FormFields("Sexe").Result = Sexe_temp
.FormFields("Nationalite").Result = Nationalite_temp
.FormFields("Typedocument1").Result = Typedocument1_temp
.FormFields("Numerodocument1").Result = Numerodocument1_temp
.FormFields("Valableaudocument1").Result = Valableaudocument1_temp
End If
If Naturedocument1_temp = "Faux documents" Or Naturedocument1_temp = "Usurpé / Imposteur" Then
.FormFields("Nom2").Result = Nomclient_temp
.FormFields("Prenom2").Result = Prenomclient_temp
.FormFields("Datenaissance2").Result = Datenaissance_documents_temp
.FormFields("Sexe2").Result = Sexe_temp
.FormFields("Nationalite2").Result = Nationalite_temp
.FormFields("Typedocument1_2").Result = Typedocument1_temp
.FormFields("Numerodocument1_2").Result = Numerodocument1_temp
.FormFields("Valableaudocument1_2").Result = Valableaudocument1_temp
End If
 
.FormFields("Numerodevolretour").Result = Codeiataretour_temp & Numerodevolretour_temp
.FormFields("Datedepart").Result = Datedepart_temp
.FormFields("Heuredepart").Result = Heuredepart_temp
 
If Aeroprtransitretour_temp = "" Then
.FormFields("Aeroportdestination").Result = Iataaeroportdestination_temp
Else
.FormFields("Aeroportdestination").Result = Iataaeroporttransitretour_temp
End If
 
If LeDocWord.ProtectionType <> wdNoProtection Then
LeDocWord.Unprotect
End If
Set shape = LeDocWord.Shapes("Zone de texte 2")
shape.TextFrame.TextRange.text = Remarquestraduites_temp
If LeDocWord.ProtectionType = wdNoProtection Then
LeDocWord.Protect Type:=wdAllowOnlyFormFields, Password:=""
End If
 
.FormFields("Collaborateur").Result = Matriculegestionnaire
 
End With
 
LeDocWord.Application.Visible = True
Set objword = Nothing
Set LeDocWord = Nothing
 
Unload UserForm_traitement
 
Application.ScreenUpdating = True
 
Exit Sub
End If
Else
UserForm_dossierinfocreation.Show
 
Application.ScreenUpdating = True
 
Exit Sub
End If
End Sub

D'avance merci pour votre aide.

Michaël.

**Theboobasparks** · 12/09/2023, 08h58

Je viens de régler le problème de cette manière !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
 
Private Sub CommandButton16_Click()
Dim objword As Word.Application
Dim LeDocWord As Word.Document
Dim chemin As String
Dim shape As Object
 
Application.ScreenUpdating = False
 
Notificationcompagnie = "Notification compagnie MOU_" & Nomclient_temp & "_" & Prenomclient_temp & "_" & Datenaissance_temp & ".docx"
 
Set FSO = New FileSystemObject
 
chemin = Dossierclient & "\" & Notificationcompagnie
If FSO.FolderExists(Dossierclient) Then
 
UserForm_traitement.Show
 
If FSO.FileExists(Dossierclient & "\" & Notificationcompagnie) Then
 
If FichierEstOuvert(Dossierclient & "\" & Notificationcompagnie) Then
 
Set objword = GetObject(, "Word.Application")
Set LeDocWord = GetObject(chemin)
 
LeDocWord.Application.Activate
LeDocWord.Application.Visible = False
LeDocWord.Application.WindowState = 1
 
Else
 
Set objword = CreateObject("Word.Application")
Set LeDocWord = objword.Documents.Open(chemin)
LeDocWord.Application.Visible = False
 
End If
 
If LeDocWord.ProtectionType <> wdNoProtection Then
LeDocWord.Unprotect
End If
Set shape = LeDocWord.Shapes("Zone de texte 2")
shape.TextFrame.TextRange.text = Remarquestraduites_temp
If LeDocWord.ProtectionType = wdNoProtection Then
LeDocWord.Protect Type:=wdAllowOnlyFormFields, Password:=""
End If
 
With LeDocWord
 
.FormFields("Datearrivee").Result = Datearrivee_temp
.FormFields("Iatavolaller").Result = Codeiataaller_temp
.FormFields("Numerovolaller").Result = Numerodevolaller_temp
.FormFields("Iataaeroportaller").Result = Iataaeroportaller_temp
.FormFields("Iataaeroporttransit").Result = Iataaeroporttransit_temp
.FormFields("Numeromyabi").Result = Numeromyabi_temp
.FormFields("Dateapprehension").Result = Dateapprehension_temp
.FormFields("Heureapprehension").Result = Heureapprehension_temp
 
If Naturedocument1_temp = "Authentique" Then .CheckBox1.Value = True
If Etablieselon_temp = "déclaration" Then .CheckBox2.Value = True
If Naturedocument1_temp = "Faux documents" Then .CheckBox3.Value = True
If Naturedocument1_temp = "Usurpé / Imposteur" Then .CheckBox4.Value = True
 
If Naturedocument1_temp <> "Authentique" Then .CheckBox1.Value = False
If Etablieselon_temp <> "déclaration" Then .CheckBox2.Value = False
If Naturedocument1_temp <> "Faux documents" Then .CheckBox3.Value = False
If Naturedocument1_temp <> "Usurpé / Imposteur" Then .CheckBox4.Value = False
 
If Naturedocument1_temp = "Authentique" Or Typedocument1_temp = "Démuni(e) de document d'identité" Then
.FormFields("Nom").Result = Nomclient_temp
.FormFields("Prenom").Result = Prenomclient_temp
.FormFields("Datenaissance").Result = Datenaissance_documents_temp
.FormFields("Sexe").Result = Sexe_temp
.FormFields("Nationalite").Result = Nationalite_temp
.FormFields("Typedocument1").Result = Typedocument1_temp
.FormFields("Numerodocument1").Result = Numerodocument1_temp
.FormFields("Valableaudocument1").Result = Valableaudocument1_temp
End If
If Naturedocument1_temp = "Faux documents" Or Naturedocument1_temp = "Usurpé / Imposteur" Then
.FormFields("Nom2").Result = Nomclient_temp
.FormFields("Prenom2").Result = Prenomclient_temp
.FormFields("Datenaissance2").Result = Datenaissance_documents_temp
.FormFields("Sexe2").Result = Sexe_temp
.FormFields("Nationalite2").Result = Nationalite_temp
.FormFields("Typedocument1_2").Result = Typedocument1_temp
.FormFields("Numerodocument1_2").Result = Numerodocument1_temp
.FormFields("Valableaudocument1_2").Result = Valableaudocument1_temp
End If
 
.FormFields("Numerodevolretour").Result = Codeiataretour_temp & Numerodevolretour_temp
.FormFields("Datedepart").Result = Datedepart_temp
.FormFields("Heuredepart").Result = Heuredepart_temp
 
If Aeroprtransitretour_temp = "" Then
.FormFields("Aeroportdestination").Result = Iataaeroportdestination_temp
Else
.FormFields("Aeroportdestination").Result = Iataaeroporttransitretour_temp
End If
 
.FormFields("Collaborateur").Result = Matriculegestionnaire
 
End With
 
LeDocWord.Application.Visible = True
 
Set objword = Nothing
Set LeDocWord = Nothing
chemin = ""
 
Unload UserForm_traitement
 
Application.ScreenUpdating = True
 
Exit Sub
 
Else
 
FSO.CopyFile "C:\Users\jordanm\Desktop\Gestion INAD\SEM\Documents INAD\INAD Notification\Gestion INAD_Notification compagnie.docx", Dossierclient & "\"
Name Dossierclient & "\" & "Gestion INAD_Notification compagnie.docx" As Dossierclient & "\" & Notificationcompagnie
On Error Resume Next
Set objword = CreateObject("Word.Application")
Set LeDocWord = objword.Documents.Open(chemin)
LeDocWord.Application.Visible = False
 
If LeDocWord.ProtectionType <> wdNoProtection Then
LeDocWord.Unprotect
End If
Set shape = LeDocWord.Shapes("Zone de texte 2")
shape.TextFrame.TextRange.text = Remarquestraduites_temp
If LeDocWord.ProtectionType = wdNoProtection Then
LeDocWord.Protect Type:=wdAllowOnlyFormFields, Password:=""
End If
 
With LeDocWord
 
.FormFields("Datearrivee").Result = Datearrivee_temp
.FormFields("Iatavolaller").Result = Codeiataaller_temp
.FormFields("Numerovolaller").Result = Numerodevolaller_temp
.FormFields("Iataaeroportaller").Result = Iataaeroportaller_temp
.FormFields("Iataaeroporttransit").Result = Iataaeroporttransit_temp
.FormFields("Numeromyabi").Result = Numeromyabi_temp
.FormFields("Dateapprehension").Result = Dateapprehension_temp
.FormFields("Heureapprehension").Result = Heureapprehension_temp
 
If Naturedocument1_temp = "Authentique" Then .CheckBox1.Value = True
If Etablieselon_temp = "déclaration" Then .CheckBox2.Value = True
If Naturedocument1_temp = "Faux documents" Then .CheckBox3.Value = True
If Naturedocument1_temp = "Usurpé / Imposteur" Then .CheckBox4.Value = True
 
If Naturedocument1_temp <> "Authentique" Then .CheckBox1.Value = False
If Etablieselon_temp <> "déclaration" Then .CheckBox2.Value = False
If Naturedocument1_temp <> "Faux documents" Then .CheckBox3.Value = False
If Naturedocument1_temp <> "Usurpé / Imposteur" Then .CheckBox4.Value = False
 
If Naturedocument1_temp = "Authentique" Or Typedocument1_temp = "Démuni(e) de document d'identité" Then
.FormFields("Nom").Result = Nomclient_temp
.FormFields("Prenom").Result = Prenomclient_temp
.FormFields("Datenaissance").Result = Datenaissance_documents_temp
.FormFields("Sexe").Result = Sexe_temp
.FormFields("Nationalite").Result = Nationalite_temp
.FormFields("Typedocument1").Result = Typedocument1_temp
.FormFields("Numerodocument1").Result = Numerodocument1_temp
.FormFields("Valableaudocument1").Result = Valableaudocument1_temp
End If
If Naturedocument1_temp = "Faux documents" Or Naturedocument1_temp = "Usurpé / Imposteur" Then
.FormFields("Nom2").Result = Nomclient_temp
.FormFields("Prenom2").Result = Prenomclient_temp
.FormFields("Datenaissance2").Result = Datenaissance_documents_temp
.FormFields("Sexe2").Result = Sexe_temp
.FormFields("Nationalite2").Result = Nationalite_temp
.FormFields("Typedocument1_2").Result = Typedocument1_temp
.FormFields("Numerodocument1_2").Result = Numerodocument1_temp
.FormFields("Valableaudocument1_2").Result = Valableaudocument1_temp
End If
 
.FormFields("Numerodevolretour").Result = Codeiataretour_temp & Numerodevolretour_temp
.FormFields("Datedepart").Result = Datedepart_temp
.FormFields("Heuredepart").Result = Heuredepart_temp
 
If Aeroprtransitretour_temp = "" Then
.FormFields("Aeroportdestination").Result = Iataaeroportdestination_temp
Else
.FormFields("Aeroportdestination").Result = Iataaeroporttransitretour_temp
End If
 
.FormFields("Collaborateur").Result = Matriculegestionnaire
 
End With
 
LeDocWord.Application.Visible = True
Set objword = Nothing
Set LeDocWord = Nothing
 
Unload UserForm_traitement
 
Application.ScreenUpdating = True
 
Exit Sub
End If
Else
UserForm_dossierinfocreation.Show
 
Application.ScreenUpdating = True
 
Exit Sub
End If
End Sub

Merci à tous.

WORD 2016 - Ajustement autoatique hauteur Formield ActiveX

Word

Discussions similaires

Partager

Partager