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

Messages postés
78
Date d'inscription
mercredi 26 janvier 2005
Dernière intervention
19 mars 2014
- 3 août 2007 à 09:08 - Dernière réponse :
Messages postés
4
Date d'inscription
lundi 27 septembre 2010
Dernière intervention
28 avril 2011
- 28 avril 2011 à 11:37
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
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
- 3 août 2007 à 09:45
3
Merci
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

Merci jrivet 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Commenter la réponse de jrivet
Messages postés
78
Date d'inscription
mercredi 26 janvier 2005
Dernière intervention
19 mars 2014
- 3 août 2007 à 09:56
0
Merci
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é
Commenter la réponse de apache88
Messages postés
1
Date d'inscription
jeudi 30 août 2007
Dernière intervention
15 février 2011
- 15 févr. 2011 à 11:06
0
Merci
Génial !!
C'est excatement ce qu'il me fallait !

Merci.
Commenter la réponse de impactjlr
Messages postés
4
Date d'inscription
lundi 27 septembre 2010
Dernière intervention
28 avril 2011
- 28 avril 2011 à 11:37
0
Merci
Nickel super programme c'est cool
Commenter la réponse de mathlepotier

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.