Erreur automation vba

**Marilo30** · 16/05/2023, 12h17

Bonjour,

Dans le cadre de mon travail, j'ai un fichier contenant un nombre énormissime de données, que j'essaye de compiler dans un document de présentation à destination de la direction.
Pour ce faire, j'ai une structure identique pour toutes mes pages de présentations ; ainsi, par exemple, la cellule C13 indiquera le montant du personnel quelle que soit la page de présentation à remplir.

Mon fichier était fonctionnel jusqu'à ce que j'essaye de le modifier ce matin. Le souci, c'est qu'à présent, la nouvelle version du document, comme l'ancienne (oui, j'avais pris soin de faire une sauvegarde avant de faire mes modifications), semblent ne plus fonctionner, pour le même code erreur, alors que cela marchait avant. D'ailleurs, cela a marché pendant un temps ce matin, ça a commencé à foirer vers 11h30, sans raison.

Pour récupérer la donnée voulue, je fais référence, dans mon document de présentation à l'autre classeur, qui est ouvert, et à la page sur laquelle aller chercher la donnée.
Du coup, j'ai ceci:

Code :

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

page_comp_pole = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets("FICOM").Index

Et mon code, après, va faire référence à cette valeur, sous la forme suivante:

Code :

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

Sheets(page).Range("C13") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)

Et mon erreur, la voici:
Nom : Erreur.JPG
Affichages : 81
Taille : 17,6 Ko

Que puis-je faire?

Dans le message dessous, je mets mon code complet, pour info.

Merci d'avance pour votre aide.

**Marilo30** · 16/05/2023, 12h17

Et voici mon code, l'erreur ressort en ligne 125, car le premier onglet à remplir commence par "CR":

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
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
Sub presentation()
 
Dim page As Double
Dim page_comp_pole As Double
Dim colonne_comp_pole As Double
Dim ligne_comp_pole As Double
Dim annee As Double
 
Application.DisplayAlerts = False
 
ThisWorkbook.Activate
 
Sheets("CREA EX. 2022").Range("B21") = Year(Date) - 1
 
page = 8
 
