Discussion :

[minifrix]

Bonjour,
Je viens vous demander de l'aide car cela fait une semaine que je découvre le VBA et 5 jours ou je suis coincé.
Je m'explique, j'ai réussi à faire un UserForm pour pouvoir rechercher des pdf qui se trouvent dans des dossier et sous dossier et ensuite ouvrir les différents fichiers que j'aurais sélectionné dans la ListBox..

Alors pour l'instant tout marche (Quitter, Explorer, TextBox, ListBox, Label1) sauf :
-le bouton "find" qui ne va pas dans les sous dossier

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
 
Private Sub Find_Click()
 Dim Result As Variant
    Dim NomFichier As String
    Dim Dossier As String
    Dim Nb As Long
 
    Dossier = TextBox1.Value
    Chemin = "C:\test\" & Dossier
 
    ListBox1.Clear
    Nb = 0
        NomFichier = Dir(Chemin & "*.*")
            While NomFichier <> ""
            ListBox1.AddItem NomFichier
            NomFichier = Dir
            Nb = Nb + 1
        Wend
    Label1.Caption = Nb & " fichiers"
        If Nb = 0 Then
        MsgBox "le fichier n'existe pas", vbInformation + vbOKOnly, "ERREUR"
        End If
End Sub

- le bouton ouvrir qui pour l'instant n'ouvre rien ! (le critère multi sélection de la ListBox est activé)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Ouvrir_Click()
Dim ws As Worksheet
Dim Chemin As String
Dim NomFichier As String
 
    Set ws = ActiveSheet
    Chemin = ThisWorkbook.Path & Application.PathSeparator
    NomFichier = ListBox1 & ".pdf"
 
    ThisWorkbook.FollowHyperlink ".pdf"
 
    Set ws = Nothing
 
End Sub

Si quelqu'un pourrait m'aider à corriger mes codes svp.
Je cherche mais je n'arrive pas à trouver ou a adapter les codes à mes besoins.
Par avance merci.

Pour montrer à quoi ressemble mon projet :

Le code complet :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Explorer_Click()
Dim MonDossier As String
MonDossier = "C:\test\"
 
Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus
End Sub
 
Private Sub Find_Click()
 Dim Result As Variant
    Dim NomFichier As String
    Dim Dossier As String
    Dim Nb As Long
 
    Dossier = TextBox1.Value
    Chemin = "C:\test\" & Dossier
 
    ListBox1.Clear
    Nb = 0
        NomFichier = Dir(Chemin & "*.*")
            While NomFichier <> ""
            ListBox1.AddItem NomFichier
            NomFichier = Dir
            Nb = Nb + 1
        Wend
    Label1.Caption = Nb & " fichiers"
        If Nb = 0 Then
        MsgBox "le fichier n'existe pas", vbInformation + vbOKOnly, "ERREUR"
        End If
End Sub
 
Private Sub Ouvrir_Click()
Dim ws As Worksheet
Dim Chemin As String
Dim NomFichier As String
 
    Set ws = ActiveSheet
    Chemin = ThisWorkbook.Path & Application.PathSeparator
    NomFichier = ListBox1 & ".pdf"
 
    ThisWorkbook.FollowHyperlink ".pdf"
 
    Set ws = Nothing
 
End Sub
 
Private Sub Quitter_Click()
 UserForm2.Hide
End Sub

et mon UserForm