Erreur d'execution 2147188720 - Presentation.Slides : Object does not exist

Bonjour,

J'effectue une macro qui doit me permettre de transformer une feuille excel en présentation PowerPoint.

Tout le code fonctionnait jusqu'à l'ouverture de la diapo mais il y a une erreur à la fin du code.

L'erreur est la suivante :

L'erreur est sur la ligne en gras à la fin du code suivant :

CODE :

Sub exportPPT()

'1 récupérer les adresses des pages d'impression

Dim plages As String: plages = ""

Workbooks("Extraction_REX.xlsm").Activate
Sheets("MA FEUILLE").Select

With ActiveSheet.HPageBreaks
If .Count = 0 Then
plages = ActiveSheet.UsedRange.Address
Else
debut = 1

For i = 1 To .Count

ligneSaut = .Item(i).Location.Row

derniereColonne = ActiveSheet.UsedRange.Columns.Count

plages = plages & Range(Cells(debut, 1), Cells(ligneSaut - 1, derniereColonne)).Address & "-"

debut = ligneSaut
Next

ligneFin = ActiveSheet.UsedRange.Rows.Count
plages = plages & Range(Cells(debut, 1), Cells(ligneFin - 1, derniereColonne)).Address & "-"
plages = Left(plages, Len(plages) - 1)

End If

End With

'2 exporter vers ppt
Dim oPowerpoint As Object
Set oPowerpoint = CreateObject("Powerpoint.application")
Dim oDiaporama As Object
Set oDiaporama = oPowerpoint.Presentations.Add

idDiapo = 1

For Each plage In Split(plages, "-")
Dim oDiapositive As Object
Set oDiapositive = oDiaporama.Slides.Add(Index:=idDiapo, Layout:=ppLayoutBlank)

ActiveSheet.Range(plage).copy
oDiaporama.Slides(idDiapo).Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
idDiapo = idDiapo + 1

Next

End Sub

Avez-vous la solution ?

Merci d'avance,

Maxence GOURJAULT

J'ai trouvé tout seul la solution :

oDiaporama.Slides(idDiapo).Shapes.PasteSpecial (ppPasteEnhancedMetafile)

sur la ligne en gras