Do Until page > Sheets.Count
 
    'Détermine les pages à noms particuliers et la colonne correspondante
    'Les pages regroupant les coûts d'UO LM, MT et LGG sont considérés hors du code suivant, et contiennent des formules
    If Sheets(page).Name = "Laboratoire Biol Reprod" Or Sheets(page).Name = "Laboratoire CRB" Or Sheets(page).Name = "Laboratoires hors Lab Bio & CRB" Then
 
        page_comp_pole = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets("Laboratoires").Index
 
        If Sheets(page).Name = "Laboratoire Biol Reprod" Then
 
            'Cherche le numéro de colonne du Labo de la Reproduction dans la page Laboratoires (évite de faire référence à une colonne qui peut bouger)
            colonne_comp_pole = WorksheetFunction.Match("LABO DE LA REPRODUCTION", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0)
 
        ElseIf Sheets(page).Name = "Laboratoire CRB" Then
 
            'Cherche le numéro de colonne du Labo CRB dans la page Laboratoires (évite de faire référence à une colonne qui peut bouger)
            colonne_comp_pole = WorksheetFunction.Match("LABO CRB", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("6:6"), 0)
 
        Else
 
            'Cherche le numéro de colonne du Labo de la Reproduction dans la page Laboratoires (évite de faire référence à une colonne qui peut bouger)
            colonne_comp_pole = WorksheetFunction.Match("LABO DE LA REPRODUCTION", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0) - 1
 
        End If
 
    ElseIf Sheets(page).Name = "Imagerie" Then
 
        page_comp_pole = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets("Imagerie").Index
 
        'Cherche le numéro de colonne TOTAL dans la page d'Imagerie (évite de faire référence à une colonne qui peut bouger)
        colonne_comp_pole = WorksheetFunction.Match("TOTAL", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0)
 
    ElseIf Sheets(page).Name = "Anesthésiologie" Then
 
        page_comp_pole = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets("Anesthésiologie").Index
 
        'Cherche le numéro de colonne TOTAL dans la page d'Anesthésiologie (évite de faire référence à une colonne qui peut bouger)
        colonne_comp_pole = WorksheetFunction.Match("TOTAL", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0)
 
    ElseIf Sheets(page).Name = "Blocs" Then
 
        page_comp_pole = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets("Blocs spécialité").Index
 
        'Cherche le numéro de colonne TOTAL dans la page des blocs de spécialité (évite de faire référence à une colonne qui peut bouger)
        colonne_comp_pole = WorksheetFunction.Match("TOTAL", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("8:8"), 0)
 
    ElseIf Sheets(page).Name = "Explo. Fonct." Then
 
        page_comp_pole = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets("Expl. Fonct.").Index
 
        'Cherche le numéro de colonne "TOTAL" dans la page d'Explo Fonctionnelles (évite de faire référence à une colonne qui peut bouger)
        colonne_comp_pole = WorksheetFunction.Match("TOTAL", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0)
 
    ElseIf Sheets(page).Name = "Rééduc Fonct" Then
 
        page_comp_pole = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets("Reed. Fonct.").Index
 
        'Cherche le numéro de colonne "TOTAL" dans la page de Rééducation (évite de faire référence à une colonne qui peut bouger)
        colonne_comp_pole = WorksheetFunction.Match("TOTAL", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0)
 
    ElseIf Sheets(page).Name = "Accueil Urg. Adu." Or Sheets(page).Name = "Accueil Urg. Mat." Or Sheets(page).Name = "Accueil Urg. Ped." Then
 
        page_comp_pole = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets("Accueil Urgences").Index
 
         'Cherche le numéro de colonne "TOTAL Urgences" dans la page de l'Accueil des Urgences (évite de faire référence à une colonne qui peut bouger)
        colonne_comp_pole = WorksheetFunction.Match("TOTAL Urgences", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0)
 
    ElseIf Sheets(page).Name = "Cardio Interv" Then
 
        page_comp_pole = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets("Cardio Interv.").Index
 
        'Cherche le numéro de colonne "TOTAL" dans la page de Cardio Interventionnelle (évite de faire référence à une colonne qui peut bouger)
        colonne_comp_pole = WorksheetFunction.Match("TOTAL", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0)
 
    ElseIf Sheets(page).Name = "Médecine Légale" Or Sheets(page).Name = "U-SEEM" Or Sheets(page).Name = "SAMU-CESU" Or Sheets(page).Name = "NRBC" Then
 
        page_comp_pole = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets("Comp Pôle PM006 ARCU").Index
 
        If Sheets(page).Name = "Médecine Légale" Then
 
            'Cherche le numéro de colonne de la Médecine Légale dans la page du PM006 (évite de faire référence à une colonne qui peut bouger)
            colonne_comp_pole = WorksheetFunction.Match("Médecine Légale", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0)
 
        ElseIf Sheets(page).Name = "U-SEEM" Then
 
            'Cherche le numéro de colonne de U-SEEM dans la page du PM006 (évite de faire référence à une colonne qui peut bouger)
            colonne_comp_pole = WorksheetFunction.Match("U-SEEM", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0)
 
        ElseIf Sheets(page).Name = "SAMU-CESU" Then
 
            'Cherche le numéro de colonne du SAMU et du CESU dans la page du PM006 (évite de faire référence à une colonne qui peut bouger)
            colonne_comp_pole = WorksheetFunction.Match("SAMU/CESU", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0)
 
        Else
 
            'Cherche le numéro de colonne du NRBC dans la page du PM006 (évite de faire référence à une colonne qui peut bouger)
            colonne_comp_pole = WorksheetFunction.Match("NRBC", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0)
 
        End If
 
    ElseIf Val(Right(Sheets(page).Name, 4)) = 9008 Then
 
            'Cherche le numéro de colonne du NRBC dans la page du PM006 (évite de faire référence à une colonne qui peut bouger)
            colonne_comp_pole = WorksheetFunction.Match("CR MIG Pédiatrie", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0)
 
    ElseIf Left(Sheets(page).Name, 2) = "CR" And Sheets(page).Name <> "CR 2091 + 2092" And Sheets(page).Name <> "CR 2051+2052+2151" Then
 
        'Détermine la page où chercher l'info des CR
        page_comp_pole = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets("Comp Pôle PM001 Coeur Poumon").Index
 
        Do Until page_comp_pole > Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets("Comp Pôle PM001 Coeur Poumon").Index + 9
 
            If WorksheetFunction.CountIf(Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), Val(Right(Sheets(page).Name, 4))) > 0 Then
 
                'Détermine la colonne où se trouve la donnée N-1
                colonne_comp_pole = WorksheetFunction.Match(Val(Right(Sheets(page).Name, 4)), Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("7:7"), 0)
 
                GoTo suite
 
            End If
 
        page_comp_pole = page_comp_pole + 1
 
        Loop
 
    Else
 
         GoTo fin
 
    End If
 
        '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        'Remplissage de la partie dépenses
        'Remplit la ligne PNM
