Discussion :

[motrin]

Bonjour,
Dans mon application Excel, je veux mettre un sélecteur de répertoire. Je sais qu'il existe une FAQ de VB sur ce sujet, mais je n'arrive pas à passer mes données en paramètre à la fonction. Il est peut-être possible que la fonction soit seulement valide en vb6. Je vous rappelle que je suis en VBA excel 2000. Quand j'appelle la fonction strDirectory_Copy = SelectFolder("titre selecteur", Me.hwnd). J'ai une erreur de compilation, car excel ne reconnait pas le membre hwnd. Ce membre handle ne semble pas disponible en Excel. Ma fct SelectFolder est implémenter dans un module que j'ai créé. Dans mon projet je n'ai pas implémenté de fenêtres de dialogue. Est-ce qu'il y a quelqu'un qui pourrait me dire comment je pourrais obtenir mon handle de ma fenêtre parente pour faire afficher mon sélecteur de répertoire. Merci!

[SilkyRoad]

bonjour


Tu peux essayer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    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

michel