Je dois concevoir un petit programme qui liste tous les fichiers linkés dans des documents Excel, Word, PowerPoint et Access.

J'ai réussis avec Excel, c'est pas très compliqué, on utilise
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
 
Dim objetExcel As Excel.Application
Dim tableurExcel As Excel.WorkBook
Dim i As Long
Dim liens As Variant
 
tableurExcel = objetExcel.WorkBooks.Open("nom_du_fichier.xls", UpdateLinks:=False, ReadOnly:=True)
 
liens = tableurExcel.LinkSources()
If Not IsEmpty(liens) Then
    For i = 1 to UBound(liens)
        MsgBox liens
        i = i + 1
    Next
End If
Mais pour les autres programmes (Word, PowerPoint et Access), la méthode LinkSources n'existe pas. J'aimerais savoir comment on fait. Merci.