XL 2010 [Résolu] hyperlink dans listbox

[RoyalP]

Hello a tous , j'ai besoin de votre aide j'ai reussi a combiner plusieurs petits bouts de code pour faire un petit projet ( afficher tous les Repertoires|Fichiers dans la feuille active et faire une recherche via un listbox) mais j'aimerais pouvoir ouvrir le fichier que je selectionne dans le listbox. j'ai bien la formule a adapter mais je n'arrive pas a la placer dans ma macro.

Worksheets("feuil1").Range("A2:A10000").Hyperlinks.Item(ListBox1.ListIndex + 1).Follow

Mon fichier que j'ai epurer pour qu'il tourne sur toutes les machines (x86 x64 avec explications inside)

Merci d'avance.

 

[Lone-wolf]

Bonsoir RoyalP

Un essai comme ceci

Private Sub ListBox1_Click()
Dim text$
text = ListBox1.List(ListBox1.ListIndex, 0)
  ThisWorkbook.FollowHyperlink text
End Sub

 

[RoyalP]

ha bah oui lol j'ai cherché compliqué alors que c'etait si simple lol

Merci pour l'aide.

PS) je modifie le fichier joint n°1 ca peut servir a d'autres.

 

[RoyalP]

Petite modification du code pour que ca marche avec le double click

Le code :

Private Sub ListBox1_Click()
Dim text$
text = ListBox1.List(ListBox1.ListIndex, 0)
  ThisWorkbook.FollowHyperlink text
End Sub

changer par:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim text$
text = ListBox1.List(ListBox1.ListIndex, 0)
  ThisWorkbook.FollowHyperlink text
End Sub

 

[RoyalP]

Petite Correction pour le cas ou l'on ne selectionne aucun repertoire ou fichier. Ca nous retourne un message d'erreur avec ce code celui ci est corrigé
Changez le code de Mainlist par celui ci.

Sub MainList()

'Listing et affichage dossier
Range("a2:A10000").ClearContents ' on selection la rangée a effacer a adapté selon vos besoin
Set folder = Application.FileDialog(msoFileDialogFolderPicker)

If folder.Show <> -1 Then
MsgBox "Aucun Repertoire | Fichier Séléctionné"
Exit Sub
Else
xDir = folder.SelectedItems(1)

Call ListFilesInFolder(xDir, True)
End If
End Sub