VBA Excel pour inviter l'utilisateur à sélectionner un dossier et à renvoyer le chemin d'accès sous forme de variable de chaîne

Question

J'essaie d'écrire un code VBA où une boîte de dialogue apparaîtrait pour que l'utilisateur puisse sélectionner où il souhaite enregistrer les fichiers. Cependant, j'ai juste besoin de la valeur du chemin (par exemple c:\Desktop\Values) est retourné sous forme de variable chaîne afin que je puisse l'utiliser dans une autre fonction. Toute aide serait appréciée.

Answer 1

Considérer:

Function GetFolder() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolder = sItem
    Set fldr = Nothing
End Function

Ce code a été adapté de Ozgrid

et comme le souligne jkf, de Mr Excel