Combo et Hyperlien

[Pascalbar]

Bonjour,
J'alimente une combo avec

ComboBox1.List = [Liens].Value

Ou liens est une zone nommé dynamique à l'intérieur de laquelle chaque cellule est un lien du type
D:\NomDossier\NomFichier.xlsm

Comment suivre ledit lien sur un évènement
Private Sub ComboBox1_Click()
Par exemple
Merci
Pascal

 

[mromain]

Re : Combo et Hyperlien

Bonjour Pascalbar,

Voici un essai sur l'évènement ComboBox1_Change() :

Private Sub ComboBox1_Change()
Dim cellRecherche As Excel.Range
    
    'rechercher dans la zone nommée "Liens" la cellule contenant le texte sélectionné dans la Combobox
    Set cellRecherche = .Find(Me.ComboBox1.Value, , xlValues, xlWhole)
    
    'si on a trouvé la cellule
    If Not cellRecherche Is Nothing Then
        'sivre le lien hypertexte de la cellule
        AllerA cellRecherche.Hyperlinks(cellRecherche.Hyperlinks.Count).SubAddress
'        'refermer le UserForm
'        Unload Me
    
    'sinon
    Else
        MsgBox "Erreur"
    End If
End Sub


Private Sub AllerA(adresse As String)
Dim tabStr() As String
    tabStr = Split(adresse, "!")
    ThisWorkbook.Sheets(tabStr(0)).Range(tabStr(1)).Select
End Sub

a+