Bonjour

J'explique ce titre quelque peu déroutant
Le but de mon fichier est d'ouvrir une url à partir d'un bouton
L'url est en partie alimentée par le contenu d'une cellule saisie par l'utilisateur

Ex:

A1:vide, définie par l'utilisateur
B1: www.XXX.fr
C1: remplace XXX par A1
D1: LIEN_HYPERTEXTE de C1

Apres avoir validé "google" dans A1, "www.google.fr" s'ouvre bien en cliquant sur D1

Je voudrais faire un bouton avec une macro pour faire comme si l'on cliquait sur D1

Je me casse les yeux et la tete sur internet et ce que j'ai l'impression de comprendre c'est que la cellule D1 n'est pas reconnue comme cellule hypertexte:

Un bouton avec la macro test

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
    DeclencheLien Range("D1")
End Sub
 
 
Sub DeclencheLien(Cellule As Range)
'Vérifie si la cellule contient un lien
If Cellule.Hyperlinks.Count = 0 Then
    MsgBox "il n'y a pas de lien hypertexte dans la cellule " & Cellule.Address
    Else
    'Déclenche le lien
    Cellule.Hyperlinks(1).Follow NewWindow:=True
End If
End Sub
me renvoie le message "il n'y a pas de lien hypertexte dans la cellule"

Si je lance cette meme macro sur B1, j'arrive bien sur www.XXX.fr

J'ai egalement une erreur 9 l'indice n'appartient pas à la selection si je force la verification en modifiant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Cellule.Hyperlinks.Count <> 0 Then...
J'arrive à la conclusion que la fonction LIEN_HYPERTEXTE ne fait pas de la cellule un lien hypertexte...

En espérant avoir été précis
Merci de votre aide

Cdt