Discussion :

[jgfa9]

Bonjour à tous,
J'ai la fonction suivante qui me permet de récupérer les adresses des liens hypertext :

Code :

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

1
2
3
Function adresse(cell As Range)
adresse = cell.Hyperlinks(1).Address
End Function

Lorsque j'appelle la fonction dans une cellule :

Code :

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

=adresse(A1)

ça marche si l'adresse du lien est un fichier externe (genre test.xls), mais s'il s'agit d'un lien vers une référence de cellule ou vers une autre feuille, rien ne s'affiche.
Comment faire pour récupérer TOUTES les adresses de liens ?
Merci par avance.

[ouskel'n'or]

En VBA/xl, j'ai ça

Code :

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

1
2
3
4
5
6
7
8
Sub LiaisonsLister()
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
    For i = 1 To UBound(aLinks)
        MsgBox "Liaison " & i & ":" & Chr(13) & aLinks(i)
    Next i
End If
End Sub

Si ça peut te donner des idées

A+

[DarkVader]

Pas très joli la fonction qui utilise des mots clés (adresse et cell)

Peut-être

Code :

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

1
2
3
4
5
6
7
Function adress(plage As Range)
    If plage.Hyperlinks.Count > 0 Then
        adress = plage.Hyperlinks(1).Address
    Else
        adress = plage.Text
    End If
End Function

[jgfa9]

Merci beaucoup pour vos réponses... mais malheureusement aucune ne marche : je n'arrive toujours pas à voir l'adresse d'un lien faisant référence à une cellule ou une feuille (avec un fichier externe, ça marche).
Si quelqu'un a une idée, ça me dépannerait bien !
Merci.

[jgfa9]

Voilà ce que je voudrais, si on considère qu'en A1 j'ai un lien appelé "lien1" et qui pointe vers un fichier "test.txt" et en A
Si en A1 j'ai un lien hypertexte vers un fichier appelé test.x un lien "lien2" qui pointe vers la cellule A1 de la Feuil2 :

Code :

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

1
2
3
4
5
 
 |   A   |     B     |
----------------------
1| lien1 | test.txt  |
2| lien2 | Feuil2!A1 |

Voilà ! Alors, est-ce que c'est possible ?
Merci.

[ouskel'n'or]

Avec l'exemple que je t'ai donné, tu dois enchaîner les tests pour avoir tous les liens. Pour un lien avec un txt, c'est un paramètre, vers un xls, c'est un autre...

Extrait de l'aide VBA :

Renvoie un tableau de liaisons dans le classeur. Les noms qui figurent dans le tableau sont les noms des documents liés, des éditions ou des serveurs DDE ou OLE. Cette méthode renvoie la valeur Empty s'il n'existe aucune liaison.

Syntaxe

expression.LinkSources(Type)

expression Obligatoire. Expression qui renvoie un objet Workbook.

Type Cet argument est facultatif. Le type de liaison à renvoyer. Il peut s'agir de l'une des constantes XlLink suivantes : xlExcelLinks, xlOLELinks (qui gère également les liaisons DDE), xlPublishers ou xlSubscribers.

Remarques

Le tableau est à une dimension pour tous les types, quel que soit le type de liaisons, à l'exception de la publication et de l'abonnement. Les chaînes de caractères renvoyées contiennent le nom de la source de la liaison dans la notation appropriée au type de liaison. Par exemple, les liaisons DDE utilisent la syntaxe « Server|Document!Item ».

Pour les liaisons de publication et d'abonnement, le tableau renvoyé est à double entrée. La première colonne du tableau contient les noms de la publication et la seconde colonne, les références des éditions sous la forme de texte.

En VB, tu as peut-être simplement le même pb... (?)

Mais DarkVader va venir à ton secours...

A+

[jgfa9]

Salut,
J'ai testé cette fonction de la manière suivante :

Code :

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

1
2
aLinks = ActiveWorkbook.LinkSources()
MsgBox "aLinks : " & aLinks

ou

Code :

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

1
2
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
MsgBox "aLinks : " & aLinks

et dans les deux cas aLinks ne vaut rien : j'ai la msgbox qui s'affiche avec :

Code :

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

aLinks :

J'ai pourtant bien, dans le deuxième cas, un lien vers un classeur Excel...
Je ne comprends pas...

[ouskel'n'or]

Je ne comprends pas...

moi non plus car chez moi, ce code fonctionne
Un pb de version ? (j'ai VBA97) Peut-être la syntaxe a-t-elle changé (?)

Je cède la place

Bonne chance