Macro sommaire présentation PPT

Bonjour,

J'ai besoin d'urgence svp d'une aide. J'ai besoin de faire une macro pour avoir un sommaire automatique sous une présentation power point. Alors j'ai trouvé une macro qui fonctionne super bien mais j'ai besoin de la modifier pour qu'elle me fasse le sommaire après la slide 56, et qu'elle ne prenne que les slides où j'ai un style de titre défini sinon passe a la diapo suivante. Exemple en diapo 56 j'ai France mais en diapo 57 J'ai France (1) en diapo 58 France (2) etc et donc je veux qu'elle passe directement à la slide où elle aura le deuxième pays Espagne en diapo 59.

Merci d'avance pour votre aide.

Ci-dessous la macro qui m'a aidée jusqu'à présent:

Sub TablesMatière()
On Error Resume Next
Dim MonCustomLayout As PowerPoint.CustomLayout
Dim SI As Slide, tm As Slide, z As TextRange, NSI As Single
Dim t As String
Dim Pres As Presentation

Set Pres = PowerPoint.ActivePresentation
Set MonCustomLayout = Pres.SlideMaster.CustomLayouts.Item(PowerPoint.PpSlideLayout.ppLayoutText)
Set SI = Pres.Slides.AddSlide(2, MonCustomLayout)
SI.Shapes.Title.TextFrame.TextRange.Text = "Sommaire"

Set z = SI.Shapes(2).TextFrame.TextRange
'Set NSI = Pres.Slides(2).SlideIndex

For NSI = 2 To Pres.Slides.Count
'récupère le texte du titre de la diapo d'index NSI
t = NSI & " " & Pres.Slides(NSI).Shapes(1).TextFrame.TextRange.Text
'Affiche à la fin du texte la valeur de t et lui rajoute un retour à la ligne
z.Paragraphs.InsertAfter (t & Chr(13))
'z.Text = "essai pour voir" & Chr(13)
'z.Paragraphs.InsertAfter ("réussi" & Chr(13))
'Je rajoute un lien qui pointe sur le slide correspondant
'z.Paragraphs(z.Paragraphs.Count).ActionSettings(ppMouseClick).Hyperlink.SubAddress = sli.SlideID & ",,"
Next NSI

End Sub

Merci d'avance.

Cordialement,

Hajar

Rechercher des sujets similaires à "macro sommaire presentation ppt"