Problème de fermeture de powerpoint via VBA ExcelRésolu

Question

Voilà, je crée un fichier powerpoint avec d'autre powerpoint depuis excel mais le problème est que lorsque tout est fini je lui demande deme fermer powerpoint et ensuite de m'afficher un texte box. Mais impossible car il m'affiche le texte box avant la fermeture ce qui fait qu'on ne le voie pas dirrectement il faut cliquer sur excel puis validé le texte box pour que powerpoint ce ferme. Si quelqu'un c'est pourquoi ?

merci d'avance, voici le code de ma macro :


Sub generateurppt()

'definition du chemin vers le repertoire des modules
Dim chemin As String
Dim cheminmodule As String
chemin = ActiveWorkbook.Path & "\suport_formation.ppt"
cheminmodule = ActiveWorkbook.Path & "\modules"
Dim passage As String
Dim ouvert As String

Dim temps(1 To 300, 1 To 2) As String
Dim nbmodule As Double
nbmodule = 0
For i = 1 To 3000
If UCase(Range("B" & i)) = "X" Then
nbmodulde = nbmodulde + 1
temps(nbmodulde, 1) = nbmodulde
temps(nbmodulde, 2) = Range("c" & i)
Else
End If

Next i

If nbmodulde = 0 Then

MsgBox ("Merci de selectionner au moins un module.")
Beep
Else

Dim ppt As Object
Dim Pres As Object
    Set ppt = CreateObject("PowerPoint.Application")
  
  ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
  ' On crée maintenant un objet Presentation
  
    Set Pres = ppt.Presentations.Open(Filename:=cheminmodule & temps(1, 2) & ".ppt")
    
    
Dim fingeneral As Double
Dim curentfin As Double
    For i = 2 To nbmodulde
    With ppt.ActivePresentation
    fingeneral = .Slides.Count
    End With
    
    
    Set bob = ppt.Presentations.Open(Filename:=cheminmodule & temps(i, 2) & ".ppt")
    With ppt.ActivePresentation
    curentfin = .Slides.Count
    End With
    bob.Close
    
ppt.ActivePresentation.Slides.InsertFromFile _
    cheminmodule & temps(i, 2) & ".ppt", fingeneral, 1, curentfin

Next i
ppt.ActivePresentation.SaveAs Filename:=chemin
ppt.ActivePresentation.Close
ppt.Quit 'fermer powerpoint

MsgBox ("Votre fichier de formation est diponnible à cette adresse : " & chemin)
End If

End Sub

cs_chapata · Accepted Answer

Salut Steed12 ...

Attends ton programme est dans Excel ... je l'ai test&#233; ... il ouvre et rend visible PPT suivant le choix du module (j'ai ouvert une pr&#233;sentation vierge pour ne pas que &#231;a beug)
apr&#232;s tu fais ..

ppt.ActivePresentation.Close
ppt.Quit 'fermer powerpoint

MsgBox ("Votre fichier de formation est diponnible &#224; cette adresse : " & chemin)

J'ai bien PPT qui se ferme et mon message Excel apr&#232;s ... pour moi pas de prob.
Fais un excel.application.visible=true avant ta fermeture de PPT ... peut-&#234;tre que cela va march&#233;. Mais comme je te l'ai dis chez moi ca suis bien l'ordre que tu as pr&#233;-d&#233;fini.

ChaPaTa

cs_69chris · Answer

Salut,

Je suis pas un pro VBA mais je pense &#224;
.DisplayAlerts = False
Enfin pour toi c'est
   ppt.DispayAlerts = False
En plus, si tu a erreur &#224; l'ouverture du fichier, y a pas de message donc pas besoin d'afficher PowerPoint. Faut juste v&#233;rifier que le fichier existe avant de l'ouvrir.

Chris

N'oubliez pas de cloturer votre post.

cs_chapata · Answer

Hi,
essai le ppt.visible true ou le ppt.activate true ...
je suis pas sur que cela fonctionne ... mais qui ne tente &#224; rien n'a rien (lol)

ChaPaTa

cs_steed12 · Answer

En fait je me suis peut etre mal exprimer, je veux fermer powerpoint puis lancer un message box.

cs_69chris · Answer

Tout d'abord, d&#233;sol&#233;, j'avais pas test&#233; et vu le Pb. Je pensais que PowerPoint affichais une fen&#234;tre de dialogue et que c'est elle qui emp&#233;chais la fermeture.
Donc, apr&#232;s un petit essai, voici ma conclusion.
Transforme ta Sub en Function qui renvoi le "chemin". Et fais une sub qui appelle cette fonction.
Pour faire simple, comme &#231;a.

Function generateurppt() As String

'definition du chemin vers le repertoire des modules
Dim chemin As String
Dim cheminmodule As String
chemin = ActiveWorkbook.Path & "\suport_formation.ppt"
cheminmodule = ActiveWorkbook.Path & "\modules"
Dim passage As String
Dim ouvert As String

Dim temps(1 To 300, 1 To 2) As String
Dim nbmodule As Double
nbmodule = 0
For i = 1 To 3000
If UCase(Range("B" & i)) = "X" Then
nbmodulde = nbmodulde + 1
temps(nbmodulde, 1) = nbmodulde
temps(nbmodulde, 2) = Range("c" & i)
Else
End If

Next i

If nbmodulde = 0 Then

MsgBox ("Merci de selectionner au moins un module.")
Beep
Else

Dim ppt As Object
Dim Pres As Object
    Set ppt = CreateObject("PowerPoint.Application")
  
  ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
  ' On cr&#233;e maintenant un objet Presentation
  
    Set Pres = ppt.Presentations.Open(Filename:=cheminmodule & temps(1, 2) & ".ppt")
    
    
Dim fingeneral As Double
Dim curentfin As Double
    For i = 2 To nbmodulde
    With ppt.ActivePresentation
    fingeneral = .Slides.Count
    End With
    
    
    Set bob = ppt.Presentations.Open(Filename:=cheminmodule & temps(i, 2) & ".ppt")
    With ppt.ActivePresentation
    curentfin = .Slides.Count
    End With
    bob.Close
    
ppt.ActivePresentation.Slides.InsertFromFile _
    cheminmodule & temps(i, 2) & ".ppt", fingeneral, 1, curentfin

Next i
ppt.ActivePresentation.SaveAs Filename:=chemin
ppt.ActivePresentation.Close
ppt.Quit 'fermer powerpoint

End If

End Function

Sub AppelGenerateur()
    
    MsgBox ("Votre fichier de formation est diponnible &#224; cette adresse : " & generateurppt())
End Sub

PowerPoint se ferme en premier.

Chris

N'oubliez pas de cloturer votre post.

Problème de fermeture de powerpoint via VBA Excel

5 réponses

Discussions similaires