suite:  ligne_comp = WorksheetFunction.Match("Personnel non médical", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("D:D"), 0)
        Sheets(page).Range("C12") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D12") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne PM
        ligne_comp = WorksheetFunction.Match("Personnel médical", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("D:D"), 0)
        Sheets(page).Range("C13") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D13") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne Pers Intérimaire
        ligne_comp = WorksheetFunction.Match("Personnel intérimaire", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("D:D"), 0)
        Sheets(page).Range("C14") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D14") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne T2
        ligne_comp = WorksheetFunction.Match("TOTAL DEPENSES MEDICALES", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C16") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D16") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne T3
        ligne_comp = WorksheetFunction.Match("3E", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("C18") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D18") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne T4
        ligne_comp = WorksheetFunction.Match("TOTAL AMORT.PROV.CHARGES FINANC. ET EXCEPT.", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C20") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D20") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne Genie biomed
        ligne_comp = WorksheetFunction.Match("GENIE BIOMEDICAL", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C27") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D27") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne Actif brut biomed
        ligne_comp = WorksheetFunction.Match("€ Actif brut Matériel Médical", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C28") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D28") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne Pharmacie
        ligne_comp = WorksheetFunction.Match("PHARMACIE", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C29") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D29") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit les lignes € de Pharmacie
        ligne_comp = WorksheetFunction.Match("Dépenses gérées par la Pharmacie", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C30") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("C34") = Sheets(page).Range("C30")
        Sheets(page).Range("C36") = Sheets(page).Range("C30")
        Sheets(page).Range("D30") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
        Sheets(page).Range("D34") = Sheets(page).Range("D30")
        Sheets(page).Range("D36") = Sheets(page).Range("D30")
 
        'Remplit la ligne Stérilisation
        ligne_comp = WorksheetFunction.Match("STERILISATION", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C31") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D31") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne M3 Sté
        ligne_comp = WorksheetFunction.Match("M3 Stérilisés", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C32") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D32") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne Hygiène et Vigilances
        ligne_comp = WorksheetFunction.Match("HYGIENE ET VIGILANCES", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C33") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D33") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne Autres services de logistique médicale
        ligne_comp = WorksheetFunction.Match("AUTRES SCES LOGIST. MEDICALE", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C35") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D35") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne Laboratoires
        ligne_comp = WorksheetFunction.Match("LABORATOIRES - (UO = Actes en B..)", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C40") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D40") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne Nombre de B/BHN
        ligne_comp = WorksheetFunction.Match("Nbre de B", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("C41") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D41") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne Imagerie
        ligne_comp = WorksheetFunction.Match("IMAGERIE (UO = Actes en ICR)", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C42") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D42") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne d'ICR d'Imagerie
        ligne_comp = WorksheetFunction.Match("Nbre ICR  Imagerie", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("C43") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D43") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne d'Anesthésiologie
        ligne_comp = WorksheetFunction.Match("ANESTHESIOLOGIE (UO = Actes en ICR)", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C44") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D44") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne d'ICR Anesthésiologie
        ligne_comp = WorksheetFunction.Match("Nbre ICR  Anesthésiologie", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("C45") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D45") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne Blocs
        ligne_comp = WorksheetFunction.Match("BLOCS (UO = heures)", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C46") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D46") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne des nombres d'heures de bloc
        ligne_comp = WorksheetFunction.Match("Nbre d'heures  Blocs", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("C47") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D47") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne des Explorations Fonctionnelles
        ligne_comp = WorksheetFunction.Match("EXPLORAT. FONCTION. (UO = Actes en ICR)", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C48") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D48") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne d'ICR des Explo Fonct
        ligne_comp = WorksheetFunction.Match("Nbre ICR  Explorat. Fonction.", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("C49") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D49") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne d'Accueil des Urgences
        ligne_comp = WorksheetFunction.Match("URGENCES ", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C50") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D50") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du nombre de Passages aux Urgences
        ligne_comp = WorksheetFunction.Match("Nbre de Passages", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("C51") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D51") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne de Rééducation Fonctionnelle
        ligne_comp = WorksheetFunction.Match("REEDUC. FONCTION. (UO = Actes en AM..)", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C52") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D52") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du nombre de Minutes de Rééducation
        ligne_comp = WorksheetFunction.Match("Nbre de minutes", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("C53") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D53") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne de Cardio Interventionnelle
        ligne_comp = WorksheetFunction.Match("CARDIO INTERVENTIONNELLE", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C54") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D54") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du nombre d'ICR de Cardio
        ligne_comp = WorksheetFunction.Match("Nbre ICR cardio", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("C55") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D55") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne des Consultations Internes
        ligne_comp = WorksheetFunction.Match("CONSULTATIONS INTERNES", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C56") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D56") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du nombre de Consultations Internes
        ligne_comp = WorksheetFunction.Match("Nombre de Consultations", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("C57") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D57") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne de Blanchisserie
        ligne_comp = WorksheetFunction.Match("Blanchisserie", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C61") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D61") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du nombre de kg de linge
        ligne_comp = WorksheetFunction.Match("Kg de Linge", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C62") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D62") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne Restauration
        ligne_comp = WorksheetFunction.Match("Restauration", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C63") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D63") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du nombre de repas
        ligne_comp = WorksheetFunction.Match("Nbre de Repas", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C64") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D64") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne Accueil Gestion des Malades
        ligne_comp = WorksheetFunction.Match("Accueil et gestion des malades", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C65") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D65") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du nombre de dossiers
        ligne_comp = WorksheetFunction.Match("Nombre de Dossiers", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C66") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D66") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du SCTP
        ligne_comp = WorksheetFunction.Match("Transport patients (hors SMUR)", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C67") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D67") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du nombre de courses de brancardages
        ligne_comp = WorksheetFunction.Match("Nombre de courses de brancardage", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C68") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D68") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne de la DAM
        ligne_comp = WorksheetFunction.Match("Sces administratifs liés au personnel méd", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C77") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D77") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du nombre d'ETP PM
        ligne_comp = WorksheetFunction.Match("Personnel Médical (ETP)", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C78") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D78") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne de la DRH
        ligne_comp = WorksheetFunction.Match("Sces administratifs liés au personnel non méd", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C79") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D79") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du nombre d'ETP PNM
        ligne_comp = WorksheetFunction.Match("Personnel Non Médical (ETP)", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C80") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D80") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne de la DSI
        ligne_comp = WorksheetFunction.Match("DSIO", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C81") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D81") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du nombre de PC
        ligne_comp = WorksheetFunction.Match("Nombre de Postes", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C82") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D82") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du DIM
        ligne_comp = WorksheetFunction.Match("DIM", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C83") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D83") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du SACG
        ligne_comp = WorksheetFunction.Match("Charges à caractère général dont dépréciations", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C85") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D85") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du nombre d'€ de charges brutes des dépenses directes et indirectes
        ligne_comp = WorksheetFunction.Match("Nombre de courses de brancardage", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C86") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("C88") = Sheets(page).Range("C86")
        Sheets(page).Range("C90") = Sheets(page).Range("C86")
        Sheets(page).Range("C96") = Sheets(page).Range("C86")
        Sheets(page).Range("C98") = Sheets(page).Range("C86")
        Sheets(page).Range("D86") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
        Sheets(page).Range("D88") = Sheets(page).Range("D86")
        Sheets(page).Range("D90") = Sheets(page).Range("D86")
        Sheets(page).Range("D96") = Sheets(page).Range("D86")
        Sheets(page).Range("D98") = Sheets(page).Range("D86")
 
        'Remplit la ligne des services hôteliers
        ligne_comp = WorksheetFunction.Match("Sces hôteliers", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C87") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D87") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du service entretien/maintenance
        ligne_comp = WorksheetFunction.Match("Entretien/Maintenance", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C89") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D89") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne de la structure immobilière
        ligne_comp = WorksheetFunction.Match("STRUCTURE immobilière ", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C95") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D95") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne des services financière
        ligne_comp = WorksheetFunction.Match("STRUCTURE financière", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("B:B"), 0)
        Sheets(page).Range("C97") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("D97") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        'Remplissage de la partie recettes
 
        'Remplit la ligne des GHS HC
        ligne_comp = WorksheetFunction.Match("Recettes GHS HC", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K12") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L12") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne des GHS HJ
        ligne_comp = WorksheetFunction.Match("Recettes GHS  HJ", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K13") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L13") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du Lamda GHS
        ligne_comp = WorksheetFunction.Match("Lamda GHS", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K14") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L14") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne de l'activité externe
        ligne_comp = WorksheetFunction.Match("Total recettes activité externe", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K16") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L16") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du ticket modérateur
        ligne_comp = WorksheetFunction.Match(" Recettes Ticket Modérateur", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K20") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L20") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du forfait journalier
        ligne_comp = WorksheetFunction.Match(" Recettes Forfait Journalier", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K21") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L21") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du forfait greffes
        ligne_comp = WorksheetFunction.Match("Forfait Greffes", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K27") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L27") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du forfait coordination des prélèvements
        ligne_comp = WorksheetFunction.Match("Forfait Prélèvements", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K29") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L29") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du forfait accueil urgences
        ligne_comp = WorksheetFunction.Match("Forfait Accueil Urgences", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K31") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L31") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du forfait transports
        ligne_comp = WorksheetFunction.Match("Forfait Transport", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K33") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L33") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du forfait IFAQ
        ligne_comp = WorksheetFunction.Match("Forfait Intéressement Qualité", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K35") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L35") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne du forfait IVG ou MRC
        If WorksheetFunction.CountIf(Sheets(page).Range("I:I"), "Forfait IVG") > 0 Then
 
            ligne_comp = WorksheetFunction.Match("Forfait IVG", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
            Sheets(page).Range("K38") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
            Sheets(page).Range("L38") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        ElseIf WorksheetFunction.CountIf(Sheets(page).Range("I:I"), "Forfait MRC") > 0 Then
 
            ligne_comp = WorksheetFunction.Match("Forfait MRC", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
            Sheets(page).Range("K38") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
            Sheets(page).Range("L38") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        End If
 
        'Remplit la ligne des ATU
        ligne_comp = WorksheetFunction.Match("ATU facturables en sus", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K42") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L42") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne des MO
        ligne_comp = WorksheetFunction.Match("MO facturables en sus", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K44") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L44") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne des DMI
        ligne_comp = WorksheetFunction.Match("DMI facturables en sus", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K46") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L46") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne des MIG
        ligne_comp = WorksheetFunction.Match("Financ. MIG", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K54") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L54") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne des AC
        ligne_comp = WorksheetFunction.Match("Financ. AC", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K56") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L56") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne des FIR
        ligne_comp = WorksheetFunction.Match("Financ. FIR", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K58") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L58") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne des MERRI
        ligne_comp = WorksheetFunction.Match("MERRI fixes (socle fixe et part modulable)", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K59") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L59") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne des DAF
        ligne_comp = WorksheetFunction.Match("DAF PSY SSR", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K61") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L61") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
        'Remplit la ligne des recettes diverses
        ligne_comp = WorksheetFunction.Match(" Recettes Titre 3 - Autres Pdts", Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Range("A:A"), 0)
        Sheets(page).Range("K65") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole)
        Sheets(page).Range("L65") = Workbooks("Fichier détaillé CREA Ex. 2022.xlsm").Sheets(page_comp_pole).Cells(ligne_comp, colonne_comp_pole + 1)
 
fin: page = page + 1
 
Loop
 
Application.DisplayAlerts = True
 
MsgBox "Traitement terminé"
 
End Sub

**Marilo30** · 16/05/2023, 13h44

Rebonjour,

J'ai tenté, au cas où, de mettre les fichiers sur un disque dur et de les travailler sur mon ordinateur personnel.
Cela semble avoir résolu le problème.

Je ne comprends toutefois pas comment, je peux créer un fichier sur mon ordi pro, l'exploiter jusqu'à 10-11h ce matin sans problème, le voir bugué sans arrêt et qu'il refonctionne sur un autre ordi.

Ce n'est pas une urgence, mais j'aimerais quand même bien comprendre ce qu'il s'est passé.

Erreur automation vba [XL-2016]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager