Erreur d'exécution '-2147024809 (80070057)'

**phoenix_45** · 29/07/2016, 12h00

Bonjour

Il y a deux ans on m'a donné quelque cours de VBA sous Excel pour m'apprendre à automatiser mon travail. Bien entendu, n'ayant pas trop le temps je n'ai pas pu mettre en pratique ce que j'ai appris.

Je me suis lancé un pari fou de faire en VBA la gestion des ordre de mission et des états de frais des agents de ma structure. Donc j'ai saisi mon code et je rencontre un souci sur mes formulaires lorsque je valide celui-ci : "Erreur d'exécution '-2147024809 (80070057)': Objet spécifié". J'ai essayé de comprendre mais je trouve pas

Si vous pouvez m'aider, ça sera super gentil

Au passage si vous avez des conseils quant à mon code pour l'améliorer je suis preneuse

Merci d'avance

Le fichier en question : (j'ai mis le code plus bas)
Gestion des ordres de mission et états de frais

**antonysansh** · 29/07/2016, 12h41

Bonjour phoenix_45,

A lire : fichier-joint-vos-discussions

Je te conseil plutôt de poster ton code en utilisant la balise code : balise code
Et je suis certain que tu trouveras ici l'aide dont tu as besoin.

**phoenix_45** · 29/07/2016, 12h57

Bonjour, j'ai lu cet article, je pensais bien faire en mettant mon fichier. Enfin peu importe, voici le 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
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
Option Explicit
 
Private Sub CommandButton1_Click()
 
    Dim Plage As Range
    Dim Tbl
    Dim i As Integer
    Dim tailleTableau As Integer
    Dim ligne_a_editer As Integer
    Dim pict As Shape
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Dim j As Byte
    Dim Cell As Range
 
 
 
    'crée un tableau contenant les noms des contrôles où récuperer les valeurs
    Tbl = Array("TextBoxcontrat", "TextBoxrefciril", "TextBoxmotif", "TextBoxdeno", "TextBoxNom", "TextBoxPrenom", "TextBoxGrade", "TextBoxaddadm", "ComboBoxPays", "TextBoxVille", "TextBoxddep", "TextBoxhdep", "TextBoxdret", "TextBoxhret", "TextBoxObs", "TextBoxNPrem", "TextBoxGest", "TextBoxEmail")
 
    ' On recupere la taille du tableau
    tailleTableau = UBound(Tbl) + 1
 
 
    'défini la plage en feuille Missions
    With Worksheets("Missions")
        'plage de A3 à Sx. Les cellules sont sensées être toutes renseignées
        Set Plage = .Range(.Cells(3, 1), .Cells(.Rows.count, tailleTableau).End(xlUp))
 
    End With
 
 
    'décale d'une ligne
    ligne_a_editer = Plage.Rows.count + 1
 
 
    With Plage.Rows(ligne_a_editer)
 
        'boucle pour inscription des valeurs
        For i = 1 To tailleTableau
 
        .Cells(1, i + 1).Value = Me.Controls(Tbl(i - 1)).Text
 
 
 
        Next i
 
    End With
 
 
 
    'Ouverture systématique de la page Missions
    Sheets("Missions").Select
 
    export_donnees_dans_signet_word ligne_a_editer
 
 
    End Sub
 
 
Private Sub CommandButton2_Click()
 
  blnCancel = True
  Me.Hide
 
End Sub
 
 
 
Private Sub Label18_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
 
 'Pays
     With ListBoxPays
 
        .AddItem "France"
        .AddItem "_______________"
        .AddItem "Afghanistan"
        .AddItem "Afrique du Sud"
        .AddItem "Albanie"
        .AddItem "Algérie"
        .AddItem "Allemagne"
        .AddItem "Andorre"
        .AddItem "Arabie saoudite"
        .AddItem "Argentine"
        .AddItem "Arménie"
        .AddItem "Australie"
        .AddItem "Autriche"
        .AddItem "Azerbaïdjan"
        .AddItem "Bahamas"
        .AddItem "Bahreïn"
        .AddItem "Bangladesh"
        .AddItem "Barbade"
        .AddItem "Belgique"
        .AddItem "Belize"
        .AddItem "Bénin"
        .AddItem "Biélorussie"
        .AddItem "Birmanie"
        .AddItem "Bolivie"
        .AddItem "Bosnie -Herzégovine"
        .AddItem "Botswana"
        .AddItem "Brésil"
        .AddItem "Bulgarie"
        .AddItem "Burkina Faso"
        .AddItem "Burundi"
        .AddItem "Cambodge"
        .AddItem "Cameroun"
        .AddItem "Canada"
        .AddItem "Centrafrique"
        .AddItem "Chili"
        .AddItem "Chine"
        .AddItem "Chypre"
        .AddItem "Colombie"
        .AddItem "Comores"
        .AddItem "Corée du Nord"
        .AddItem "Corée du Sud"
        .AddItem "Costa Rica"
        .AddItem "Côte d'Ivoire"
        .AddItem "Croatie"
        .AddItem "Cuba"
        .AddItem "Danemark"
        .AddItem "Djibouti"
        .AddItem "Égypte"
        .AddItem "Émirats arabes unis"
        .AddItem "Équateur"
        .AddItem "Érythrée"
        .AddItem "Espagne"
        .AddItem "Estonie"
        .AddItem "États -Unis"
        .AddItem "Éthiopie"
        .AddItem "Fidji"
        .AddItem "Finlande"
        .AddItem "France"
        .AddItem "Gabon"
        .AddItem "Gambie"
        .AddItem "Géorgie"
        .AddItem "Ghana"
        .AddItem "Grèce"
        .AddItem "Guatemala"
        .AddItem "Guinée"
        .AddItem "Guinée équatoriale"
        .AddItem "Guinée -Bissau"
        .AddItem "Guyana"
        .AddItem "Haïti"
        .AddItem "Honduras"
        .AddItem "Hongrie"
        .AddItem "Inde"
        .AddItem "Indonésie"
        .AddItem "Irak"
        .AddItem "Iran"
        .AddItem "Irlande"
        .AddItem "Islande"
        .AddItem "Italie"
        .AddItem "Jamaïque"
        .AddItem "Japon"
        .AddItem "Jordanie"
        .AddItem "Kazakhstan"
        .AddItem "Kenya"
        .AddItem "Kirghizistan"
        .AddItem "Koweït"
        .AddItem "Laos"
        .AddItem "Lettonie"
        .AddItem "Liban"
        .AddItem "Libéria"
        .AddItem "Libye"
        .AddItem "Liechtenstein"
        .AddItem "Lituanie"
        .AddItem "Luxembourg"
        .AddItem "Macédoine"
        .AddItem "Madagascar"
        .AddItem "Malaisie"
        .AddItem "Malawi"
        .AddItem "Maldives"
        .AddItem "Mali"
        .AddItem "Malte"
        .AddItem "Maroc"
        .AddItem "Mauritanie"
        .AddItem "Mexique"
        .AddItem "Moldavie"
        .AddItem "Monaco"
        .AddItem "Mongolie"
        .AddItem "Monténégro"
        .AddItem "Mozambique"
        .AddItem "Népal"
        .AddItem "Nicaragua"
        .AddItem "Niger"
        .AddItem "Nigeria"
        .AddItem "Norvège"
        .AddItem "Nouvelle-Zélande"
        .AddItem "Oman"
        .AddItem "Ouganda"
        .AddItem "Ouzbékistan"
        .AddItem "Pakistan"
        .AddItem "Panama"
        .AddItem "Papouasie-Nouvelle-Guinée"
        .AddItem "Paraguay"
        .AddItem "Pays -Bas"
        .AddItem "Pérou"
        .AddItem "Philippines"
        .AddItem "Pologne"
        .AddItem "Portugal"
        .AddItem "Qatar"
        .AddItem "République démocratique du Congo"
        .AddItem "République dominicaine"
        .AddItem "République tchèque"
        .AddItem "Roumanie"
        .AddItem "Royaume-Uni"
        .AddItem "Russie"
        .AddItem "Rwanda"
        .AddItem "Salvador"
        .AddItem "Samoa"
        .AddItem "Sao Tomé-et-Principe"
        .AddItem "Sénégal"
        .AddItem "Serbie"
        .AddItem "Seychelles"
        .AddItem "Sierra Leone"
        .AddItem "Singapour"
        .AddItem "Slovaquie"
        .AddItem "Slovénie"
        .AddItem "Somalie"
        .AddItem "Soudan"
        .AddItem "Sri Lanka"
        .AddItem "Suède"
        .AddItem "Suisse"
        .AddItem "Suriname"
        .AddItem "Swaziland"
        .AddItem "Syrie"
        .AddItem "Tadjikistan"
        .AddItem "Tanzanie"
        .AddItem "Tchad"
        .AddItem "Thaïlande"
        .AddItem "Tibet"
        .AddItem "Togo"
        .AddItem "Tonga"
        .AddItem "Trinité-et-Tobago"
        .AddItem "Tunisie"
        .AddItem "Turkménistan"
        .AddItem "Turquie"
        .AddItem "Tuvalu"
        .AddItem "Ukraine"
        .AddItem "Uruguay"
        .AddItem "Vanuatu"
        .AddItem "Venezuela"
        .AddItem "Viêt Nam"
        .AddItem "Yémen"
        .AddItem "Zambie"
        .AddItem "Zimbabwe"
 
        End With
 
 
 End Sub
 
 
 
Sub DoStuff()
UserFormMissions.Show
If UserFormMissions.blnCancel Then
   ' cancel button was pressed
Else
   ' OK button was pressed
End If
 
End 'vide et ferme l'USerForm
 
End Sub
 
 
 
Sub export_donnees_dans_signet_word(ligne_a_editer As Integer)
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim j As Integer
 
Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu
Set WordDoc = WordApp.Documents.Open("\\MERLIN\gestion\MISSIONS\ESPCI\OM.doc") 'Ouvre le document
 
 
WordApp.Visible = True 'False word masqué pendant l'operation
 
'dans le document word, il faut avoir placé des signets aux endroits qu'on veut remplir
'à l'endroit de chaque signet qui se trouve dans le fichier word on va inscrire le contenu des cellules
 
'Noms dans Word des signets
 
'"TexBoxcontrat", "TexBoxrefciril", "TexBoxmotif", "TexBoxdeno", "TexBoxNom", "TexBoxPrenom", "TexBoxGrade",
'"TexBoxaddadm", "LisBoxPays", "TexBoxVille", "TexBoxddep", "TexBoxhdep", "TexBoxdret", "TexBoxhret", "TexBoxObs",
'"TexBoxNPrem", "TexBoxGest", "TexBoxEmail"
 
With WordDoc
    .FormFields("TexBoxcontrat").Result = Worksheets("Missions").Cells(ligne_a_editer, 2)
    .FormFields("TexBoxrefciril").Result = Worksheets("Missions").Cells(ligne_a_editer, 3)
    .FormFields("TexBoxmotif").Result = Worksheets("Missions").Cells(ligne_a_editer, 4)
    .FormFields("TexBoxdeno").Result = Worksheets("Missions").Cells(ligne_a_editer, 5)
    .FormFields("TexBoxNom").Result = Worksheets("Missions").Cells(ligne_a_editer, 6)
    .FormFields("TexBoxPrenom").Result = Worksheets("Missions").Cells(ligne_a_editer, 7)
    .FormFields("TexBoxGrade").Result = Worksheets("Missions").Cells(ligne_a_editer, 8)
    .FormFields("TexBoxaddadm").Result = Worksheets("Missions").Cells(ligne_a_editer, 9)
    .FormFields("LisBoxPays").Result = Worksheets("Missions").Cells(ligne_a_editer, 10)
    .FormFields("TexBoxVille").Result = Worksheets("Missions").Cells(ligne_a_editer, 11)
    .FormFields("TexBoxddep").Result = Worksheets("Missions").Cells(ligne_a_editer, 12)
    .FormFields("TexBoxhdep").Result = Worksheets("Missions").Cells(ligne_a_editer, 13)
    .FormFields("TexBoxdret").Result = Worksheets("Missions").Cells(ligne_a_editer, 14)
    .FormFields("TexBoxhret").Result = Worksheets("Missions").Cells(ligne_a_editer, 15)
    .FormFields("TexBoxObs").Result = Worksheets("Missions").Cells(ligne_a_editer, 16)
    .FormFields("TexBoxNPrem").Result = Worksheets("Missions").Cells(ligne_a_editer, 17)
    .FormFields("TexBoxGest").Result = Worksheets("Missions").Cells(ligne_a_editer, 18)
    .FormFields("TexBoxEmail").Result = Worksheets("Missions").Cells(ligne_a_editer, 19)
    '.PrintOut'
    '.Close True si on veut fermer le document word en sauvegardant les données'
End With
 
'WordApp.Visible = True 'affiche le document Word
 
 
 
 
'WordApp.Quit 'ferme la session Word
End Sub

**antonysansh** · 29/07/2016, 12h59

Quelle ligne est en erreur ?

**kiki29** · 29/07/2016, 13h08

Salut, ne pratiquant pas l'extispicine ... Indépendamment de cela : tu mélanges Early et Late Binding

**phoenix_45** · 29/07/2016, 14h14

Envoyé par antonysansh

Quelle ligne est en erreur ?

Code :

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

.Cells(1, i + 1).Value = Me.Controls(Tbl(i - 1)).Text

Envoyé par kiki29

Salut, ne pratiquant pas l'extispicine ... Indépendamment de cela : tu mélanges Early et Late Binding

En fait ma macro me pert d'une part de me faire un tableau de suivi et d'autre part de remplir un formulaire word

Erreur d'exécution '-2147024809 (80070057)'

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager