Aller dans un fichier à l'aide d'une listbox crée avec bouton de recherche

[papapaul]

Salut à tous
J'ai déjà posé la question dans le fil créer par Huvalo
que j'ai un peu dépanné mais…..c'est déjà loin dans la liste.
Alors j'en crée un autre.
C'est dans le fichier de recherche que j'ai un problème.
Ce fichier liste les fichiers d'un même répertoire quand
ils commencent par 3 majuscules.
Et la je comprends vraiment pas.
Un click directement colonne B me renvoie bien dans le fichier.
Doubleclick sur une ligne de la listbox ne fonctionne pas,
Pourtant quand je mets le curseur sur ce code,
Range(ListBox1.Column(1)).Activate
Je vois bien le nom d'un fichier.
J'ai essayé avec des trucs du genre
if cell value = (ListBox1.Column(1)).value then
etc.. mais je m'en sors pas.

Je désepère.


Merci à tous et bonne soirée

 

[fred65200]

Re : Aller dans un fichier à l'aide d'une listbox crée avec bouton de recherche

bonsoir,
met le code suivant à la place du tien
Modifie le chemein

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim hyperlien As String
Dim Chemin as string
Chemin =  "C:\Users\XXXX\Desktop\Huvalo_2_boutons_v2\Clients\"
hyperlien = Chemin & ListBox1.Column(1)
ActiveWorkbook.FollowHyperlink hyperlien
Unload Me

End Sub

Salutations

 

[bqtr]

Re : Aller dans un fichier à l'aide d'une listbox crée avec bouton de recherche

Bonsoir papapaul, fred65200

Ou bien comme ceci :

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Workbooks.Open Filename:=ListBox1.Column(0) & ListBox1.Column(1)
  Unload Me
End Sub

A+

Edit:
Effectivement, pas besoin de "\", bien vu fred

 

[fred65200]

Re : Aller dans un fichier à l'aide d'une listbox crée avec bouton de recherche

Bonsoir, j'etais dessus
et je me disais que j'étais vraiment c..

Chemin = ListBox1.Column(0)
hyperlien = ListBox1.Column(0) & ListBox1.Column(1)

pas besoin de "\", il y est déjà


@+

 

[papapaul]

Re : Aller dans un fichier à l'aide d'une listbox crée avec bouton de recherche

Salut, et Youpi, c'est nickel.

Je pensais bien que c'était assez simple mais
j'étais incapable de l'écrire correctement.
Merci à vous de faire profiter tout le Forum
de vos immenses compétences.

Petite précision pour ceux qui ont comme moi excel 97 (boulot)
Par rapport au fichier que j'ai mis sur le forum,
il faut remplacer la fonction Replace par
WorksheetFunction.Substitute

J'espère que mon bidule pourra servir à d'autres.

Encore Merci et vive XLD

Je continue mon aventure