[XL-2003] fenêtre "choix chemin" [Résolu]

[jf29840]

Bonjour,

Je voudrais, sur appuis d'un bouton, ouvrir une fenêtre permettant de sélectionner un dossier et ainsi récupérer le chemin pour le mettre dans une cellule.
Est-ce possible ? et comment ?

Merci d'avance

[fama78]

Bonjour,

Voici ce que je ferai :

Code :

1
2
3
4
5
6
7
8
9
10
Sub BoiteDialogeEnregistrement()
 
    Dim strCheminEnregistrement As String
 
 
    strCheminEnregistrement = Application.GetSaveAsFilename         'Permet d'ouvrir la boite de dialogue pour choisir le chemein d'enregistrement du fichier
 
    Range("A1") = strCheminEnregistrement
 
End Sub

Cordialement.

[issoram]

Bonjour,

De mémoire (mais elle n'est pas très bonne) il me semble que la méthode proposée par fama78 ne permet de sélectionner que des fichiers et pas des dossiers.
Si c'est le cas essaie ceci:

Code :

Application.FileDialog(msoFileDialogFolderPicker)

Cordialement.

[Qwazerty]

Salut

Code :

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Dim Retour
    'demande à l'utilisateur de selectionner le fichier
    Retour = Application.GetOpenFilename("Tous les fichiers (*.*), *.*", , "Choisir le fichier à lancer.")
    'On place le chemin du chantier dans la cellule en cours
    If Retour <> False Then Selection = Retour
End Sub

++
Qwaz

[bbil]

Bonsoir,

s'il s'agit de récupérer un répertoire, voir :

Comment choisir un répertoire (utilisation de BrowseForFolder) ?

[jf29840]

Merci à vous.
La solution retenue est celle de bbil