Coller sur un slide

Bonjour
J'ai un code qui marche jusqu'a la dernière ligne (avant end sub) où j'ai erreur d'éxecution '-214...
shapes(unknown member)

Code:

---

1 2 3 4 5 6 7 8 9

Sub copie() Dim ppt As Object, pres As PowerPoint.Presentation, ppSlide1 As PowerPoint.Slide, pptLayout As CustomLayout DoCmd.OpenForm "F_évo_familles", acNormal DoCmd.RunCommand acCmdCopy Set pptLayout = ActivePresentation.Slides(1).CustomLayout Set ppSlide1 = ActivePresentation.Slides.AddSlide(5, pptLayout) ppSlide1.Shapes.Paste   End Sub

---

j'espère qu'une personne m'aidera à trouver la solution

Bonjour,

Je pense que le problème vient du fait qu'il ne sait pas quoi coller.
Ta commande "DoCmd.RunCommand acCmdCopy" nécessite surement une cible (du texte, un contrôle...)
Essaie ta commande et effectue un ctrl+v dans ton powerpoint. Tu verras ainsi ce qu'il cherche à coller.

Cordialement,

Effectivement c'est sa il cherche quoi coller?? Comment résoud t-on ce problème? Comment ouvrir mon formulaire puis faire la copie