Discussion :

[orban]

Bonjour à tous,
Savez vous s'il est possible de créer un sommaire automatique avec PowerPoint?
Cette procédure existe sur word, et j'aimerais refaire la même chose.
Merci de votre précieuse aide.

[marabout]

L'option n'existe pas telle quelle... Avec un peu de VBA tu devrais peut-être y arriver.

[orban]

Bonjour et merci Marabout,
le probléme est que je ne suis pas trés doué, pour ne pas dire, pas du tout en VBA.
Y a t il un code qui permettrait de faire ce sommaire ?
Merci d'avance.
Cordialement

[Hatchepsout]

je sais pas si vraiment ca que tu cherche

mais bon regard un peut la http://www.01net.com/editorial/23349...es-matieres-./

kajol ++

[orban]

Bonjour et merci kajol,
Je suis allé sur le site et j'ai recopié le programme mais il y a des erreurs.
Si quelqu'un peut regarder le code et voir les modifs faire.
Merci d'avance à tous.

En rouge les endroits où j'ai une erreure, pour info j'ai fais les traits avec la barre qui est sous le 8 du clavier et les parenthéses avec le symboles sous le 3.

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
 
Sub tableMatieres()
Dim SI As Slide, tm As Slide, z As TextRange
Dim t
On Error Resume Next
Set tm = ActivePresentation.Slides.Add(Index = 1, -Layout = ppLayoutText)
Set z = tm.Shapes(2).TextFrame.TextRange
tm.Shapes.Title.TextFrame.TextRange.Text = -"SOMMAIRE"
For Each SI In ActivePresentation.Slides
t = "Diapositive" & SI.SlideIndex
t=" "&
SI.Shapes.Title.TextFrame.TextRange.Text
If t = " " Then t = "________"
z.Paragraphs.InsertAfter (Chr(13) & t)
z.Paragraphs(z.Paragraphs.Count._
ActionSettings (ppMouseClick)
.Hyperlink.SubAdress = SI.SlideID&",,"
Next
End Sub