Piloter PowerPoint en caché via Excel

Bonjour à tous,

Après pas mal de recherches, je n'arrive pas à trouver de solution à mon problème ... Je vous explique :

J'ai développé une macro VBA sous Excel permettant de construire un document PowerPoint mais j'aimerais que pendant la création de celui-ci, ce soit masquer afin de ne pas laisser l'utilisateur voir la construction mais aussi d'un point de vue performances ...
A la fin de ma macro, le document PowerPoint se réaffiche pour ainsi montrer qu'il a été généré

J'ai essayé avec différentes choses mais sans succès ...

Pourriez-vous m'aider à surmonter cette difficulté que je rencontre ?

Merci d'avance ;)

Bonjour,

Lorsque tu ouvres ta presentation, il y a un paramètre WithWindow que tu mets à msoFalse pour masquer la présentation.
Tu peux la remettre à msoTrue pour l'afficher.

Bonjour Parmi,

Merci pour ta réponse !

Je viens de tester et en effet à priori, PowerPoint ne s'affiche pas mais j'ai deux problèmes ...
- D'une part, je ne parviens pas à remettre le WithWindow à msoTrue
- D'autre part, certaines de mes actions ne fonctionnent plus ... notamment celles qui interagissent avec les graphiques (ex : myshape.Chart.HasTitle = False)

Merci d'avance

Salut,

sans forcement passer par le window, tu peux tres bien utiliser le

Code:

---

1 2 3

'si tu utilises par exemple 'Dim PPTapp as PowerPoint.Application PPTapp.Visible = False

---

Bonjour Jean-Philippe,

En appliquant le Visible, j'obtiens malheureusement cette erreur : "Erreur d'execution '-2147188 1610 (88048240)' : Application.Visible : Invalid request. Hiding the application window is not allowed"

OK, mais sans nous montrer ton code, ca va etre complique.

Un petit effort pour nous montrer ton code serait une premiere bonne chose stp

:cristal:


Edit :

Code:

---

1 2 3 4 5 6 7 8

Sub piou() Dim p As Object Set p = CreateObject("powerpoint.Application") p.Visible = True p.WindowState = 2 'ppWindowMinimized p.Quit Set p = Nothing End Sub

---

Oui ça sera plus parlant :D

Voici un bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub creationPPT()   'Ouverture de PowerPoint On Error Resume Next Set PowerPointApp = GetObject(class:="PowerPoint.Application") Err.Clear If PowerPointApp Is Nothing Then Set PowerPointApp = CreateObject(class:="PowerPoint.Application") End If PowerPointApp.Visible = False Set myPresentation = PowerPointApp.Presentations.Open(Sheets("Main").Range("Q19"), ReadOnly:=msoTrue)     MsgBox "Normalement rien n'est affiché ! Et pourtant ...."     PowerPointApp.Visible = True     End Sub

---

Ok,

a noter que si on ne precise pas Visible = True, c'est cache par defaut

Code:

---

1 2 3 4 5 6 7

Sub piou() Dim p As Object Set p = CreateObject("powerpoint.Application") 'le reste de ton code p.Quit Set p = Nothing End Sub

---

Bonjour,

et pour afficher si besoin par la suite PPT, à main levée ça doit ressembler à ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub creationPPT() Dim PowerPointApp As Object 'Ouverture de PowerPoint On Error Resume Next Set PowerPointApp = GetObject(, "PowerPoint.Application") Err.Clear If PowerPointApp Is Nothing Then Set PowerPointApp = CreateObject("PowerPoint.Application") End If On Error GoTo 0   ' ici normalement l'appli est invisible   ' ouverture cachée Set myPresentation = PowerPointApp.Presentations.Open("Chemin/Fichier.pptx", msoTrue, , msoFalse)   ' ici ça redevient visible PowerPointApp.Activate End Sub

---

Bonjour,

Merci pour vos réponses !

Avec la solution de Joe, PowerPoint se réaffiche mais pas ma présentation. Comment l'afficher ?

Aussi, dans ce mode de fonctionnant, impossible d'utiliser certaines fonctions graphiques telles que :

Code:

---

1 2 3 4 5 6 7 8 9 10

Set myShape = mySlide.Shapes(mySlide.Shapes.Count) myShape.Chart.HasTitle = False For Each courbe In myShape.Chart.SeriesCollection If courbe.Format.Line.Weight = 9 Then courbe.Format.Line.Weight = 5 Else courbe.Format.Line.Weight = 2 End If Next courbe

---

Comment puis-je contourner ce problème ?

J'ai tenté un myPresentation.Activate ... mais c'est pas valable malheureusement :?

PowerPoint est une application qui est visuelle, donc elle prend tres mal le fait qu'on souhaite la cacher =]

Si jamais tu veux cacher ou ne pas afficher, tu peux toujours tente le screenupdating a False pour Excel.

Oui je comprends ... mais du coup, l'utilisateur va voir le PowerPoint se construire ... Je voudrais en fait ne pas qu'il puisse voir PowerPoint ou intéragir avec lui ... Ce n'est donc pas possible c'est bien ça ?