Discussion :

[tzinzin]

Bonjour,
Est-il possible d'attribuer à une variable le chemin d'accès à un dossier, comme on peut le faire sous windows avec "parcourir" ?
par exemple attribuer à la variable "acces" le texte : "C:\charente\propriétaires"

[Jean-Philippe André]

bonjour, oui c'est faisable, mais que veux-tu faire exactement ?
mettre "C:\MonSuperDossierAMoi" dans une variable rep de type string ?
=>

Code :

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

rep = "C:\MonSuperDossierAMoi"

ou alors tu passes par un explorateur qui te retourne le dossier directement ?

[tzinzin]

je veux passer par un explorateur

[Jean-Philippe André]

recherche getopenfilename sur le forum, il y a deja de nombreux exemples.

[Nicko29]

Tiens je suis en ce moment sur ce sujet moi aussi ,

regarde dans la faq ici : Comment ouvrir une fenêtre de sélection de répertoire ?

et mon projet se rapproche du tiens le fil de ma discussion : Selection d'un dossier et récupration du chemin

A plus

[tzinzin]

il faut mettre tout ça (je suis sous access 2002)?

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
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
 
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, _
    ByVal lpBuffer As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, _ 
    ByVal lpString2 As String) As Long
 
Private Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
     ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type

La fonction suivante ouvre la fenêtre de sélection de répertoire standard de Windows et renvoie le chemin du répertoire
sélectionné. Les paramètres attendus sont le titre à afficher et l'identifiant de la fenêtre parente.

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
 
Public Function SelectFolder(Titre As String, Handle As Long) As String
 
Dim lpIDList As Long
Dim strBuffer As String
Dim strTitre As String
Dim tBrowseInfo As BrowseInfo
 
strTitre = Titre
With tBrowseInfo
    .hWndOwner = Handle
    .lpszTitle = lstrcat(strTitre, "")
    .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
 
lpIDList = SHBrowseForFolder(tBrowseInfo)
 
If (lpIDList) Then
    strBuffer = String(260, vbNullChar)
    SHGetPathFromIDList lpIDList, strBuffer
    SelectFolder = Left(strBuffer, InStr(strBuffer, vbNullChar) - 1)
End If
 
End Function