Bonjour,

Débutant dans le langage VBA, je cherche à partir d'une macro vba Excel d'ouvrir une présentation Powerpoint et lister tous les liens hypertexte.

Voici le début de mon code :
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
 
Sub Lister_Liens()
 
    Dim Lancerpowerpoint, Presentation1
 
    Dim h As Hyperlink, MyFile
    Dim NB_SLIDES As Integer
    Dim hlien As Hyperlink
 
    'OUVRIR Présentation
    Set Lancerpowerpoint = CreateObject("Powerpoint.Application")
    Lancerpowerpoint.Visible = True
    Set Presentation1 = Lancerpowerpoint.Presentations.Open(Filename:="c:toto.ppt", ReadOnly:=True)
 
    k = 0
    'On recherche dans chaque slide
    For Each s In Presentation1.Slides
            k = k + 1
            For Each h In s.Hyperlinks
                'Si présence d'un lien
                If LCase(h.Address) <> "" Then MsgBox "Présence du lien " & h.Address & "sur le slide " & k
            Next
    Next
Si vous pouvez m'aider