parcourir

[PY]

Bonjour a tous

j'ai un bouton parcourir et quand je clique dessus je voudrais afficher la boite de dialogue window parcourir et récuprer le chemin sélectionner dans une variable comment faire ?

merci

 

[Fred]

slt ,essaye d'utiliser ca :

Private Function ChoisirDossier()
Dim objShell, objFolder, chemin, SecuriteSlash

Set objShell = CreateObject("Shell.Application")
Set objFolder = _
objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
On Error Resume Next
chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
If objFolder.Title = "Bureau" Then
chemin = "C:\Windows\Bureau"
End If
If objFolder.Title = "" Then
chemin = ""
End If

SecuriteSlash = InStr(objFolder.Title, ":")

If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoisirDossier = chemin
End Function

Sub test()
MsgBox (ChoisirDossier)
End Sub

 

[PY]

merci fred

c'est exactement ce que je voulais mais comment faire pour récuperer le chemin selectionner et le placer dans un textbox ( en fait je me ressers du textbox dans un autre sub
chemin = textbox(qui contient mon chemin d'acces).text.value
et dans l'autre sub je marque

myfilename = chemin & Range("F10") & " " & Range("C12").Value & ".xls":

 

[Fred]

en plus de la fonction que je t'ai envoyé au dessus dans ton sub tu mets :
textbox.value = ChoisirDossier

 

[PY]

excuse-moi Fred mais je ne vois pas dans quelle sub il faut mettre
textbox.value = ChoisirDossier

peut-etre l'effet 15 aout !

PY

 

[Fred]

Essaye ca:

Private Function ChoisirDossier()
Dim objShell, objFolder, chemin, SecuriteSlash

Set objShell = CreateObject("Shell.Application")
Set objFolder = _
objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
On Error Resume Next
chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
If objFolder.Title = "Bureau" Then
chemin = "C:\Windows\Bureau"
End If
If objFolder.Title = "" Then
chemin = ""
End If

SecuriteSlash = InStr(objFolder.Title, ":")

If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoisirDossier = chemin
End Function


Sub fichier-chemin ()

textbox.value = ChoisirDossier
myfilename = ChoisirDossier & "\" & Range("C12").Value & ".xls"

End Sub