Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 [Résolu] hyperlink dans listbox

RoyalP

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Affichage fichier et recherche listbox.xlsm
    37.9 KB · Affichages: 83

RoyalP

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…