Discussion :

[yeti7984]

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 :

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

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?

[Marc-L]

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 dans la section macros VBA, piloter d'autres applications depuis Excel …

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

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

[yaqqq]

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 :

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

[Juju00]

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