Discussion :

[76morpheus]

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

[Jean-Philippe André]

salut,

ton approche est bonne jusqu'à présent.

A quel niveau souhaiterais-tu obtenir notre aide ? Tu souhaiterais stocker les liens dans une feuille/plage de cellules particulière ?

[76morpheus]

Merci jpcheck pour ton message.
Je souhaite enregistrer les chemins de tous les liens hypertexte dans le fichier excel les uns sous les autres.

L étape suivante sera si j'y arrive de vérifier si les liens ne sont pas brisés.

D'avance merci pour votre aide.

[Jean-Philippe André]

OK,

pour le test de l'hyperlien, il faut penser à regarder la
http://excel.developpez.com/faq/?pag...chierHyperlink

Pour la recopie des liens, tu ajoutes simplement dans la boucle en utilisant la détection de la derniere ligne disponible :
http://excel.developpez.com/faq/inde...reLigneNonVide

[76morpheus]

Merci pour votre réponse,

mais j'ai une incompatibilité de type à la ligne ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
For Each h In s.Hyperlinks

Donc je n'arrive pas à identifier les liens. la variable "s" doit-elle être déclarée? si oui sous quel type ?

d'avance merci

[Jean-Philippe André]

En fait, tu recopies le code de par l'Internet sans savoir ce qu'il fait

Tu parcours toi même les slides

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'On recherche dans chaque slide
    For Each s In Presentation1.Slides

il convient de déclarer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim s As Slide

reste que cette déclaration nécessitera l'ajout de la référence Power Point. Si tu préfères faire un late binding, tu la déclares en Object.