Discussion :

[omer76]

Bonjour,

J'ai un lien hypertext qui renvoi vers un autre fichier excel dans la cellule V2 qui se fait depuis plusieurs cellule via concatener (le repertoire source est amené à changé).

Ce lien apparait en clair dans la cellule B2 via
=lien_hypertext (V2)

Ceci se répéte 28 fois

J'ai créé un userform avec 28 boutons CommandButton qui s'ouvre au démarrage.

Je souhaite lorsque je click sur le bouton 1 que le lien se trouvant dans la cellule B2, quand je clique sur le bouton 2 que le lien de la cellule B3 s'ouvre, etc...

J'arrive seulement à selectionner la cellule.

Code :

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

1
2
3
4
 
Private Sub Eq1tr3_Click()
Range("B2").Select
End Sub.

Merci de votre aide.

[BlueMonkey]

Bonsoir,

Bienvenue sur le forum.

Ce qui suit est basé sur le décodage de la formule =LIEN_HYPERTEXTE. C'est pas très beau, mais ça fonctionne.

exemple pour le bouton <Equipe 1 Tr1>

Code :

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

1
2
3
4
Dim link As String
link = Sheets("Locaux").Range("B2").Formula
link = Mid(link, InStr(1, link, "(") + 1, InStr(1, link, ",") - InStr(1, link, "(") - 1)
ActiveWorkbook.FollowHyperlink (Range(link))

Mais le plus simple serait de renvoyer directement sur la cellule contenant l'adresse du fichier.

[omer76]

Merci ça fonctionne impecablement bien.
Serait il possible d'avoir le détail des ligne de commande histoire que je ne fasse pas bêtement copier coller mais que je comprenne ce qui se passe.
Encore merci

[BlueMonkey]

Sheets("Locaux").Range("B2").Formula récupère la formule contenue en B2 : =LIEN_HYPERTEXTE(V2;W2).

Mid(link, InStr(1, link, "(") + 1, InStr(1, link, ",") - InStr(1, link, "(") - 1) :
la fonction Mid retourne une partie d'une chaîne de caractère.
Mid(<la chaîne complète>, <début>, <longueur>)

la fonction InStr retourne la position de la chaîne de caractère.
InStr(<position du premier caractère>,<chaîne complète>,<chaîne recherchée>)

[omer76]

Je teset cet après midi sur la totalité du fichier original, merci encore de ton aide.