Discussion :

[gdmeunier]

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 !

[Jean-Philippe André]

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

[gdmeunier]

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

Très cordialement

Gdmeunier

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