XL 2016 Bouton vers lien hypertexte issus de formules

Telegraphist · 7 Novembre 2023

Bonjour à tous.

Dans la feuille "Links" de mon fichier Excel, se trouve une liste de formules (de B2 à B29 et de C2 à C29).
Ces formules affichent, dans chacune des cellules, un lien hypertexte dynamique, tous différents.
Ces liens sont le produit de Prénoms et de Noms (Feuille "Main" B3, C3 et E3) et de mots clés (Feuille "Key Words")

Je souhaite créer un bouton, à placer sur la feuille "Main" me permettant d'ouvrir tout ces liens automatiquement, dans mon navigateur.

Deux problèmes:

1- S'il n'y a aucun souci pour ouvrir un lien hypertexte, que j'ai écris moi-même dans une cellule (type "www.sncf.com"), je ne parviens pas à trouver un code pour ouvrir un lien issu d'une formule Excel

2- Comment dire à mon code que je souhaite qu'il ouvre tous les liens présents de B2 à B29 et de C2 à C29 ?
En gros, il faudrait que le bouton Google effectue une recherche sur la colonne B de la feuille Links, et que le bouton Bing en fasse une sur la colonne C.

Merci de votre aide !

Fred

crocrocro · 10 Novembre 2023

Bonjour Fred,
une proposition que j'ai testée :
Tout d'abord dans vos formules, remplacer (par exemple pou B2)

=LIEN_HYPERTEXTE("https://www.google.com/search?q="&Main!$B$3&" "&Main!$C$3&" "&Main!$E$3&" "&'Key Words'!$A1)

par

="https://www.google.com/search?q="&Main!$B$3&" "&Main!$C$3&" "&Main!$E$3&" "&'Key Words'!$A1

Le lien Hypertexte sera créé par macro.
Voici le code VBA associé à la macro correspondant au bouton Google

VB:

    With ActiveSheet
        For i = 2 To 29
            .Hyperlinks.Add Anchor:=.Cells(i, 4).Value, _
                Address:=.Cells(i, 2).Value, TextToDisplay:=.Cells(i, 2).Value
            .Cells(i, 2).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False
        Next i
    End With

La macro créé les liens hypertextes et les activent (ici pour les cellules B2 à B29).
Le code est similaire pour Bing.

Bon test,
crocrocro

crocrocro · 11 Novembre 2023

Une petite erreur sur la ligne de code

.Hyperlinks.Add Anchor:=.Cells(i, 4).Value, _

4 à remplacer par 2 (pour google colonne B et non D)

XL 2016 Bouton vers lien hypertexte issus de formules

Telegraphist

XLDnaute Nouveau

Pièces jointes

crocrocro

XLDnaute Impliqué

crocrocro

XLDnaute Impliqué

Discussions similaires