Récup chemin répertoire

Bonsoir à tous,

J'ai de nouveau besoin d'un coup de main.

Je voudrais que l'utilisateur d'un fichier documente via une InputBox le chemin du répertoire où est enregistré un fichier pour pouvoir l'ouvrir plus tard.

J'ai créé un Module dans lequel j'ai mis un bout de code mais cela bug.

Est-ce que ce ne serait pas lié au fait que je devrais transformer la valeur récupérée de l'InptuBox pour la mettre entre " " ?

Quelqu'un aurait une aide à m'apporter ?

Merci par avance.

Cordialement.

Thierry

bonsoir,

une proposition

Sub recup()
    'Récupération du chemin
    If Range("b2") = "" Then
        'Ouverture du fichier
        Set fd = Application.FileDialog(msoFileDialogFolderPicker)
        With fd
            .Title = "Sélectionner répertoire"
            .Filters.Clear
            .AllowMultiSelect = False
            If .Show = -1 Then
                chemin = .SelectedItems(1)
            End If
        End With
        Range("b2").Value = chemin
        'Ouverture du fichier
        Workbooks.Open Filename:=chemin & "\test.xlsx"
    End If
End Sub

Bonsoir,

Merci pour l'aide, je vais tester et reviens clore le sujet si c'est ok.

Merci encore.

Bonne soirée.

Thierry

Re,

Ca marche nickel. Un grand merci.

Bonne soirée.

Thierry