Discussion :

[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.
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

[clementmarcotte]

Bonjour,

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.

[metmtl]

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

[clementmarcotte]

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

[metmtl]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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