XL 2010 [Résolu] hyperlink dans listbox

RoyalP · 31 Octobre 2016

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 · 31 Octobre 2016

Bonsoir RoyalP

Un essai comme ceci

VB:

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

RoyalP · 1 Novembre 2016

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 · 1 Novembre 2016

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

Le code :

Code:

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

changer par:

Code:

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

RoyalP · 2 Novembre 2016

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.

Code:

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

XL 2010 [Résolu] hyperlink dans listbox

RoyalP

XLDnaute Occasionnel

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

RoyalP

XLDnaute Occasionnel

RoyalP

XLDnaute Occasionnel

RoyalP

XLDnaute Occasionnel

Discussions similaires