Lien hypertexte ne voulant pas s'ouvrir sur VBA
Bonjour à vous tous,
J'aimerai dans le cadre d'un projet, ouvrir des feuilles de mon classeur avec l'aide d'un userform que j'ai crée.
Pour cela j'ai un sommaire, avec pleins de liens hypertexte, et en fonction ce que je vais sélectionner sur mon userform, il va me sélectionner tel ou tel page.
Le souci est le suivant:
Avec mon code je n'arrive à ouvrir aucun lien hypertexte censé m'emmener sur la feuille désirée.
Le code est le suivant:
Sub test()
DeclencheLien Range("A4")
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 "
Else
'Déclenche le lien
Cellule.Hyperlinks(1).Follow NewWindow:=True
End If
End Sub
à savoir que dans ma cellule A4 il y a bel et bien un lien hypertexte....
Si vous avez des pistes, ou des interrogations n'hésitez pas! :)
Très bon week end à vous
Bonjour,
pas de problème avec ton code, vérifie tes liens ou mets un fichier exemple où on peut reproduire le problème.
Voilà un fichier très minimaliste, même avec ça cela ne fonctionne pas, et j'ai essayé avec l'enregistreur de macro également et cela ne fonctionne pas, bizarre...
Vous remerciant de votre aide
Bonsoir,
ceci fonctionne correctement chez moi. Lorsque je lance la procédure test en étant sur feuil1, la feuille test 1 est bien affichée.
Bonjour à tous,
pas chez moi sur 2019
eric