Excel copie vers PP

Bonjour,

Je suis nouveau et débutant sur VBA.
J'aimerais créer une maccro qui me permette de copier coller des tableaux et des graphiques de mon excel vers Powerpoint.
J'ai trouvé divers sujet en parlant mais cela ne fonctionne pas.
Par exemple j'ai eu le type de code ci-dessous. Mais je ne le comprends pas entièrement et surtout les Powerpoint.Application etc.. Ne fonctionnent pas dans mon excel et ne sont pas reconnues comme des dim (ce problème parmis d'autres). Seul Application est reconnu.
Pourriez vous m'écrire et m'expliquer une maccro copiant simplement un graphique et quelques cellules dans un powerpoint ?
Je vous remercie pour votre aide.
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 Private Sub Trsft_PowerPoint_Click() Dim ppApp As PowerPoint.Application Dim ppPres As PowerPoint.Presentation Dim ppShape As PowerPoint.Shape Dim ppSlide As PowerPoint.Slide Dim SlideNum As Integer Dim strPresPath As String, strExcelFilePath As String, strNewPresPath As String strPresPath = "C:\...ppt" strNewPresPath = "C:\...ppt" Set ppApp = CreateObject("PowerPoint.Application") ppApp.Visible = msoTrue Set ppPres = ppApp.Presentations.Open(strPresPath) Sheets("sheet1").Activate Range("B2:R27").Copy Set ppSlide = ppPres.Slides.Add(18, ppLayoutBlank) SlideNum = 18 ppPres.Slides(SlideNum).Select ppPres.Slides(SlideNum).Shapes.PasteSpecial ppPasteEnhancedMetafile With ppPres.Slides(SlideNum).Shapes(1) .IncrementLeft 524# .IncrementTop 157.5 End With ActiveWindow.LargeScroll ToRight:=1 With ppPres.Slides(SlideNum).Shapes(1) .ScaleWidth 0.62, msoFalse, msoScaleFromTopLeft .ScaleHeight 0.62, msoFalse, msoScaleFromTopLeft End With MsgBox "Présentation Créée", vbOKOnly + vbInformation End Sub

Citation:

Envoyé par Suits26

