Discussion :

[JOUEURDEGOLF]

bonjour,
j'ai réalisé une présentation powerpoint interactive avec des sujets qui me permettent d'aller à l'essentiel avec un interlocuteur.
une fois la présentation terminée, je désire avoir la liste des pages que j'ai vues.
existe t-il un moyen de le faire?

[Invité]

Bonjour,

La présentation jointe contient les codes suivants :

Dans un module de classe nommé EventClassModule

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Option Explicit
 
Public WithEvents App As Application
 
Private Sub App_SlideSelectionChanged(ByVal SldRange As SlideRange)
 
        MemoriserLeSlideConsulte SldRange.Name
 
End Sub
 
 
Sub MemoriserLeSlideConsulte(ByVal NomDuSlide As String)
 
Dim ContenuLignes() As Variant
Dim I As Long
Dim ContenuFichier As Variant
 
    Open ActivePresentation.Path & "\SuiviSlides.txt" For Input As #1
    I = 0
    Do While Not EOF(1)
        ReDim Preserve ContenuLignes(I)
        Line Input #1, ContenuLignes(I)
        I = I + 1
    Loop
 
    For I = LBound(ContenuLignes, 1) To UBound(ContenuLignes, 1)
        ContenuFichier = ContenuFichier & ContenuLignes(I) & vbCrLf
    Next I
    Close #1
 
    ContenuFichier = ContenuFichier & NomDuSlide
 
    Open ActivePresentation.Path & "\SuiviSlides.txt" For Output As #1
    Print #1, ContenuFichier
    Close #1
 
End Sub

Dans le module standard Module_SuiviSlides :

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
 
Option Explicit
 
Dim SuiviDiapos As New EventClassModule
 
Sub DebuterSuiviDiapos()
    Set SuiviDiapos.App = Application
End Sub
 
 
 
Sub InitialiseLeFichierDeSuivi()
 
Dim RepertoirePresentation As String
 
    Open ActivePresentation.Path & "\SuiviSlides.txt" For Output As #1
    Print #1, "Liste des slides consultés"
    Close #1
 
End Sub

Le principe est d'alimenter un fichier texte avec le nom de chaque diapo consultée. Ce fichier texte est placé dans le même répertoire que la présentation.

Pour le fonctionnement, utiliser dans l'ordre les macros :

- InitialiseLeFichierDeSuivi pour créer le fichier texte ou le réinitialiser.
- DebuterSuiviDiapos pour activer la procédure événementielle.

Pièce jointe 226148

Cordialement.

[Invité]

Avez-vous réglé votre problème avec la solution proposée ?

[AKRAM77]

Bonjour,

Normalement pour tout document il y a un sommaire avec la totalité des titres, mettre des liens des titres du sommaire vers les pages souhaitées, c'est possible sur PPT