Links de Word, PowerPoint et Access

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:

---

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.:?

Voyant le peu de réponse (zéro) en un demi mois, je croit que c'est assez peine perdu pour mon cas!:pleure: :calim2:

faudrai esssayer de trouver les collections dans chacun des logiciels... pour cela dans l'éditeur VBA ... tu peu parcourir les références par F2... ainsi pour word je suis tombé sur la collection hyperlinks... peu-être un début de piste

Citation:

---

Envoyé par Aide en ligne VBA Word

For Each hLink In Documents(1).Hyperlinks
If InStr(hLink.Address, "Microsoft") <> 0 Then
hLink.Follow
Exit For
End If
Next hLink Utilisez la méthode

---

la même collection et présente sous powerpoint...

Citation:

---

Envoyé par Aide Enligne VBA Powerpoint

Utilisez la propriété Hyperlink pour créer un lien hypertexte et l'ajouter à la collection Hyperlinks. L'exemple ci-dessous montre comment définir un lien hypertexte suivi lorsque l'utilisateur clique sur la forme trois de la diapositive un de la présentation active en cours de diaporama, et ajoute le nouveau lien hypertexte à la collection. Il faut noter que si la forme trois est déjà associée à un lien hypertexte par clic de souris, l'exemple ci-dessous montre comment supprimer ce lien hypertexte de la collection en ajoutant le nouveau, de sorte que le nombre d'éléments de la collection Hyperlinks ne varie pas.
With ActivePresentation.Slides(1).Shapes(3) _
.ActionSettings(ppMouseClick)
.Action = ppActionHyperlink
.Hyperlink.Address = "http://www.microsoft.com"
End With Sub HelpPopup (sFile, sID) Call InitConstants() On Error Resume Next r=oua.HelpPopup(sFile,sID) If Err0 Then Msgbox L_SECURITY_MSG,48,L_TITLE End Sub

---