Option Explicit
Sub Excel_pdf()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim ld&, lf&, cd&, cf&
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\outil DU info\nouveau dispositif\Présentation1.ppt")
'copie la plage de cellules dans la feuille Excel active
'Sheets("Extraction").Range("B1:H5").Copy
ld = [tablo].Find("début", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
cd = [tablo].Find("*", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column
lf = [tablo].Find("fin", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
cf = [tablo].Find("*", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
'Copier une plage depuis Excel
ActiveSheet.Range(Cells(ld, cd), Cells(lf, cf)).Copy
With PptApp
'Effectue un collage dans la 2eme diapositive
.ActiveWindow.ViewType = ppViewSlide
.ActivePresentation.Slides(2).Select
.ActiveWindow.View.Paste
End With
Set PptApp = Nothing
Set PptDoc = Nothing
End Sub