les Powerpoint.Application etc.. Ne fonctionnent pas dans mon excel et ne sont pas reconnues comme des dim (ce problème parmis d'autres).

Dans VBE, faire Outils > Références > Cocher la ligne "Microsoft PowerPoint XX.0 Object Library" (le XX étant la version d'office)

Ah super déjà ça fonctionne.
Si je peux avoir une petite explication "ligne par ligne" du code VBA ci-dessus ? De manière à l'adapter au miens ? Ce serait super.

En vous remerciant.

Vincent.

Quand tu ne comprends pas un élément de code, tu cliques dessus pour y placer ton curseur et tu appuies sur la touche F1.
Ca t'ouvrira l'aide VBA correspondant à cet élément.

Merci bien, je vais essayé d'adapter tout ça seul et reviendrait à l'occasion :)

Bon ça n'aura pas duré longtemps, j'ai déjà deux questions :

Comment modifier le titre via vba d'un powerpoint ?
Comment sélectionner un graphique sur excel via VBA sans forcément juste copier les cellules dessous ?

Merci,

Vincent.

Citation:

Envoyé par Suits26

Bon ça n'aura pas duré longtemps, j'ai déjà deux questions :

Effectivement, il semble évident que tu n'as pas cherché très longtemps par toi-même... :?

J'ai réussi à faire une maccros au final qui me copie colle tout sur ma prez avec changement de date, titres etc.. :

- Seul problème, mon code part à chaque fois de précédents powerpoint (du mois précédents), que j'ouvre, dans lesquels je supprime les shapes (graphiques etc..) et copie les nouveaux depuis mon excel actualisé.
Toutefois, puisque les shapes ont un nom : ex : "picture 1", j'aimerais savoir si en faisant tourner la maccro chaque mois, ces noms changent ou restent les mêmes à force de copier coller ? Car ma maccros dépend de ça. En gros je copie colle mon graphique, et le mois suivant je sais que ce graphique s'appelait "picture 1" donc je le supprime, et je viens copier le nouveau.

- Est-il possible de créer un msgbox contenant toutes les erreurs à la fin si il y a ?

- Si un italien travaillant avec un excel en italien (mais VBA en anglais) fait tourner ma maccro, son excel risque t-il de copier une shape que j'ai dénommé "picture2" pour la copie dans mon code, et la coller avec le nom en italien ? Ou son excel conservera t-il le nom picture 2 ?
Auquel cas est il possible à la place dé dénommer la shape "picture 5" :
ex : PPPres.Slides(2).Shapes("Picture 5").Delete
D'utiliser ça :
ex : PPPres.Slides(2).Shapes(1).Delete
Je crois savoir que ça peut fonctionner et c'est universel au moins, mais je n'arrive pas à trouver les numéros de chaque shapes.

A nouveau je débute, j'ai fait énormément de recherches, 2 jours que je suis dessus à fond mais il reste des incohérences pour moi, des choses que je ne comprends pas.
Je vous remercie,
j'espère que c'est clair.

Vincent.

Salut

Peux-tu placer le code que tu utilises actuellement, ça sera plus facile pour t'aider.

Citation:

- Si un italien travaillant avec un excel en italien (mais VBA en anglais) fait tourner ma maccro, son excel risque t-il de copier une shape que j'ai dénommé "picture2" pour la copie dans mon code, et la coller avec le nom en italien ? Ou son excel conservera t-il le nom picture 2 ?

Tu utilises semble-t-il un excel en français, Excel t'a-t-il déjà renommé ta shape en "Image2" au lieu de "Picture2"?
Code:

1 2 3 4 Auquel cas est il possible à la place dé dénommer la shape "picture 5" : ex : PPPres.Slides(2).Shapes("Picture 5").Delete D'utiliser ça : ex : PPPres.Slides(2).Shapes(1).Delete
Oui c'est possible mais en effet il te faut connaitre le numéro d'ordre dans lequel les shapes ont été créées... je te déconseille fortement de partir dans cette direction. Plutôt que de précéder comme ça, il serait mieux de renommer les shapes au moment de leur copie pour leur attribuer un nom conforme à ce que tu attends.
Si par exemple tu as besoin de remplacer le Shape "Graphique_Tarif".

Tu supprimes "Graphique_Tarif" existant dans le pps.
A ce stade deux possibilité

Soit ton Graphique sur Excel se nomme déjà "Graphique_Tarif" et donc logiquement ce nom sera conservé dans PP au moment de sa copie à partir d'Excel.
Tu renommes le graphique avant ou après l'avoir copié dans PP.

A mon avis la solution la plus "propre" serait la première car elle te facilite aussi la vie pour déterminer quel graphique doit être copie à partir d'Excel puisque son nom est connu. Mais bon sans connaitre la structure de ton code, c'est délicat de répondre.

Citation:

- Est-il possible de créer un msgbox contenant toutes les erreurs à la fin si il y a ?

Sans plus d'information sur le type d"erreur que tu veux gérer je dirais oui... mais bon on peut faire vraiment beaucoup de chose en VBA, ce qui limite souvent ce que peut faire un utilisateur c'est son imagination :) (je l'ai lu dans une signature celle là et je le trouve pas mal).

++
Qwaz

Citation:

Envoyé par Suits26

- Est-il possible de créer un msgbox contenant toutes les erreurs à la fin si il y a ?

Pour de telles procédure, il est préférable d'envoyer des messages "au fil de l'eau" dans la fenêtre d'exécution avec un Debug.Print plutôt que d'utiliser un MsgBox.
https://msdn.microsoft.com/en-us/VBA...s/debug-object

Merci pour vos réponses.

J'utilise un excel en anglais. Mais je prévois de pouvoir faire utiliser cette maccro par une personne ayant un excel Italien (vba anglais dans les deux). De là mon problème :

Voici une partie de mon code :
Code:

1 2 3 WBook = "Chemin de destination" (ici je mets "C:\... " :jusqu'à mon excel) Workbooks.Open WBook Range("A2:K23").CopyPPPres.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
Est il possible d'ajouter une ligne qui renomme directement la shape sans avoir à la nommer avant ?
Car je pense que suivant si j'execute le code sous excel anglais, ou sous excel italien, la shape collé par la ligne : "Range..." va être d'un nom différent suivant ma version excel.
Et mon problème c'est que mon tout début de code commence par :

Code:

PPPres.Slides(2).Shapes("immagine 1").Delete

En gros j'ouvre ma présentation, j'enlève toutes les images, et je recolle les nouvelles. Donc si j'execute mon VBA deux fois de suites pour créer deux mois différents, il va essayer de delete une shape s'appelant "immagine 1" alors que l'excel anglais à copier "picture 1".

Vous voyez mon soucis ? J'ai beau réfléchir, à par créer dans le même code deux versions suivant que l'utilisateur utilise version anglais ou italien en lui demandant dans mon input box, je ne vois pas...

Merci pour votre aide en tout cas, je commence à prendre plaisir à coder même si les débuts sont compliqués.

Vincent.

1 pièce(s) jointe(s)

Salut

Le fichier Excel de départ est-il toujours le même que tu mets à jour, puis tu transfert des image de tes tableaux dans un PP?

Si c'est le cas, tu as une autre possibilité, c'est de faire des liaisons dans ton fichier PP qui pointent dans ton fichier Excel.
Ainsi lorsque tu modifieras ton fichier Excel, les modifications seront rapportées dans le PP.

Dans Excel tu sélectionnes par exemple un graphique, tu le copies puis tu vas dans PP et tu colles. Par défaut la mode avec liaison est utilisé. C'est tout. Tu auras juste à mettre à jour les objets liés pour qu'ils prennent en compte les modifications faite dans ton fichier Excel.
Je te met 2 fichiers démo en PJ.

++
Qwaz

Je te remercie,

j'y avais pensé mais le fichier excel n'est pas toujours le même et les tableaux s'agrandissent etc... Donc il me faut vraiment du VBA.
Je pense faire deux versions tenant compte d'un excel anglais ou Italien avec un checkup de début demandant quelle version précédente à utiliser le VBA et quelle version actuelle l'utilise. De manière à copier mes "shapes" avec le bon nom.

Merci pour tous vos conseils et votre aide en tout cas !
Je posterai mon code à la fin, sait on jamais ça pourra aider quelqu'un...
Excellente journée,

Vincent.

Salut

Avant de faire une usine à gaz franco-italienne, comment est-ce que tu décides de l'emplacement ou tu vas copier tes images? Est-ce que tu connais l'endroit ou sont implanter chaque images?

Si c'est le cas, il suffit de supprimer toutes les images sur le 1er slide, puis tu replace la 1ère, son index sera 1, tu la renommes si besoin, puis tu places la seconde, son index sera 2, puis ... Ensuite tu passes au slide suivant et tu refais la même chose. Seul bémol si des images sont déjà présentes mais là encore il y a des solutions simples qui peuvent être mise en place, explique un peu plus ce que tu souhaites faire et comment est organisé ton PP.

++
Qwaz

En gros niveau étape :

Dans mon premier dossier j'ai un excel, un powerpoint (datant de mars disons). Je souhaite faire Avril.
Donc j'ouvre mon excel je mets à jours les tableaux.
Puis en VBA le but est d'ouvrir le powerpoint, supprimer seulement les tableaux à remplacer (donc je garde les titres), et aller copier coller au bon emplacement le tableau depuis mon excel mis à jours.

Je vais essayer de tester un code VBA avec shape 1, shape 2 etc... Au lieu de les nommer ce qui me poserait problème entre l'italien et l'anglais en VBA.

Salut

Ok mais comment détermines-tu quel tableau/graphique va où dans ton PP?
Est-ce que tu as une liste des emplacements ou est-ce que tu remplaces un tableau par un autre en fonction de son nom?

++
Qwaz

Non je sais que pour la présentation 1, je supprime avec leur nom les différents tableaux, puis je sais que dans mon excel si je sélectionne les cellules A1:A62 de la sheet1 je vais prendre un tableau qui doit aller sur la slide 1. Et en fonction du excel que j'ouvre, je sais ou je dois copier les tableaux que je prends.

J'ai deux soucis et malgré mes recherches cela ne semble pas évident :
Lorsque j'update mes excels avant de copier coller sur le PP, il se peut que mes tableaux s'aggrandissent. J'essaie donc de copier le tableau en fonction d'une variable qui déterminerait la dernière ligne non vide du tableau :

Workbooks.Open WBook
Sheets("Commesse").Activate
nblign = Range("B1", Selection.End(xlDown)).Cells.Count
nblign = nblign + 1
Range("A1:J" & nblign).Copy
PPPres.Slides(6).Shapes.PasteSpecial ppPasteOLEObject

Mais cela ne fonctionne pas.
Autre chose, savez vous comment copier et coller en image bitmap ?

Je vous remercie.

Salut

A mon avis tu devrais utiliser des tableaux structurés, comme ça il te suffirait d'utiliser leur nom et Excel se chargerait de te retourner l'intégralité de la plage des données qu'ils contiennent.

Peux-tu placer ton fichier Excel pour voir comment sont organisées tes données.

Pour la copie d'un tableau sous forme d'image, regarde dans la FAQ, ce code y est présent.

++
Qwaz

Voici le code :

J'ai séparé chaque powerpoint par un message : ex : 'Praline etc...
j'ai conscience qu'il pourrait être simplifié, mais j'essaie déjà de le faire marcher parfaitement.

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
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
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
Sub Prez()
Dim ppApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim ppShape As PowerPoint.Shape
Dim ppSlide As PowerPoint.Slide
Dim SlideNum As Integer
Dim Year1 As String
Dim Month1 As String
Dim PrevMonth1 As String
Dim Lang1 As String
Dim WBook As String
Dim Folder As String
Dim OK As Boolean
Dim DateSlide As String
Dim nblign As Integer
Dim nblign2 As Integer
Dim nblign3 As Integer
 
 
'To find the folder each time whenever we are, I need to ask the user to put the previous month, the month, and the date. As he may work on an italian version maybe I'll need to do 2 versions.
'So I also ask for the language
 
Do While Not OK
    Year1 = InputBox("What is the current working year please ?" & Chr(13) & Chr(10) & "For instance : 2015-2016", ChooseYear)
    Month1 = InputBox("What is the current month please ?" & Chr(13) & Chr(10) & "Put the 3 first letters of the month", ChooseMonth)
    PrevMonth1 = InputBox("What is the previous month please ?" & Chr(13) & Chr(10) & "Put the 3 first letters of the month", ChoosePreviousMonth)
    Lang1 = InputBox("What is you excel language please ?", ChooseYourLanguage)
        If Year1 <> "" And Month1 <> "" And PrevMonth1 <> "" And Lang1 <> "" Then
            Msg = "You just put : " & Chr(10) & Chr(13) & Chr(13) & "-Year : " & Year1 & Chr(13) & "-Month : " & Month1 & Chr(13) & "-Previous Month : " & PrevMonth1 & Chr(13) & "-Language : " & Lang1 & Chr(13) & Chr(13) & Chr(10) & "Do you confirm ?"
            reponse = MsgBox(Msg, vbYesNoCancel + vbInformation + vbDefaultButton2, "CONFIRMATION")
            If reponse = vbYes Then
                Exit Do
            ElseIf reponse = vbCancel Then
                MsgBox "So we stop !"
                Exit Sub
            End If
        Else
            MsgBox "Canceled"
            Exit Sub
        End If
    Loop
    MsgBox "Everything is saved, Let's do it"
 
 
 
'Put the asked valor into variable and into excel
 
If PrevMonth1 = "Set" Then
Folder = "1. Chiusura Settembre"
DateSlide = "SETTEMBRE"
End If
If PrevMonth1 = "Ott" Then
Folder = "2. Chiusura Ottobre"
DateSlide = "Ottobre"
End If
If PrevMonth1 = "Nov" Then
Folder = "3. Chiusura Novembre"
DateSlide = "Novembre"
End If
If PrevMonth1 = "Dic" Then
Folder = "4. Chiusura Dicembre"
DateSlide = "Dicembre"
End If
If PrevMonth1 = "Gen" Then
Folder = "5. Chiusura Gennaio"
DateSlide = "Gennaio"
End If
If PrevMonth1 = "Feb" Then
Folder = "6. Chiusura Febbraio"
DateSlide = "Febbraio"
End If
If PrevMonth1 = "Mar" Then
Folder = "7. Chiusura Marzo"
DateSlide = "Marzo"
End If
If PrevMonth1 = "Apr" Then
Folder = "8. Chiusura Aprile"
DateSlide = "Aprile"
End If
If PrevMonth1 = "Mag" Then
Folder = "9. Chiusura Maggio"
DateSlide = "Maggio"
End If
If PrevMonth1 = "Giu" Then
Folder = "10. Chiusura Giugno"
DateSlide = "Giugno"
End If
If PrevMonth1 = "Lug" Then
Folder = "11.Chiusura Luglio"
DateSlide = "Luglio"
End If
If PrevMonth1 = "AGO" Then
Folder = "12. Chiusura AGOSTO"
DateSlide = "Agosto"
End If
 
Worksheets("infos").Cells(5, 3) = Folder
Worksheets("infos").Cells(2, 3) = Year1
Worksheets("infos").Cells(4, 3) = Month1
Worksheets("infos").Cells(3, 3) = PrevMonth1
Worksheets("infos").Cells(6, 3) = Lang1
 
Set ppApp = CreateObject("PowerPoint.Application")
ppApp.Visible = msoTrue
 
 
 
                        'Slide PRALINE
 
 
Set PPPres = ppApp.Presentations.Open("D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\1_PRALINE\Pres. Globale Praline - P&L ytd" & " " & PrevMonth1 & ".pptx")
    PPPres.SaveAs "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\1_PRALINE\Pres. Globale Praline - P&L ytd" & " " & Month1 & ".pptx"
 
'Une fois ouvert, nous devons modifier le titre de la première slide en le supprimant et le réécrivant avec la variable du mois
    PPPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = " -Presidenza Globale Praline - Report Gestionale 17/18 Periodo : " & DateSlide
 
' Puis supprimer les slides
    PPPres.Slides(2).Shapes("immagine 1").Delete
    PPPres.Slides(3).Shapes("immagine 2").Delete
    PPPres.Slides(4).Shapes("immagine 2").Delete
    PPPres.Slides(5).Shapes("immagine 2").Delete
    PPPres.Slides(6).Shapes("immagine 5").Delete
    PPPres.Slides(7).Shapes("immagine 2").Delete
    PPPres.Slides(8).Shapes("immagine 2").Delete
 
 
 
 
 
'Maintenant ouvrons le bon fichier excel et copions collons ce qu'il faut
    WBook = "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\1_PRALINE\Pres. Globale Praline - P&L ytd" & " " & PrevMonth1 & ".xlsx"
    Workbooks.Open WBook
    Range("A2:K23").Copy
    PPPres.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L").Activate
    Range("A1:J26").Copy
    PPPres.Slides(3).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L").Activate
    Range("K1:AB26").Copy
    PPPres.Slides(4).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(4).Shapes("Object 1")
        .ScaleWidth 0.8, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 50
        .IncrementTop 30
        End With
    Workbooks.Open WBook
    Sheets("Sintesi per CDC Aggregato").Activate
    nblign = Range("B1", Selection.End(xlDown)).Cells.Count
    MsgBox nblign
    nblign = nblign + 1
    Range("A1:N" & nblign).Copy
    PPPres.Slides(5).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("Commesse").Activate
    nblign = Range("B1", Selection.End(xlDown)).Cells.Count
    nblign = nblign + 1
    Range("A1:J" & nblign).Copy
    PPPres.Slides(6).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(6).Shapes("Object 1")
        .ScaleWidth 0.9, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Workbooks.Open WBook
    Sheets("Commesse").Activate
    Sheets("Commesse").Rows("6:31").Hidden = True
    Sheets("Commesse").Range("A1:J58").Copy
    PPPres.Slides(7).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(6).Shapes("Object 1")
        .ScaleWidth 0.9, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Sheets("Commesse").Rows("6:31").Hidden = False
    Sheets("prove").Activate
    Range("A1:G5").Copy
    PPPres.Slides(8).Shapes.PasteSpecial ppPasteOLEObject
        With PPPres.Slides(8).Shapes("Object 1")
        .IncrementLeft 0
        .IncrementTop -140
        End With
 
    ActiveWorkbook.Close False
    PPPres.Save
    PPPres.Close
 
 
 
                        'Slide Pills and GUM
 
 
 Set PPPres = ppApp.Presentations.Open("D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\2_PILLS & GUMS\Pres. Globale Pills & Gums - P&L ytd" & " " & PrevMonth1 & ".pptx")
    PPPres.SaveAs "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\2_PILLS & GUMS\Pres. Globale Pills & Gums - P&L ytd" & " " & Month1 & ".pptx"
 
'Une fois ouvert, nous devons modifier le titre de la première slide en le supprimant et le réécrivant avec la variable du mois
    PPPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = " -Presidenza Globale Pills and Gums - Report Gestionale 17/18 Periodo : " & DateSlide
 
' Puis supprimer les slides
    PPPres.Slides(2).Shapes("immagine 1").Delete
    PPPres.Slides(3).Shapes("immagine 1").Delete
    PPPres.Slides(4).Shapes("immagine 1").Delete
    PPPres.Slides(5).Shapes("immagine 1").Delete
    PPPres.Slides(6).Shapes("immagine 2").Delete
    PPPres.Slides(7).Shapes("immagine 2").Delete
 
'Maintenant ouvrons le bon fichier excel et copions collons ce qu'il faut
    WBook = "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\2_PILLS & GUMS\Pres. Globale Pills & Gums - P&L ytd" & " " & PrevMonth1 & ".xlsx"
    Workbooks.Open WBook
    Range("A2:K23").Copy
    PPPres.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L").Activate
    Range("A1:J26").Copy
    PPPres.Slides(3).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L").Activate
    Range("K1:AB26").Copy
    PPPres.Slides(4).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(4).Shapes("Object 2")
        .ScaleWidth 0.8, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Workbooks.Open WBook
    Sheets("Sintesi per CDC Aggregato").Activate
    Range("A1:N27").Copy
    PPPres.Slides(5).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("Commesse").Activate
    Range("A1:J28").Copy
    PPPres.Slides(6).Shapes.PasteSpecial ppPasteOLEObject
    Sheets("prove").Activate
    Range("A1:G5").Copy
    PPPres.Slides(7).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(7).Shapes("Object 1")
        .IncrementLeft 0
        .IncrementTop -140
        End With
    ActiveWorkbook.Close False
    PPPres.Save
    PPPres.Close
 
 
 
                    'SNACKS
 
    Set PPPres = ppApp.Presentations.Open("D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\3_SNACKS\Pres. Globale SNACKS - P&L ytd" & " " & PrevMonth1 & ".pptx")
    PPPres.SaveAs "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\3_SNACKS\Pres. Globale SNACKS - P&L ytd" & " " & Month1 & ".pptx"
 
'Une fois ouvert, nous devons modifier le titre de la première slide en le supprimant et le réécrivant avec la variable du mois
    PPPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = " -Presidenza Globale SNACKS - Report Gestionale 17/18 Periodo : " & DateSlide
 
' Puis supprimer les slides
    PPPres.Slides(2).Shapes("immagine 2").Delete
    PPPres.Slides(3).Shapes("immagine 2").Delete
    PPPres.Slides(4).Shapes("immagine 2").Delete
    PPPres.Slides(5).Shapes("immagine 2").Delete
    PPPres.Slides(6).Shapes("immagine 2").Delete
    PPPres.Slides(7).Shapes("immagine 2").Delete
    PPPres.Slides(8).Shapes("immagine 1").Delete
 
'Maintenant ouvrons le bon fichier excel et copions collons ce qu'il faut
    WBook = "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\3_SNACKS\Pres. SNACKS - P&L ytd" & " " & PrevMonth1 & ".xlsx"
    Workbooks.Open WBook
    Range("A2:K23").Copy
    PPPres.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L").Activate
    Range("A1:J26").Copy
    PPPres.Slides(3).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L").Activate
    Range("K1:AB26").Copy
    PPPres.Slides(4).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(4).Shapes("Object 1")
        .ScaleWidth 0.8, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Workbooks.Open WBook
    Sheets("Sintesi per CDC Aggregato").Activate
    Range("A1:N27").Copy
    PPPres.Slides(5).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("Commesse").Activate
    Range("A1:J21").Copy
    PPPres.Slides(6).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("Commesse").Activate
    Sheets("Commesse").Rows("6:21").Hidden = True
    Sheets("Commesse").Range("A1:J38").Copy
    PPPres.Slides(7).Shapes.PasteSpecial ppPasteOLEObject
    Sheets("Commesse").Rows("6:21").Hidden = False
    Sheets("prove").Activate
    Range("A1:G5").Copy
    PPPres.Slides(8).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(8).Shapes("Object 2")
        .IncrementLeft 0
        .IncrementTop -140
        End With
    ActiveWorkbook.Close False
    PPPres.Save
    PPPres.Close
 
                'KIND
 
 
          Set PPPres = ppApp.Presentations.Open("D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\4_KIND\Pres. Globale Kind - P&L ytd" & " " & PrevMonth1 & ".pptx")
    PPPres.SaveAs "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\4_KIND\Pres. Globale Kind - P&L ytd" & " " & Month1 & ".pptx"
 
'Une fois ouvert, nous devons modifier le titre de la première slide en le supprimant et le réécrivant avec la variable du mois
    PPPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = " -Presidenza Kind - Report Gestionale 17/18 Periodo : " & DateSlide
 
' Puis supprimer les slides
    PPPres.Slides(2).Shapes("Picture 5").Delete
    PPPres.Slides(3).Shapes("Picture 5").Delete
    PPPres.Slides(4).Shapes("Picture 6").Delete
    PPPres.Slides(5).Shapes("Picture 1").Delete
    PPPres.Slides(6).Shapes("Picture 2").Delete
    PPPres.Slides(7).Shapes("Picture 1").Delete
    PPPres.Slides(8).Shapes("Picture 2").Delete
    PPPres.Slides(9).Shapes("immagine 2").Delete
 
'Maintenant ouvrons le bon fichier excel et copions collons ce qu'il faut
    WBook = "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\4_KIND\Pres. Globale Kind - P&L ytd" & " " & PrevMonth1 & ".xlsx"
    Workbooks.Open WBook
    Range("A2:K23").Copy
    PPPres.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L").Activate
    Range("A1:J26").Copy
    PPPres.Slides(3).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L").Activate
    Range("K1:AB26").Copy
    PPPres.Slides(4).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(4).Shapes("Object 1")
        .ScaleWidth 0.8, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Workbooks.Open WBook
    Sheets("Sintesi per CDC Aggregato").Activate
    Range("A1:N27").Copy
    PPPres.Slides(5).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("Commesse").Activate
    Range("A1:J33").Copy
    PPPres.Slides(6).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(6).Shapes("Object 1")
        .ScaleWidth 0.9, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Sheets("Commesse").Activate
    Sheets("Commesse").Rows("6:33").Hidden = True
    Sheets("Commesse").Range("A1:J61").Copy
    PPPres.Slides(7).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(7).Shapes("Object 1")
        .ScaleWidth 0.9, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Sheets("Commesse").Activate
    Sheets("Commesse").Rows("34:61").Hidden = True
    Sheets("Commesse").Range("A1:J81").Copy
    PPPres.Slides(8).Shapes.PasteSpecial ppPasteOLEObject
    Sheets("Commesse").Rows("6:61").Hidden = False
    Sheets("prove").Activate
    Range("A1:G10").Copy
    PPPres.Slides(9).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(9).Shapes("Object 1")
        .IncrementLeft 0
        .IncrementTop -110
        End With
    ActiveWorkbook.Close False
    PPPres.Save
    PPPres.Close
 
 
 
                            'BISCOTTI
 
 
 
 Set PPPres = ppApp.Presentations.Open("D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\5_BISCOTTI\Pres. Globale Biscotti - P&L ytd" & " " & PrevMonth1 & ".pptx")
    PPPres.SaveAs "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\5_BISCOTTI\Pres. Globale Biscotti - P&L ytd" & " " & Month1 & ".pptx"
 
'Une fois ouvert, nous devons modifier le titre de la première slide en le supprimant et le réécrivant avec la variable du mois
    PPPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = " -Presidenza Globale Biscotti - Report Gestionale 17/18 Periodo : " & DateSlide
 
' Puis supprimer les slides
    PPPres.Slides(2).Shapes("Picture 2").Delete
    PPPres.Slides(3).Shapes("Picture 2").Delete
    PPPres.Slides(4).Shapes("Picture 1").Delete
    PPPres.Slides(5).Shapes("Picture 2").Delete
    PPPres.Slides(6).Shapes("Picture 2").Delete
    PPPres.Slides(7).Shapes("Picture 1").Delete
 
'Maintenant ouvrons le bon fichier excel et copions collons ce qu'il faut
    WBook = "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\5_BISCOTTI\Pres. Globale Biscotti - P&L ytd" & " " & PrevMonth1 & ".xlsx"
    Workbooks.Open WBook
    Range("A2:K23").Copy
    PPPres.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L").Activate
    Range("A1:J26").Copy
    PPPres.Slides(3).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L").Activate
    Range("K1:AB26").Copy
    PPPres.Slides(4).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(4).Shapes("Object 2")
        .ScaleWidth 0.8, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Workbooks.Open WBook
    Sheets("Sintesi per CDC Aggregato").Activate
    Range("A1:N15").Copy
    PPPres.Slides(5).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("Commesse").Activate
    Range("A1:J14").Copy
    PPPres.Slides(6).Shapes.PasteSpecial ppPasteOLEObject
    Sheets("prove").Activate
    Range("A1:G5").Copy
    PPPres.Slides(7).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(7).Shapes("Object 2")
        .IncrementLeft 0
        .IncrementTop -140
        End With
    ActiveWorkbook.Close False
    PPPres.Save
    PPPres.Close
 
 
          'TAVOLETTE
 
 
 
 Set PPPres = ppApp.Presentations.Open("D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\6_TAVOLETTE\Pres. Globale Tavolette - P&L ytd" & " " & PrevMonth1 & ".pptx")
    PPPres.SaveAs "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\6_TAVOLETTE\Pres. Globale Tavolette - P&L ytd" & " " & Month1 & ".pptx"
 
'Une fois ouvert, nous devons modifier le titre de la première slide en le supprimant et le réécrivant avec la variable du mois
    PPPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = " -Presidenza Globale Tavolette - Report Gestionale 17/18 Periodo : " & DateSlide
 
' Puis supprimer les slides
    PPPres.Slides(2).Shapes("Picture 2").Delete
    PPPres.Slides(3).Shapes("Picture 2").Delete
    PPPres.Slides(4).Shapes("Picture 2").Delete
    PPPres.Slides(5).Shapes("Picture 2").Delete
    PPPres.Slides(6).Shapes("Picture 2").Delete
    PPPres.Slides(7).Shapes("Immagine 1").Delete
 
'Maintenant ouvrons le bon fichier excel et copions collons ce qu'il faut
    WBook = "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\0_ PRESIDENZE GLOBALI\6_TAVOLETTE\Pres. Globale Tavolette - P&L ytd" & " " & PrevMonth1 & ".xlsx"
    Workbooks.Open WBook
    Range("A2:K23").Copy
    PPPres.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L").Activate
    Range("A1:J26").Copy
    PPPres.Slides(3).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L").Activate
    Range("K1:AB26").Copy
    PPPres.Slides(4).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(4).Shapes("Object 1")
        .ScaleWidth 0.8, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Workbooks.Open WBook
    Sheets("Sintesi per CDC Aggregato").Activate
    Range("A1:N17").Copy
    PPPres.Slides(5).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("Commesse").Activate
    Range("A1:J8").Copy
    PPPres.Slides(6).Shapes.PasteSpecial ppPasteOLEObject
    Sheets("prove").Activate
    Range("A1:G5").Copy
    PPPres.Slides(7).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(7).Shapes("Object 2")
        .IncrementLeft 0
        .IncrementTop -140
        End With
    ActiveWorkbook.Close False
    PPPres.Save
    PPPres.Close
 
 
 
               'SCIENTIFICA
 
 
      Set PPPres = ppApp.Presentations.Open("D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\1_Dir. TEC SCIENTIFICA\Dir. Tec Scientifica - P&L ytd" & " " & PrevMonth1 & ".pptx")
    PPPres.SaveAs "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\1_Dir. TEC SCIENTIFICA\Dir. Tec Scientifica - P&L ytd" & " " & Month1 & ".pptx"
 
'Une fois ouvert, nous devons modifier le titre de la première slide en le supprimant et le réécrivant avec la variable du mois
    PPPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = " -Direzione Tecnico Scientifica - Report Gestionale 17/18 Periodo : " & DateSlide
 
' Puis supprimer les slides
    PPPres.Slides(2).Shapes("Picture 2").Delete
    PPPres.Slides(3).Shapes("Picture 2").Delete
    PPPres.Slides(4).Shapes("Immagine 1").Delete
    PPPres.Slides(5).Shapes("Picture 1").Delete
    PPPres.Slides(6).Shapes("Picture 5").Delete
    PPPres.Slides(7).Shapes("Picture 2").Delete
    PPPres.Slides(8).Shapes("Picture 2").Delete
 
'Maintenant ouvrons le bon fichier excel et copions collons ce qu'il faut
    WBook = "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\1_Dir. TEC SCIENTIFICA\Dir. Tec Scientifica - P&L ytd" & " " & PrevMonth1 & ".xlsx"
    Workbooks.Open WBook
    Range("A1:J16").Copy
    PPPres.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L MESE AREA").Activate
    Range("A1:J18").Copy
    PPPres.Slides(3).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L MESE AREA").Activate
    Range("A18:J35").Copy
    PPPres.Slides(4).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L MESE AREA").Activate
    Range("A35:J52").Copy
    PPPres.Slides(8).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L MESE AREA").Activate
    Sheets("P&L MESE AREA").Columns("C:I").Hidden = True
    Range("A1:R18").Copy
    PPPres.Slides(6).Shapes.PasteSpecial ppPasteOLEObject
    Sheets("P&L MESE AREA").Activate
    Range("A18:R35").Copy
    PPPres.Slides(5).Shapes.PasteSpecial ppPasteOLEObject
    Sheets("P&L MESE AREA").Activate
    Sheets("P&L MESE AREA").Columns("C:I").Hidden = False
    Sheets("DETT CDC YTD").Activate
    Range("A1:K35").Copy
    PPPres.Slides(7).Shapes.PasteSpecial ppPasteOLEObject
    ActiveWorkbook.Close False
    PPPres.Save
    PPPres.Close
 
 
 
 
               'BREAKTROUGH INNOVATION
 
 
 
      Set PPPres = ppApp.Presentations.Open("D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\2_Dir. Prod. Breaktrough Innovation\Dir. Prod. Breaktrough Innovation - P&L ytd" & " " & PrevMonth1 & ".pptx")
    PPPres.SaveAs "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\2_Dir. Prod. Breaktrough Innovation\Dir. Prod. Breaktrough Innovation - P&L ytd" & " " & Month1 & ".pptx"
 
'Une fois ouvert, nous devons modifier le titre de la première slide en le supprimant et le réécrivant avec la variable du mois
    PPPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = " -Dir. Prod. Breaktrough Innovation - Report Gestionale 17/18 Periodo : " & DateSlide
 
' Puis supprimer les slides
    PPPres.Slides(2).Shapes("Picture 1").Delete
    PPPres.Slides(3).Shapes("Picture 2").Delete
 
 
'Maintenant ouvrons le bon fichier excel et copions collons ce qu'il faut
    WBook = "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\2_Dir. Prod. Breaktrough Innovation\Dir. Prod. Breaktrough Innovation - P&L ytd" & " " & PrevMonth1 & ".xlsx"
    Workbooks.Open WBook
    Range("A1:J25").Copy
    PPPres.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(2).Shapes("Object 1")
        .ScaleWidth 0.87, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.87, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
 
    Workbooks.Open WBook
    Sheets("DETT CDC YTD").Activate
    Range("A1:K15").Copy
    PPPres.Slides(3).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(3).Shapes("Object 1")
        .ScaleWidth 1, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 1, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    ActiveWorkbook.Close False
    PPPres.Save
    PPPres.Close
 
 
 
               'HR1
 
 
 
 
      Set PPPres = ppApp.Presentations.Open("D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\4_HR\Vozzola\Cruscotto_HR - P&L ytd" & " " & PrevMonth1 & ".pptx")
    PPPres.SaveAs "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\4_HR\Vozzola\Cruscotto_HR - P&L ytd" & " " & Month1 & ".pptx"
 
'Une fois ouvert, nous devons modifier le titre de la première slide en le supprimant et le réécrivant avec la variable du mois
    PPPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = " - CRUSCOTTO HR SOREMARTEC Vista Societaria(Div. Soremartec + Div. Surprise) - Report Gestionale 17/18 Periodo : " & DateSlide
 
' Puis supprimer les slides
    PPPres.Slides(2).Shapes("Picture 2").Delete
    PPPres.Slides(3).Shapes("Picture 2").Delete
    PPPres.Slides(4).Shapes("Picture 2").Delete
    PPPres.Slides(5).Shapes("Picture 2").Delete
    PPPres.Slides(6).Shapes("Picture 4").Delete
    PPPres.Slides(7).Shapes("Picture 2").Delete
    PPPres.Slides(8).Shapes("Picture 2").Delete
 
 
 
'Maintenant ouvrons le bon fichier excel et copions collons ce qu'il faut
    WBook = "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\4_HR\Vozzola\Cruscotto_HR - P&L ytd" & " " & PrevMonth1 & ".xlsx"
    Workbooks.Open WBook
    Range("A1:J39").Copy
    PPPres.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(2).Shapes("Object 1")
        .ScaleWidth 0.8, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Workbooks.Open WBook
    Sheets("Mkt per Presidenza").Activate
    Range("A1:K19").Copy
    PPPres.Slides(3).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("Retribuzioni per sede").Activate
    Range("A1:J52").Copy
    PPPres.Slides(4).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(4).Shapes("Object 1")
        .ScaleWidth 0.9, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Workbooks.Open WBook
    Sheets("Formazione per cdc").Activate
    Range("A1:K62").Copy
    PPPres.Slides(5).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(5).Shapes("Object 1")
        .ScaleWidth 0.8, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Workbooks.Open WBook
    Sheets("Viaggi per cdc").Activate
    Range("A1:K35").Copy
    PPPres.Slides(6).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(6).Shapes("Object 1")
        .ScaleWidth 0.85, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.85, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Workbooks.Open WBook
    Sheets("Viaggi per cdc").Rows("10:35").Hidden = True
     Range("A1:K62").Copy
    PPPres.Slides(7).Shapes.PasteSpecial ppPasteOLEObject
    Sheets("Viaggi per cdc").Rows("10:35").Hidden = False
    Sheets("Consulenze per cdc").Activate
    Range("A1:K50").Copy
    PPPres.Slides(8).Shapes.PasteSpecial ppPasteOLEObject
    ActiveWorkbook.Close False
    PPPres.Save
    PPPres.Close
 
 
 
           ' HR2
 
 
 
      Set PPPres = ppApp.Presentations.Open("D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\4_HR\Vozzola\Dir. Personale - P&L ytd" & " " & PrevMonth1 & ".pptx")
    PPPres.SaveAs "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\4_HR\Vozzola\Dir. Personale - P&L ytd" & " " & Month1 & ".pptx"
 
'Une fois ouvert, nous devons modifier le titre de la première slide en le supprimant et le réécrivant avec la variable du mois
    PPPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = " - Direzione HR Soremartec - Report Gestionale 17/18 Periodo : " & DateSlide
 
' Puis supprimer les slides
    PPPres.Slides(2).Shapes("Picture 2").Delete
    PPPres.Slides(3).Shapes("Picture 2").Delete
 
'Maintenant ouvrons le bon fichier excel et copions collons ce qu'il faut
    WBook = "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\4_HR\Vozzola\Dir. Personale - P&L ytd" & " " & PrevMonth1 & ".xlsx"
    Workbooks.Open WBook
    Range("A6:J20").Copy
    PPPres.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("DETT CDC YTD").Activate
    Range("A7:K13").Copy
    PPPres.Slides(3).Shapes.PasteSpecial ppPasteOLEObject
    ActiveWorkbook.Close False
    PPPres.Save
    PPPres.Close
 
 
 
 
           ' DIR SUGAR FREE PLATFORM
 
 
 
      Set PPPres = ppApp.Presentations.Open("D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\5_Dir. Sugar Free Platform\Dir. Sugar Free Platform - P&L ytd" & " " & PrevMonth1 & ".pptx")
    PPPres.SaveAs "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\5_Dir. Sugar Free Platform\Dir. Sugar Free Platform - P&L ytd" & " " & Month1 & ".pptx"
 
'Une fois ouvert, nous devons modifier le titre de la première slide en le supprimant et le réécrivant avec la variable du mois
    PPPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = " - Direzione HR Soremartec - Report Gestionale 17/18 Periodo : " & DateSlide
 
' Puis supprimer les slides
    PPPres.Slides(2).Shapes("Immagine 1").Delete
    PPPres.Slides(3).Shapes("Picture 2").Delete
 
'Maintenant ouvrons le bon fichier excel et copions collons ce qu'il faut
    WBook = "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\5_Dir. Sugar Free Platform\Dir. Sugar Free Platform - P&L ytd" & " " & PrevMonth1 & ".xlsx"
    Workbooks.Open WBook
    Range("A1:J25").Copy
    PPPres.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
    With PPPres.Slides(2).Shapes("Object 1")
        .ScaleWidth 0.85, msoTrue, msoScaleFromTopLeft
        .ScaleHeight 0.85, msoFalse, msoScaleFromTopLeft
        .IncrementLeft 0
        .IncrementTop 0
        End With
    Workbooks.Open WBook
    Sheets("DETT CDC YTD").Activate
    Range("A1:K8").Copy
    PPPres.Slides(3).Shapes.PasteSpecial ppPasteOLEObject
    ActiveWorkbook.Close False
    PPPres.Save
    PPPres.Close
 
 
 
 
           ' DQG
 
 
 
      Set PPPres = ppApp.Presentations.Open("D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\6_DQG\DQG - P&L ytd" & " " & PrevMonth1 & ".pptx")
    PPPres.SaveAs "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\6_DQG\DQG - P&L ytd" & " " & Month1 & ".pptx"
 
'Une fois ouvert, nous devons modifier le titre de la première slide en le supprimant et le réécrivant avec la variable du mois
    PPPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = " - Direzione Qualità Gruppo - Report Gestionale 17/18 Periodo : " & DateSlide
 
' Puis supprimer les slides
    PPPres.Slides(2).Shapes("Picture 2").Delete
    PPPres.Slides(3).Shapes("Picture 2").Delete
    PPPres.Slides(4).Shapes("Picture 2").Delete
 
'Maintenant ouvrons le bon fichier excel et copions collons ce qu'il faut
    WBook = "D:\Analisi\" & Year1 & "\CHIUSURE GESTIONALI\" & Folder & "\Report Utenti\6_DQG\DQG - P&L ytd" & " " & PrevMonth1 & ".xlsx"
    Workbooks.Open WBook
    Range("A1:J16").Copy
    PPPres.Slides(2).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("P&L MESE AREA").Activate
    Range("A1:R35").Copy
    PPPres.Slides(3).Shapes.PasteSpecial ppPasteOLEObject
    Workbooks.Open WBook
    Sheets("DETT CDC YTD").Activate
    Range("A1:K33").Copy
    PPPres.Slides(4).Shapes.PasteSpecial ppPasteOLEObject
    ActiveWorkbook.Close False
    PPPres.Save
    PPPres.Close
 
 
 
 
 
MsgBox ("Maccro completed" & Chr(13) & "Ex-Powerpoint canceled" & Chr(13) & "New powerpoint created" & Chr(13) & "Enjoy")
 
 
 
 
 
 
End Sub