1. #1
    Membre à l'essai
    Profil pro
    Consultant
    Inscrit en
    novembre 2010
    Messages
    18
    Détails du profil
    Informations personnelles :
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Consultant

    Informations forums :
    Inscription : novembre 2010
    Messages : 18
    Points : 20
    Points
    20

    Par défaut Positionner une feuille Excel lancée avec un bouton devant une diapo PowerPoint

    Bonjour,

    Je lance des feuilles sélectionnées d’Excel à partir de boutons dans PowerPoint. Afin de choisir la feuille à faire apparaitre j’utilise les codes suivants :

    Dans Power Point :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub CommandButton1_Click()
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Workbooks.Open FileName:="C:\Formation\FOR_107-Feuilles de calcul & Tableaux Démo01.xlsm"
    xlApp.Visible = True
    xlApp.Run "GoTo1"
    End Sub
    Dans Excel :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub GoTo1()
    ' GoTo1 Macro
        Sheets("1 - Tableau").Select
           Range("A1").Select
    End Sub
    Mon problème est le suivant, la plupart du temps la feuille Excel s’ouvre derrière PowerPoint, je dois faire Windows + Tab pour sélectionner la feuille Excel afin qu’elle passe devant et soit visible. Souvent aussi son format est réduit. J’ai remarqué que si j’exécute le code PowerPoint (format Présentation) directement depuis Visual Basic Editor une fois au début alors les feuilles Excel apparaissent ensuite toujours devant.
    Ma question est la suivante : que dois-je modifier dans mon code pour que les feuilles Excel apparaissent systématiquement devant la diapo PwP f(ormat Diaporama) et occupe l’écran en entier ?
    Merci d’avance !

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    12 031
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 12 031
    Points : 26 771
    Points
    26 771

    Par défaut

    SAlut

    regarde ceci dans la
    https://excel.developpez.com/faq/?pa...pliPremierPlan

    En l'adaptant on peut partir sur un code tres simple comme celui-ci

    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
    23
    24
    25
    26
    27
    Option Explicit
     
    Private Declare Function BringWindowToTop Lib "user32" _
        (ByVal Hwnd As Long) As Long
     
    Private Declare Function FindWindow Lib "user32" Alias _
        "FindWindowA" (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
     
    Private Declare Function ShowWindow Lib "user32" _
        (ByVal Hwnd As Long, ByVal nCmdShow As Long) As Long
     
    Sub CommandButton1_Click()
        Dim xlApp As Object
        Dim Hwnd As Long
        Set xlApp = CreateObject("Excel.Application")
        xlApp.Workbooks.Open FileName:="C:\Formation\FOR_107-Feuilles de calcul & Tableaux Démo01.xlsm"
    'Récupère le Handle d'une fenêtre
    'Le Handle est un nombre entier unique généré par Windows afin d'identifier les fenêtres.
        Hwnd = xlApp.Hwnd
     
        'Ramène Excel au premier plan
        BringWindowToTop Hwnd
        'Affiche en mode "Normal"
        ShowWindow Hwnd, 1
    xlApp.Run "GoTo1"
    End Sub
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Membre à l'essai
    Profil pro
    Consultant
    Inscrit en
    novembre 2010
    Messages
    18
    Détails du profil
    Informations personnelles :
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Consultant

    Informations forums :
    Inscription : novembre 2010
    Messages : 18
    Points : 20
    Points
    20

    Par défaut Faire apparaitre une feuille Excel devant un diapo PowerPoint

    Merci pour la solution! Je n'ai pas encore tout compris mais ça marche!

    Très cordialement

    Gdmeunier



    Citation Envoyé par Jean-Philippe André Voir le message
    SAlut

    regarde ceci dans la
    https://excel.developpez.com/faq/?pa...pliPremierPlan

    En l'adaptant on peut partir sur un code tres simple comme celui-ci

    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
    23
    24
    25
    26
    27
    Option Explicit
     
    Private Declare Function BringWindowToTop Lib "user32" _
        (ByVal Hwnd As Long) As Long
     
    Private Declare Function FindWindow Lib "user32" Alias _
        "FindWindowA" (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
     
    Private Declare Function ShowWindow Lib "user32" _
        (ByVal Hwnd As Long, ByVal nCmdShow As Long) As Long
     
    Sub CommandButton1_Click()
        Dim xlApp As Object
        Dim Hwnd As Long
        Set xlApp = CreateObject("Excel.Application")
        xlApp.Workbooks.Open FileName:="C:\Formation\FOR_107-Feuilles de calcul & Tableaux Démo01.xlsm"
    'Récupère le Handle d'une fenêtre
    'Le Handle est un nombre entier unique généré par Windows afin d'identifier les fenêtres.
        Hwnd = xlApp.Hwnd
     
        'Ramène Excel au premier plan
        BringWindowToTop Hwnd
        'Affiche en mode "Normal"
        ShowWindow Hwnd, 1
    xlApp.Run "GoTo1"
    End Sub

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

Discussions similaires

  1. [PPT-2013] Bouton avec macro pour ouvrir une feuille Excel PowerPoint 2013
    Par gdmeunier dans le forum Powerpoint
    Réponses: 0
    Dernier message: 27/10/2014, 13h10
  2. Ajout d'un bouton dans une feuille excel avec vba
    Par nsqualli dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 25/11/2008, 15h35
  3. [VBA] Pb avec Copier/coller d'une feuille Excel
    Par sebastien_oasis dans le forum Excel
    Réponses: 3
    Dernier message: 14/12/2007, 11h08
  4. Réponses: 24
    Dernier message: 15/10/2007, 14h41
  5. Réponses: 2
    Dernier message: 04/10/2006, 10h45

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