Discussion :

[Salsalex2001]

Bonjour à tous,

J'ai des cellules qui contiennent des liens hypertexte calculés avec des formules type hyperlink et concatener.
Exemple:
Dans la cellule A1 j'ai le contenu suivant:

Code :

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

=HYPERLINK(CONCATENATE(G$3,H$3,"\",K3), L3)

Cela me crée un lien valide et un affichage lisible (L3).

Depuis une macro, je voudrais extraire de cela le lien sous la forme d'une chaine de caractères, tel qu'affiché lorsque je passe le pointeur de la souris sur le cellule. Soit qqch du genre "c:\data\ici\la\text.txt"

- Si j'utilise cell.Formula, cela me donne le formule ci dessus ( "HYPERLINK(CONCATENATE(G$3,H$3,"\",K3), L3)" )
- Et si je l’évalue avec Evaluate, cele me renvoi le texte en L3 (qui n'est que décoratif dans mon cas) mais pas le lien lui même.
- J'ai aussi essayé de convertir en range pour ensuite appliquer Hyperlinks(1).Address

Code :

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

Range(c.Address).Hyperlinks(1).Address          (où c est ma cellule A1).

mais là mon range ne semble pas contenir de lien hypertexte (Range(c.Address).Hyperlinks.count retourne 0 )
- Enfin si je sélectionne A1 et requiert Selection.Hyperlinks.Count, là encore j'ai 0! Mon lien n'est pas vraiment considéré comme tel ://

Vos lumières sont les bienvenues, merci

Alexandre

[mercatog]

Puisque ton lien est la concaténation des valeurs de tes 3 cellules, pour quoi faire le détour?

Code :

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

AdresseLien=Range("G3") & Range("H3") &"\" & Range("K3")

[Salsalex2001]

Salut Mercatog,

C'est en effet une solution... À condition de savoir où sont les parties du chemin. Cet exemple est simplifié, mais en réalité je ne sais pas où sont les strings du chemin...
Merci quand même pour l'idée.

[Daniel.C]

Bonjour,

Essaie :

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    Dim Var As String, Var1 As Integer
    With ActiveCell
        Var = Evaluate(Replace(Left(.Formula, InStrRev(.Formula, ",") - 1), "=HYPERLINK(", ""))
        Var1 = InStrRev(Evaluate(Replace(Left(.Formula, InStrRev(.Formula, ",") - 1), "=HYPERLINK(", "")), "\")
        MsgBox Left(Var, Var1 - 1)
    End With
End Sub

ou :

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    Dim Var As String, Var1 As Integer
    With ActiveCell
        Var = Evaluate(Replace(Left(.Formula, InStrRev(.Formula, ",") - 1), "=HYPERLINK(", ""))
        Var1 = InStrRev(Var, "\")
        MsgBox Left(Var, Var1 - 1)
    End With
End Sub

Je ne sais pas si c'est valable dans tous les cas de figure; en tout cas, il faut que le second paramètre (nom convivial) soit renseigné.
Intéressant de noter, au passage, que le lien ne soit pas considéré comme hyperlink au niveau de la cellule.

[Salsalex2001]

Bonsoir Daniel,

Merci aussi pour cette solution. Je n'avais pas penser à récupérer le résultat du Concaténer...
Ça marche en effet ! Par contre je ne vois pas l'usage du nom convivial ?

Toutefois, n'y a t il aucune solution plus "régulière", qui évaluerait normalement le lien et permettrait d'en récupérer le ".Address" ?
Comment se fait il que ce lien ne soit pas reconnu en tant que tel ? Faudrait il l'affecter à l'objet Cell pour qu'il soit reconnu ?

Merci encore

Alexandre

[Daniel.C]

Par contre je ne vois pas l'usage du nom convivial ?

C'est le second paramètre de la fonction, celui qui apparaît dans la cellule :

Aide Excel :

Syntaxe
LIEN_HYPERTEXTE(emplacement_lien, [nom_convivial])
La syntaxe de la fonction LIEN_HYPERTEXTE contient les arguments suivants :
emplacement_lien Obligatoire. Représente le chemin d’accès et le nom de fichier du document à ouvrir. L’argument emplacement_lien peut faire référence à un emplacement précis d’un document, tel qu’une cellule ou une plage nommée dans une feuille de calcul ou un classeur Microsoft Excel, ou bien à un signet d’un document Microsoft Word. Le chemin d’accès peut spécifier un fichier stocké sur un lecteur de disque dur. Il peut également s’agir d’un chemin UNC (convention d’affectation des noms) pour un fichier stocké sur un serveur (dans Microsoft Excel pour Windows), ou encore d’un chemin URL (Uniform Resource Locator) sur Internet ou un réseau intranet.

Remarque Dans Excel Web App, la fonction LIEN_HYPERTEXTE est valide pour les adresses web (URL) uniquement.L’argument emplacement_lien peut être une chaîne de caractères entourée de guillemets ou une référence de cellule contenant le lien sous forme de chaîne de texte.

Si le renvoi spécifié par l’argument emplacement_lien n’existe pas ou n’est pas accessible, une erreur s’affiche lorsque vous cliquez sur la cellule.

nom_convivial Facultatif. Représente le texte de renvoi ou la valeur numérique qui s’affiche dans la cellule. Le contenu de la cellule est affiché en bleu et souligné. Si vous ne spécifiez pas l’argument nom_convivial, la cellule affiche l’argument emplacement_lien comme texte de renvoi.

Toutefois, n'y a t il aucune solution plus "régulière"

Je n'en ai pas trouvé. J'ai constaté, comme toi, que ce type de lien n'est pas comptabilisé comme lien hypertexte.

[Salsalex2001]

LoL désolé me suis mal exprimé: j'ai bien compris le rôle de ce second paramètre dans la fonction hyperlink... mais c'est dans ton code que je n'en ai pas vu l'usage.

en tout cas, il faut que le second paramètre (nom convivial) soit renseigné.

[mise à jour] Ok, ok, j'ai pigé... Ce dernier paramètre est extrait par le left imbriqué !

Bon, sinon, faute de plus "régulier" .... je vais essayer d'arranger cela à cette sauce ;-)

Merci !