Boite de dialogue <Sélectionner répertoire>

Pour écrire et partager des tutoriels et des astuces avec les autres membres (Excel ou VBA uniquement)
Avatar du membre
lermite
Membre impliqué
Membre impliqué
Messages : 1'599
Inscrit le : 5 février 2012
Version d'Excel : 2000/2007FR

Message par lermite » 6 mars 2012, 20:01

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.
Tout problème a une solution, le vrai problème... c'est de la trouver.
p
psycolab
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 17 février 2014
Version d'Excel : 2010

Message par psycolab » 17 février 2014, 11:55

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message