Commandbutton avec lien hypertexte issu d'une combobox

Bonjour à tous ☺

Pourriez-vous m'aider SVP ???!!!

J'ai créé un outil de recherche (il s'agit d'une ébauche, je le compléterai ++ après) afin d'accéder facilement aux nombreux documents utilisés au boulot (Cf. 1ère feuille "Test" + 2ème feuille "Tableau"):

→ 3 listes déroulantes en cascade avec validation des données et une cellule avec lien hypertexte et recherchev afin accéder au document sélectionné grâce aux listes

mais cet outil ne me convenait pas...

1- Pas très esthétique

2- Trop facilement modifiable (je souhaite le transmettre à mes collègues qui le souhaiteraient)

3- Problème avec les intitulés ("document") "Papier" et "En ligne" qui seront utilisés pour plusieurs "natures" de document...

J'ai donc créé un formulaire ("UserFormRecherche") qui esthétiquement me convient davantage !

Je suis parvenue à faire mes 3 ComboBox liées entre elle (Cf. 3ème feuille "Liste")

Par contre, je ne parviens pas DU TOUT à programmer mon CommandButton ...

1- Je souhaite y intégrer le chemin du document que j'aurai préalablement choisi grâce aux ComboBox

2- Mettre un lien hypertexte afin d'accéder au document en cliquant sur le bouton

Pouvez-vous faire quelque chose pour moi SVP ???

Un GRAND merci d'avance !!!

Bonjour,

Une solution pourrait consister, à l'initialisation de la combobox2, d'insérer une deuxième colonne (invisible) contenant chemin + document (colonne D), puis de récupérer cette données à l'appui du bouton BtnClic

modification de l'initialisation Combobox3:

Private Sub ComboBox2_click()
Dim temp() '<=
Me.ComboBox3.Clear
  Set monDico = CreateObject("Scripting.Dictionary")
  For i = LBound(a, 1) To UBound(a, 1)
     'If a(i, 1) = Me.ComboBox1 And a(i, 2) = Me.ComboBox2 Then mondico(a(i, 3)) = ""
     If a(i, 1) = Me.ComboBox1 And a(i, 2) = Me.ComboBox2 Then monDico(a(i, 3)) = a(i, 4)  '<=
  Next i
  'temp = mondico.keys
  'Call Tri(temp, LBound(temp), UBound(temp))
  temp = Application.Transpose(Array(monDico.keys, monDico.Items)) '<=
  Call Tri2D(temp(), 1, LBound(temp), UBound(temp))   '<=

  Me.ComboBox3.List = temp
End Sub

le tableau temp contenant désormais deux "colonnes", on ne peut plus le trier avec la sub Tri, j'ai donc "emprunté" un code de J. BOISGONTIER :

Sub Tri2D(a(), ColTri, gauc, droi) ' Quick sort
'http://boisgontierjacques.free.fr/pages_site/tableaux.htm#TriT2D
  ref = a((gauc + droi) \ 2, ColTri)
  g = gauc: d = droi
  Do
    Do While a(g, ColTri) < ref: g = g + 1: Loop
    Do While ref < a(d, ColTri): d = d - 1: Loop
    If g <= d Then
       For k = LBound(a, 2) To UBound(a, 2)
         temp = a(g, k): a(g, k) = a(d, k): a(d, k) = temp
       Next k
       g = g + 1: d = d - 1
    End If
  Loop While g <= d
  If g < droi Then Call Tri2D(a, ColTri, g, droi)
  If gauc < d Then Call Tri2D(a, ColTri, gauc, d)   

End Sub

puis le code du bouton BtnClic :

Private Sub BtnClic_Click()
 MsgBox ComboBox3.Column(1)
End Sub

A+

Bonjour à vous

Mise en mémoire du fichier ou lien

ouverture du fichier ou internet

CA MARCHE !!! ☺☺☺

MERCI MERCI MERCI

Vous êtes juste GÉNIAUX !!! Si seulement je savais faire le centième de ce que vous faites !!!

J'ai juste encore un petit soucis en ce qui concerne les liens avec un autre fichier Excel... ça ne fonctionne pas... Comment je pourrais faire SVP ???

Bonjour Manue56320

nouvelle version avec test si xls ou xlsx ou xlsm

A+

Bonjour BOB71AU !

Vous êtes FORMIDABLE

ça fonctionne du tonnerre !!! Vous faites une heureuse !!!

ça me donnait des insomnies (01h17 est toujours devant le PC...)

Maintenant je peux aller me coucher sereinement !

MERCI encore !!