Stocker le texte saisi dans une inputbox dans une variable

Bonjour,

j'aimerais savoir dans un premier temps comment on peut récupérer le nom d'un fichier excel saisi dans une inputbox par un utilisateur ensuite le stocker dans une variable ? dans un second temps comment cette variable va me permettre d'ouvrir le fichier excel saisi par l'utilisateur?

voici ce que j'ai essayé mais ça ne fonctionne pas:

Dim Chemin As String
Chemin = InputBox("quel fichier voulez vous ouvrir ?", "hello")
Set wb = Workbooks.Open(Chemin)

merci d'avance pour votre aide.

Bonsoir,

une proposition

Sub ouvrirfichier()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Title = "ouvrir fichier excel"
        .Filters.Clear
        .Filters.Add "excel file", "*.xls*"
        .AllowMultiSelect = False
        If .Show = -1 Then
            classeurcible = .SelectedItems(1)
        End If
    End With
    Set wb = Workbooks.Open(classeurcible)
End Sub

merci beaucoup , c'est exactement ce que je cherche à faire.

bonne soirée.