[VBA-Excel] Bouton Parcourir [Résolu]

Signaler
Messages postés
78
Date d'inscription
mercredi 26 janvier 2005
Statut
Membre
Dernière intervention
19 mars 2014
-
Messages postés
4
Date d'inscription
lundi 27 septembre 2010
Statut
Membre
Dernière intervention
28 avril 2011
-
Bonjour,

J'aurais besoin de créer un bouton excel permettant de sélectionner un répertoire qui sera ensuite écrit dans une cellule. J'ai le code suivant pour parcourir les dossiers afin d'ouvrir un fichier .pdf mais moi je ne veux pas ouvrir de fichier juste sélectionner un chemin (un dossier si on veux)

CheminEtNom = Excel.Application.GetOpenFilename("Fichiers pdf (*.pdf),*.*", Null, "selection")

Je ne sais pas comment l'adapter à mes besoins

Merci d'avance

4 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
50
Salut,
Regarde dans la section code avec le mot clé Browse For Folder. cela devrait de permettre de résoudre ton problème

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
78
Date d'inscription
mercredi 26 janvier 2005
Statut
Membre
Dernière intervention
19 mars 2014

J'ai trouvé une solution:

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
   
    Range("B3").Value = Chemin

Merci à ceux qui m'ont aidé
Messages postés
1
Date d'inscription
jeudi 30 août 2007
Statut
Membre
Dernière intervention
15 février 2011

Génial !!
C'est excatement ce qu'il me fallait !

Merci.
Messages postés
4
Date d'inscription
lundi 27 septembre 2010
Statut
Membre
Dernière intervention
28 avril 2011

Nickel super programme c'est cool