Discussion :

[LeLaid]

Bonjours à toutes et tous,

Je ne parviens pas à parametrer un Common Dialog (VBA Access) de manière à ce qu'il me laisse sélectionner un dossier (directory) au lieu d'un fichier.

Peut-être quelqu'un peut-il m'aider? Me trompe-je de control?

Merci à celle ou celui qui m'aidera.

P.

[shwin]

salut utilise ceci

dans un module code pour formulaire

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub BtnPath_Click()
Dim path As String
path = BrowseDir(Me.hWnd, "Veuillez sélectionner le chemin pour la recherche de 'BDSadcin.mdb'")
If (path <> "") Then
    edtPath = path
End If
End Sub

dans un module

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
49
 
Public Const MAX_PATH = 260
Public Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
 
Public Type BrowseInfo
    hwndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As String
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type
 
Public Function BrowseDir(handle As Long, title As String) As String
 
Dim lResultBrowse   As Long
Dim lResultGetPath  As String
Dim path            As String
Dim brw             As BrowseInfo
 
With brw
       .hwndOwner = handle
       .lpszTitle = title
       .ulFlags = 1
End With
 
lResultBrowse = SHBrowseForFolder(brw)
If (lResultBrowse) Then 'OK cliqué
    path = String$(MAX_PATH, 0) 'initialise le rep à 0x260
    lResultGetPath = SHGetPathFromIDList(lResultBrowse, path)
 
    If (lResultGetPath) Then 'Aucune erreur
        Dim drv As String
        drv = Mid$(path, 1, InStr(1, path, vbNullChar) - 1) 'supprime les vbnullchar
        If (Right(drv, 1) <> "\") Then
            BrowseDir = drv & "\"
            Else: BrowseDir = drv 'retour du chemin
        End If
 
        Else: BrowseDir = ""
    End If
 
    Else: BrowseDir = ""
End If
 
End Function

[LeLaid]

Ok, ca marche. Merci.

En sus:
1. comment puis-je faire pour définir un répertoir par défaut.
2. La routine qui semble ouvrir le dialogue est SHGetPathFromIDList. D'où vient-elle? Quelle librairie?

Encore merci

[cafeine]

Code :

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

Lib "shell32"

Shell32.dll