Discussion :

[gladus_81]

Bonjour,
j'ai créer un outil sur Excel permettant plusieurs applications, dont une est de lancer un diaporama d'aide à l'utilisation de cet outil.
Mon problème est que je souhaite par le biais d'un bouton et uniquement par un bouton à fermer power point, ce que j'arrive à faire grâce à ceci :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
Application.Quit
End Sub

et de rappeler mon fichier Excel ce que je n'arrive pas à faire :

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Windows("Indicateur_TPR_ID.xls").Activate
ActiveSheet.Visible = True
End Sub

Cette macro ne marche pas où est l'erreur svp ?
Merci pour la réponse.
Gladus

[Invité]

Bonjour

Est-ce que ta question est résolue ou non ?

De plus, ta deuxième routine se trouve où ? Dans PPT ou dans Excel ?

Philippe

[gladus_81]

Bonjour

Ma question n'est pas résolue

Ma deuxième routine se trouve dans PPT

Gladus

[Didier Gonard]

Bonjour,

Ma question n'est pas résolue

Peut-être pas si simple, mais on trouve toujours tout sur DvP
A voir selon ton contexte, au niveau « Api-Culture » j’en suis au début, donc je butine

Voir ici :
http://www.developpez.net/forums/d68...d-deja-ouvert/

http://support.microsoft.com/kb/104710/fr

code bouton sur Feuille Excel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Private Sub cmdFeuilToPpt_Click()
Dim OBJppt As PowerPoint.Application
Dim objPresent As PowerPoint.Presentation
 
Set OBJppt = New PowerPoint.Application
OBJppt.Visible = msoTrue
Set objPresent = OBJppt.Presentations.Open("E:\Pass2.ppt")
objPresent.SlideShowSettings.Run
 
End Sub

ou bien code bouton dans USF :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Private Sub CmdPPT_Click()
Dim OBJppt As PowerPoint.Application
Dim objPresent As PowerPoint.Presentation
 
Set OBJppt = New PowerPoint.Application
OBJppt.Visible = msoTrue
Set objPresent = OBJppt.Presentations.Open("E:\Pass2.ppt")
Unload Me
objPresent.SlideShowSettings.Run
End Sub

code bouton sur Slide PPT :

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
Option Explicit
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
 
Private Declare Function FindWindowByClass Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal NullPointer As Long) As Long
 
Const SW_RESTORE  As Long = 9
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
 
Private Declare Function IsIconic Lib "user32" (ByVal hWnd As Long) As Long
 
Private Sub cmdDePptQuit_Click()
Dim hWnd As Long
 
hWnd = FindWindowByClass("XLMain", 0)
If hWnd Then
   If IsIconic(hWnd) Then
      ShowWindow hWnd, SW_RESTORE
   End If
   SetForegroundWindow hWnd
End If
Application.Quit
End Sub

cordialement,

Didier

[gladus_81]

Je reformule mon problème.

J'ai un fichier Excel qui me permet d'ouvrir un PowerPoint en plein écran via un bouton, voici le code

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton3_Click()
Dim FichierPpt, pwpt, presppt
Set pwpt = CreateObject("PowerPoint.Application")
pwpt.Visible = True '
Set presppt = pwpt.presentations.Open(Filename:="G:\.........\Aide_TPR_ID.ppt")
pwpt.Visible = True
presppt.SlideShowSettings.Run
End Sub

Une fois le diaporama visioné, je souhaiterai fermer le diaporama et revenir sur mon fichier Excel.
Pour fermer le diaporama j'utilise ce code

Code :

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

1
2
3
Private Sub CommandButton1_Click()
Application.Quit
End Sub

Et pour revenir sur mon fichier Excel j'ai tenté celui-ci

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Windows("Indicateur_TPR_ID.xls").Activate
ActiveSheet.Visible = True
End Sub

Mais il ne marche pas.

Pouriez vous donc m'aider à trouver la macro permettant
de revenir sur mon fichier Excel.

Merci

[gladus_81]

Ca y est j'ai trouvé, voici le code

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
AppActivate ("Nom du fichier excel.xls")
Application.Quit
End Sub

La 1er ligne sert donc à revenir sur le fichier Excel et la 2ème à quitter le PowerPoint.

Voilà, merci quand même