Discussion :

[NicolasMO]

Bonjour,

Je sohaiterais, dans une userform, programmer un bouton parcourir qui me permette d'aller explorer le disque dur pour y chercher un document. Ensuite, l'adresse du document sélectionné doit apparaitre dans une textbox à coté du bouton parcourir. C'est comme le truc qui existe en fait, mais un peu personnalisé! Comment qu'on fait?

[Solkien]

Tu devrais trouver une partie de ton bonheur là bas :

http://www.developpez.net/forums/sho...d.php?t=409232

[Guidhy]

Bonjour,

Moi ce que j'ai fais c'est ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton3_Click()
 
  With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
 ' Je copie le chemin de mon fichier dans le textbox1
        UserForm1.TextBox1.Text = .SelectedItems(1)
    End With
 
End Sub

Voilou.

Bon journée !

[random]

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
Function expl(racine As String) As Variant
Dim rep() As Variant
Dim colldir As New collection
Dim parco As Variant
Dim nb As Integer
Dim avant As Integer
Dim apres As Integer
Dim direct As String
Dim fichier As String
Dim dervu As Integer
dervu = 0
colldir.Add (racine)
Do
avant = colldir.Count
For nb = dervu + 1 To avant
direct = colldir(nb)
     fichier = dir(direct, vbDirectory)
       Do Until fichier = ""
       If fichier <> "." And fichier <> ".." And ((GetAttr(direct & fichier) And vbDirectory) = vbDirectory) Then
       colldir.Add (direct & fichier & "\")
       End If
       fichier = dir
       Loop
    dervu = dervu + 1
Next nb
Loop Until avant = colldir.Count
ReDim rep(1 To colldir.Count)
For nb = 1 To colldir.Count
rep(nb) = colldir(nb)
Next nb
expl = rep
End Function
 
 
Function chbases(lecteur As String) As Variant
Dim arbo As Variant
Dim parcourt As Variant
Dim fichier As String
arbo = expl(lecteur & ":\")
For Each parcourt In arbo
   fichier = dir(parcourt & "*.mdb")
   If fichier <> "" Then Debug.Print parcourt
   Do Until fichier = ""
   Debug.Print fichier
   fichier = dir
   Loop
Next parcourt
End Function

[NicolasMO]

Oulala!! Que de possibilités!
En tant que novice, j'ai pris la plus simple, la première. J'ai étudié les autres, mais j'ai eu un peu de mal à suivre.
Merci quand même pour toutes ces idées.
Nicolas