ouvrir et fermer powerpoint via macro excel

Bonjour

je viens vers vous car j'ai un petit soucis

j'ai besoin pour automatiser un fichier excel , qu'une macro puisse ouvrir et fermer un .pps

pour l'ouvrir j'ai trouvé ceci :

Code:

---

1 2 3 4 5

Sub LancerPPT() Dim Cible Cible = Shell("POWERPNT.EXE ""C:\Mes documents\flux prod maint compta.pps""", 1) End Sub

---

par contre je n'arrive pas a trouver comment faire pour le fermer

quelqu'un peu t'il m'aider?

Bonjour,

vu la méthode d'ouverture, c'est quasi mort sauf en passant par les API Windows, à rechercher de ce côté …

Sinon plus simple en changeant le fusil d'épaule : laisser VBA contrôler l'application.

Voir donc la :faq: dans la section macros VBA, piloter d'autres applications depuis Excel …

Il faut que tu commences par charger la librairie d'objets PowerPoint.
Dans ton éditeur VBA, tu sélectionnes le projet dans lequel va se trouver ta macro.
Tu fais : Outils -> Références.
Dans la liste, tu coches Microsoft PowerPoint Object Library.
Clique OK.

A partir de là, tu pourras utiliser dans ton code VBA Excel les objets, méthodes et propriétés de PowerPoint.
Donc, tu pourras ouvrir ou fermer des fichiers PowerPoint avec les mêmes méthodes que si tu étais sous PowerPoint.

Je ne connais pas bien le VBA PowerPoint mais je pense que tu ouvres une présentation avec Presentations.Open et que tu la fermes avec Presentation.Close (remarque que le premier Presentations est au pluriel et le second au singulier).
Tu n'auras pas de difficulté à confirmer ça dans l'aide VBA PowerPoint et à y trouver les détails de ces commandes..

Citation:

---

Envoyé par Menhir

Il faut que tu commences par charger la librairie d'objets PowerPoint.
Dans ton éditeur VBA, tu sélectionnes le projet dans lequel va se trouver ta macro.
Tu fais : Outils -> Références.
Dans la liste, tu coches Microsoft PowerPoint Object Library.
Clique OK.

---

Apres - peut etre esayez ca:

Code:

---

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

Sub ExcelPPoint() Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation ' Aussi: Dim PPSlide As PowerPoint.Slide   Set PPApp = CreateObject("Powerpoint.Application") PPApp.Visible = True Set PPPres = PPApp.Presentations.Open ("pres1.ppt")   ' ici tu peux faire qqchose... ' PPApp.ActiveWindow.ViewType = ppViewSlide ' etc ' PPPres.save ' PPPres.saveAs "hhkvfg.ppt"   PPPres.Close PPApp.Quit   ' Set PPSlide = Nothing Set PPPres = Nothing Set PPApp = Nothing End Sub

---

Hello, je suis premièrement passé par cette page puis j'y ai réussi en faisant un copié/collé de ce code sur ce site :
https://excelcorpo.com/execution-dun...ir-dexcel-vba/

il suffit de supprimer ou mette en commentaire la partie où il lance la présentation et quitte l'application.

Bonne journée