Discussion :

[kyronex]

Bonjour à tous,
Je suis un vrai noobie en VBA, et je ne trouve pas la solution à la question suivante.

J'ai une Listbox dans laquelle j'ai la liste des fichiers PDF (chemin complet, ex: c:\PRL\mes_Fichiers.PDF) se trouvant dans un dossier .
Comment dois je faire pour en faire des liens afin de les ouvrir?

Je passe déjà beaucoup de temps rien que pour ca et je m'arrache les cheveux

Merci d'avance pour votre aide (précieuse, je précise)

Kyronex

[Invité]

Salut,

Un exemple très simple avec des liens internets:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Private Sub UserForm_Initialize()
  With Me.ListBox1
    .AddItem "http://www.developpez.net/forums/"
    .AddItem "http://www.developpez.net/forums/f542/logiciels/microsoft-office/excel/"
  End With
End Sub
 
Private Sub ListBox1_Click()
  ThisWorkbook.FollowHyperlink Address:=Me.ListBox1.Value
End Sub

Ça fonctionne de la même manière pour les fichiers '.pdf' si tu mets le chemin complet.

[kyronex]

Encore merci SmallFlower, grâce à ton truc j'ai fait ceci:
je transmet le code pour les noobiees comme moi ;-)

donc le contenu apparait et deviennent des liens vers les fichiers d'un dossier x

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim Result As Variant
    Dim NomFichier As String
    Dim Dossier As String
    Dim Nb As Long
 
    Dossier = ComboBox2.Value
    Chemin = "C:\" & Dossier & "\"
 
    ListBox1.Clear
    Nb = 0
    NomFichier = Dir(Chemin & "*.xls")
        While NomFichier <> ""
            ListBox1.AddItem NomFichier
            NomFichier = Dir
            Nb = Nb + 1
        Wend
        If Nb = 0 Then
    Label1.Caption = Nb & " pas de fichier trouvé"
        Else
    Label1.Caption = Nb & " fichier(s) trouvé"
        End If
        If Nb = 0 Then
        ListBox1.AddItem "Pas de fichier dans le dossier  " & "'" & Dossier & "'"
        End If
End Sub
Sub ListBox1_Click()
Label2 = "C:\temp\" & ListBox1.Value '' reste plus qu'à remplacer la racine par la variable chemin
ThisWorkbook.FollowHyperlink Address:=Label2