Sub Export_Donnee_Excel_PPT()


'Declare les variables PPT

Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim PPTSlide As PowerPoint.Slide
Dim myPPT As Object
Dim Nomdest As String



'Declare variables Excel

Dim ExcRng As Range
Dim RngArray As Variant



'Selectionner un Range

Sheets("Divers").Select
Range("B49:E55").Select
Selection.Copy



'Ouvrir pres PPT

Set myPPT = CreateObject("Powerpoint.application")
myPPT.Visible = True


'Chemin vers la presentation
myPPT.Presentations.Open "S:\Site web + investment proposal\PPT_Test.pptx"


Set PPTSlide = myPPT.ActivePresentation.Slides(2)



'Collage normal

PPTSlide.Shapes.Paste


'C'est ici que je souhaite enrengistrer le fichier sous le path suivant ("S:\Site web + investment proposal\PPT_Test_final.pptx") et fermer la présentation! 

'myPPT.Close True
'Set pptPres = pptApp.Save.Nomdest
'Set pptPres = pptApp.SaveAs("S:\Site web + investment proposal\PPT_Test_final.pptx")
'pptPres.Close
'Set pptPres = pptApp.ActivePresentation.
'Application.ActivePresentation.SaveAs ("S:\Site web + investment proposal\PPT_Test_final.pptx")
'pptPres.SaveAs ("S:\Site web + investment proposal\PPT_Test.pptx")
'.SaveAs "S:\Site web + investment proposal\PPT_Test_Saved.pptx"
'ActivePresentation.SaveCopyAs Filename:="C:\Copy 1.ppt"
'Set MyPresentation = ActivePresentation
'MyPresentation.SaveAs = "S:\Site web + investment proposal\PPT_Test_Saved.pptx"
'Set PPTPres = ActivePresentation
'PPTPres.ActivePresentation.SaveAs = "S:\Site web + investment proposal\PPT_Test_Saved.pptx"
'PPTPres.SaveAs "S:\Site web + investment proposal\PPT_Test_V2.pptx"