Hello !

I try to use this code :

Sub ChoixRepertoire()
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim Chemin As String

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un
répertoire", &H1&)

On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path

MsgBox Chemin
End Sub

I have Excel 2002, and Windows XP.

I'd like to block the user from dragging folders in that window. Is it
possible ?

I don't want the user to move folders while seleting it.

I've tried with the API, but I cannot set the root folder, so the user
doesn't go anywhere else in the tree

thanks !

tiah.

I don't see a way to block it. You might have to use:

Sub Test()
On Error Resume Next
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
MsgBox .SelectedItems(1)
End With
End Sub


--
Jim
"tiah" wrote in message
...
Hello !

I try to use this code :

Sub ChoixRepertoire()
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim Chemin As String

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un
répertoire", &H1&)

On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path

MsgBox Chemin
End Sub

I have Excel 2002, and Windows XP.

I'd like to block the user from dragging folders in that window. Is it
possible ?

I don't want the user to move folders while seleting it.

I've tried with the API, but I cannot set the root folder, so the user
doesn't go anywhere else in the tree

thanks !

tiah.

thanks Jim, I cannot use that, since user will see the whole path.

do you know how to set the "top folder" ? to the api ?

On 5 mar, 12:07, "Jim Rech" wrote:
I don't see a way to block it. *You might have to use:

Sub Test()
* * On Error Resume Next
* * With Application.FileDialog(msoFileDialogFolderPicker)
* * * * .Show
* * * * MsgBox .SelectedItems(1)
* * End With
End Sub

--
Jim"tiah" wrote in message

...
Hello !

I try to use this code :

Sub ChoixRepertoire()
* *Dim objShell As Object, objFolder As Object, oFolderItem As Object
* * Dim Chemin As String

* * Set objShell = CreateObject("Shell.Application")
* * Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un
répertoire", &H1&)

* * On Error Resume Next
* * Set oFolderItem = objFolder.Items.Item
* * Chemin = oFolderItem.Path

* * MsgBox Chemin
End Sub

I have Excel 2002, and Windows XP.

I'd like to block the user from dragging folders in that window. Is it
possible ?

I don't want the user to move folders while seleting it.

I've tried with the API, but I cannot set the root folder, so the user
doesn't go anywhere else in the tree

thanks !

tiah.

I haven't looked at it in years but I never had any luck setting the top
folder using the API method, other than to a system folder. All I could do
was set the initial folder using a callback.

--
Jim
"tiah" wrote in message
...
thanks Jim, I cannot use that, since user will see the whole path.

do you know how to set the "top folder" ? to the api ?

On 5 mar, 12:07, "Jim Rech" wrote:
I don't see a way to block it. You might have to use:

Sub Test()
On Error Resume Next
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
MsgBox .SelectedItems(1)
End With
End Sub

--
Jim"tiah" wrote in message

...
Hello !

I try to use this code :

Sub ChoixRepertoire()
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim Chemin As String

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un
répertoire", &H1&)

On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path

MsgBox Chemin
End Sub

I have Excel 2002, and Windows XP.

I'd like to block the user from dragging folders in that window. Is it
possible ?

I don't want the user to move folders while seleting it.

I've tried with the API, but I cannot set the root folder, so the user
doesn't go anywhere else in the tree

thanks !

tiah.

Hello Jim,

thanks for your help. I think i will use a tree view :)

On 5 mar, 14:00, "Jim Rech" wrote:
I haven't looked at it in years but I never had any luck setting the top
folder using the API method, other than to a system folder. *All I could do
was set the initial folder using a callback.

--
Jim"tiah" wrote in message

...
thanks Jim, I cannot use that, since user will see the whole path.

do you know how to set the "top folder" ? to the api ?

On 5 mar, 12:07, "Jim Rech" wrote:



I don't see a way to block it. You might have to use:

Sub Test()
On Error Resume Next
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
MsgBox .SelectedItems(1)
End With
End Sub

--
Jim"tiah" wrote in message

...
Hello !

I try to use this code :

Sub ChoixRepertoire()
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim Chemin As String

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un
répertoire", &H1&)

On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path

MsgBox Chemin
End Sub

I have Excel 2002, and Windows XP.

I'd like to block the user from dragging folders in that window. Is it
possible ?

I don't want the user to move folders while seleting it.

I've tried with the API, but I cannot set the root folder, so the user
doesn't go anywhere else in the tree

thanks !

tiah.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -