Discussion :

[zoubinou2]

Bonjour,

Je n'arrive pas, dans une macro vba, à retrouver tous mes liens hypertextes dans une feuille.
Pour les liens en dur, aucun problème. En parcourant la liste des liens de la feuille, on retrouve tout. Le problème, c'est quand certaines cellules contiennent un lien hypertexte dynamique, créé par une formule éventuellement assez complexe, avec valeurs conditionnelles qui dépendent de certains paramètres.
Lorsqu'on parcourt la liste des liens présents sur la feuille, ceux-ci ne sont pas dans la liste.
Par exemple, si la cellule A1 contient un lien hypertexte dynamique, range("A1").Hyperlinks.count vaut 0, et on ne voit pas le lien.
Y a-t-il tout de même un moyen de savoir que la cellule contient un lien hypertexte et de récupérer l'adresse ciblée par le lien ?
Je sèche lamentablement.

Merci de votre aide !

[Daniel.C]

Bonjour,

Est-ce que tu peux donner un exemple de ces liens ?

[zoubinou2]

Merci de tenter de m'aider.
J'ai fait un petit fichier Excel bidon, mais qui reproduit bien mon problème : je peux positionner une option dans la cellule C1, en mettant 1 ou 2. Un lien hypertexte se construit automatiquement dans la cellule C3, en fonction de l'option choisie.
Le problème est qu'ensuite dans le VBA, je ne peux pas trouver le lien hypertexte en bouclant sur les liens de la feuille. Seuls les liens hypertextes en dur apparaissent, mais pas les liens dynamiques.
D'où mon problème : comment savoir si la feuille contient des liens dynamiques, et comment les retrouver ?

[Daniel.C]

Dans l'exemple, tu as deux liens dynamiques, qu'est-ce que tu veux faire ? La liste des liens ?

[zoubinou2]

Ben non, il n'y a qu'un seul lien dynamique, dans la cellule C3, mais qui peut prendre deux valeurs différentes suivant la valeur contenue en C1. J'ai besoin dans une macro de récupérer tous les liens hypertextes de la feuille, pour les insérer dans un document Word, que ces liens soient statiques ou dynamiques.

[Daniel.C]

Essaie (il faut ajouter le code pour les liens fixes) :

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
Sub test()
    Dim Plage As Range, C As Range, ResAdr As String, Ligne As Long
    Set Plage = Sheets("Feuil1").UsedRange
    With Sheets("Feuil2")
        Set C = Plage.Find("HYPERLINK(", , xlFormulas, xlPart)
        If Not C Is Nothing Then
            ResAdr = C.Address
            Do
                Ligne = Ligne + 1
                .Cells(Ligne, 1).Value = C.Address
                .Cells(Ligne, 2).Value = "'" & C.FormulaLocal
                Set C = Plage.FindNext(C)
            Loop Until C.Address = ResAdr
        End If
    End With
End Sub

[zoubinou2]

Merci de ton aide.
Mais ce code ne répond pas vraiment à mon besoin. On peut en effet récupérer les formules qui contiennent une utilisation de la fonction LIEN_HYPERTEXTE, mais ce dont j'ai besoin, c'est finalement du résultat de cette formule, c'est-à-dire vers quoi pointe le lien hypertexte, sachant que la cible est différente selon l'option choisie (il y a un appel à la fonction LIEN_HYPERTEXTE dans la partie "alors" et un autre dans la partie "sinon" du test).
J'ai simplifié mon petit fichier de test, mais dans la réalité, on peut avoir un lien dynamique créé par une formule qui teste la valeur d'une option :
si option = 1 -> lien hypertexte 1
si option = 2 -> lien hypertexte 2
si option = 3 -> texte en dur
si option = 4 -> ""

Par exemple en C3, on peut avoir une formule du type

Code :

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

=CHOISIR(C1;LIEN_HYPERTEXTE("c:\tmp\fichier 1.docx";"Fichier 1");LIEN_HYPERTEXTE("c:\tmp\fichier 2.docx";"Fichier 2");"Rien à signaler";"")

J'ai besoin de retrouver si la cellule contient un lien hypertexte ou non, et si oui vers quoi il pointe.
Donc si on positionne l'option en C1 à 1, je dois retrouver que ma cellule C3 contient un lien hypertexte et pointe sur le fichier "c:\tmp\fichier 1.docx".
Si on modifier la valeur de C1 et qu'on la positionne à 2, je dois retrouver que ma cellule C3 contient un lien hypertexte et pointe désormais sur le fichier "c:\tmp\fichier 2.docx".
Si on modifie le contenu de C1 en le mettant à 3, je dois me rendre compte qu'il n'y a plus de lien hypertexte en C3, mais une simple valeur en dur ("Rien à signaler").
Etc.


Je cherche depuis un bout de temps, et je me demande si c'est vraiment possible.

[Daniel.C]

Je cherche depuis un bout de temps, et je me demande si c'est vraiment possible.

Ca dépend. Tel quel, je ne peux pas traiter le classeur. Je ne récupère que le second argument de LIEN_HYPERTEXTE (Fichier 1). Si tu ne le spécifie pas :

Code :

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

=SI($C$1=1;LIEN_HYPERTEXTE("c:\tmp\fichier 1.docx");LIEN_HYPERTEXTE("c:\tmp\fichier 2.docx"))

Alors je récupère le fichier et le chemin :

Remplace :

Code :

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

.Cells(Ligne, 2).Value = "'" & C.FormulaLocal

par :

Code :

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

.Cells(Ligne, 2).Value = Evaluate(C.Formula)

[zoubinou2]

Oui, je comprends bien, et j'avais déjà envisagé cette possibilité.
Mais cette technique a deux inconvénients :
- le texte qui s'affiche dans la cellule C3 est directement l'adresse du lien, et non plus un libellé convivial
- rien ne permet de savoir dans le VBA si le texte récupéré est un lien hypertexte ou un simple texte

Le fait que la chaîne de caractères "HYPERLINK(" apparaisse dans la formule ne garantit rien (cf. mon post d'hier 20h48, en imaginant que la cellule C1 contienne la valeur 3, le résultat de l'évaluation de la formule est le simple texte "Rien à signaler").

[Daniel.C]

Dans ce cas, puisque tu en es également là, une fois récupéré le nom convivial, il ne te reste plus qu'à obtenir la sous-chaîne précédant le ";" situé devant. Par contre, si tu as deux fois le même nom convivial dans la même formule, laisse tomber.

[zoubinou2]

Oui, ça fait drôlement bidouillage, mais je vais essayer comme ça.