Boite de dialogue <Sélectionner répertoire>

Forum pour partager vos connaissances et vos astuces Excel / VBA ...
Avatar du membre
lermite
Membre impliqué
Membre impliqué
Messages : 1599
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.

Code : Tout sélectionner

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.
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
  • Boite de dialogue
    par abdernino » 18 juillet 2018, 10:07 » dans Excel - VBA
    3 Réponses
    84 Vues
    Dernier message par xorsankukai
    18 juillet 2018, 12:18
  • Boite de dialogue
    par mandreux » 7 décembre 2017, 13:36 » dans Excel - VBA
    7 Réponses
    127 Vues
    Dernier message par mandreux
    7 décembre 2017, 15:24
  • Boite de dialogue
    par Blondin02 » 24 février 2017, 10:58 » dans Excel - VBA
    10 Réponses
    193 Vues
    Dernier message par Blondin02
    25 février 2017, 11:27
  • Boite de dialogue
    par Jess88 » 30 mars 2018, 12:03 » dans Excel - VBA
    2 Réponses
    150 Vues
    Dernier message par Jess88
    4 avril 2018, 11:39
  • Ouverture boîte de dialogue
    par grorkal » 14 juin 2018, 16:55 » dans Excel - VBA
    7 Réponses
    105 Vues
    Dernier message par jmd
    18 juin 2018, 14:27
  • VBA - Boite de dialogue
    par Katoune73 » 18 avril 2016, 14:31 » dans Excel - VBA
    7 Réponses
    317 Vues
    Dernier message par Yvouille
    20 avril 2016, 10:09