Boite de dialogue <Sélectionner répertoire

En complément de la liste de fichier il serait peut être intéressant de laisser la possibilité à l'utilisateur de choisir le répertoire.

C'est ce que ce bout de code fait.

Function SelectionRep() As String
Const ssfTous = &H1
Dim objShell As Object, objFolder As Object, oFolderItem As Object
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", ssfTous)
    If objFolder Is Nothing Then Exit Function
    Set oFolderItem = objFolder.Items.Item
    SelectionRep = oFolderItem.Path
    Set objShell = Nothing
    Set objFolder = Nothing
    Set oFolderItem = Nothing
End Function

Retourne le chemin complet sans "\" le slash inverse.

Bonjour,

J'utilise ce morceau de code depuis quelque temps déjà et jusqu'à présent je n avais jamais eu de problème, mais ça c'était avant.

Je suis actuellement sur un ordi avec seven version anglaise et depuis si je sélectionne le Desktop comme cible, le code plante alors que si je choisi un dossier sur le bureau comme cible, le code marche. Dans mes souvenirs ce code marchait sur mon ancien pc qui avait une version fr de vista

C:\Users\Moi\Desktop -> marche pas

C:\Users\Moi\Desktop\New folder -> marche

Avez vous une idée SVP ?

Nicolas

Rechercher des sujets similaires à "boite dialogue selectionner repertoire"