Insertion d'une feuille excel dans un powerpoint en VBA

Bonjour

je cherche à insérer un objet de type fichier excel dans un slide d'un fichier powerpoint et tout ce ci en macro VBA.
J'ai déjà un code VBA qui me permet de créer le fichier excel en questions + les slides de powerpoint maintenant il me reste juste cette action d'insertion de l'excel dans le powerpoint.

Quelqu'un sait-il comment faire svp ?
merci à vous

Bonjour,

Citation:

---

Envoyé par metmtl

Bonjour

je cherche à insérer un objet de type fichier excel dans un slide d'un fichier powerpoint et tout ce ci en macro VBA.
Quelqu'un sait-il comment faire svp ?
merci à vous

---

Avec un petit peu de recherche.

Mais, je te laisse le plaisir de trier.

bonjour

merci mais je ne cherche pas à intégrer un tableau dans ppt mais un objet de type fichier excel dans un slide.
En gros je voudrais faire en VBA ce qui est fait manuellement dans https://support.office.com/fr-fr/art...f-11d57554138d

Insérer un tableau, une image, un graphique ou une feuille de calcul, c'est le même principe. Tu ajoutes une shape à la collection shapes.

https://msdn.microsoft.com/fr-fr/lib.../ff746621.aspx

https://msdn.microsoft.com/fr-fr/lib...or=-2147217396

super ca marche !!! c'est le petit coup de pouce qui me manquait :) merci beaucoup....
voici le code que j'ai intégré :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub insert_fichier_excel_dans_ppt()   Dim pwpt As PowerPoint.Application Dim fichier_à_completer As PowerPoint.Presentation   Set pwpt = CreateObject("PowerPoint.Application") pwpt.Visible = True   Set fichier_à_completer = pwpt.Presentations.Open(Filename:=chemin & nom_du_fichier_ppt & ".pptx")   ' insère le fichier excel comme objet dans le slide 4 du ppt fichier_à_completer.Slides(4).Shapes.AddOLEObject Left:=100, Top:=100, Width:=200, Height:=300, Filename:=chemin_excel_a_integrer, DisplayAsIcon:=True   fichier_à_completer.Save   Set fichier_à_completer = Nothing pwpt.Quit Set pwpt = Nothing   End Sub

---