[VBA-E] Récupérer le chemin d'un répertoire

Salut à tous!

Tout d'abord, félicitations pour ce forum, il m'a vraiment aidé à trouver tout plein d'infos utiles!!

Par contre, j'ai un petit problème et là, je cale.
J'utilise une version Excel 2003 avec l'éditeur VBA qui va avec.

J'ai crée un modèle de document Excel avec une macro. Cette macro va chercher des information dans un autre tableau, les copie dans le modèle et sauvegarde le modèle sous un autre nom dans un autre dossier.
J'ai donc crée un UserForm avec différentes zones de saisie de texte:
- une pour sélectionner le chemin du tableau source (j'y arrive sans problème)
- une pour sélectionner le répertoire de sauvegarde: c'est là qu'est mon problème, je n'arrive pas à trouver la fonction qui m'ouvre une fenetre dans lequelle je peux simplement sélectionner un nom de répertoire.

Alors forcément, je pourrai utiliser une fonction GetOpenFile et enlever le nom du fichier sélectionné, mais c'est pas très élégant et il faut qu'un fichier soit dans le dossier pour que ca marche. Est ce que quelqu'un a une idée pour me faire avancer? Merci d'avance!!!

Tu peux utiliser l'objet Microsoft Common Dialog qui te permet de créer des boites de recherches de fichier personnalisable.
Clic droit sur la boite a outils / Contrôles Supplémentaires

merci pour ta réponse Jérome! J'avais pas pensé à ca, mais j'ai essayé par le passé le Common Dialog et j'ai un problème de compatibilité que (j'avoue...) je n'ai pas vraiment chercher à régler. Du coup, je crois qu'il va falloir que je me plonge vraiment dedans.... :o(
Si quelqu'un connait une autre solution qui pourrait aussi marcher, je suis toujours partant (promis, je regarde ce truc sur la compatibilité!)

Bonjour
J'avais rencontré un problème identique
Sous NT ou 2000 ou peut utiliser ça

Code:

---

1 2 3 4 5

With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False e = .Show If e = -1 Then a$ = .SelectedItems(1) End With

---

Mais ça marche pas sous 98 ou XP
A moins qu'il faille rajouter une bibliothèque que je ne connais pas
Je suppose que tu préfère des solutions qui marchent mais... j'ai pas en stock
Tiens nous au courant
Merci

Platform3, ton code marche si tu ajoutes à tes référence la bibliothèque d'objets Office (la version) dans les référence de ton projet VBA (menu Outils, Référence). Avec WinXP et OfficeXP, on trouve cette bibliothèque dans les Fichiers communs.

Le chemin complet :
C:\Program files\Fichier communs\Microsoft shared\Office 10\MSO.DLL

Pour Win98 et autres version de Office, j'ignore!

Salut!!
Merci à toi Palteforme3 pour ton idée! Le code, tel que tu l'as présenté, ne fonctionne en effet pas chez moi, mais avec l'aide en ligne, j'ai finalement trouvé ma solution. Voici donc le code:

Code:

---

1 2 3 4 5 6 7 8

Sub CheminDossier() With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False If .Show = -1 Then MsgBox "The path is: " & .SelectedItems(1) End If End With End Sub

---

Merci encore à tous!!!