IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Code VBA pour faire ouvrir une présentation pptx et la refermer en revenant dans Excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre du Club
    Homme Profil pro
    Ingénieur commercial
    Inscrit en
    Septembre 2018
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Pyrénées Orientales (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Ingénieur commercial

    Informations forums :
    Inscription : Septembre 2018
    Messages : 5
    Par défaut Code VBA pour faire ouvrir une présentation pptx et la refermer en revenant dans Excel
    Bonsoir,

    Quelqu'un peut-il m'aider à modifier le code VBA suivant afin de pouvoir ouvrir une présentation pptx en mode diaporama seul, car cela m'ouvre en fait le fichier PowerPoint et le diaporama en simultanée actuellement ?

    Par ailleurs, j'aimerais que le diaporama se ferme automatiquement à la fin et que l'on revienne directement sur le fichier Excel.

    Voici le code actuel:
    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
     
    Sub Ouvre()
     
    Dim FichierPpt As String, pwpt As Object, presppt As Object
     
        FichierPpt = "C:\...\....pptx"
        Set pwpt = CreateObject("PowerPoint.Application")
        pwpt.Visible = True
     
        Set presppt = pwpt.Presentations.Open(Filename:=FichierPpt)
        presppt.SlideShowSettings.Run
     
        Set presppt = Nothing
        Set pwpt = Nothing
     
    End Sub
    Merci d'avance.

    Cordialement,

    Yoann.

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Je n'ai jamais manipuler d'objets PowerPoint en VBA, mais je suppose que ce doit être quelque chose comme ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
        Dim FichierPpt As String, PPPres As PowerPoint.presentation
     
        FichierPpt = "C:\...\....pptx"
        Set PPPres = GetObject(FichierPpt)
        PPPres.Application.Visible = True
     
        PPPres.SlideShowSettings.Run
     
        PPPres.Application.Quit
        Set PPPres = Nothing

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2013] Code VBA pour envoi d'une alerte échéance dans une bal Yahoo
    Par mwasikitoko dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 03/03/2015, 15h56
  2. [XL-2010] Code VBA pour ajout d'une date lorsqu'elle n'existe pas
    Par Jey14 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 25/10/2013, 13h39
  3. Réponses: 1
    Dernier message: 09/01/2012, 13h52
  4. [AC-2003] code VBA pour faire des tri
    Par mb861972 dans le forum VBA Access
    Réponses: 7
    Dernier message: 14/10/2010, 16h05
  5. [XL-2007] Code vba pour faire un explorateur
    Par theBinette dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 02/12/2009, 19h50

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo