Macro avec bouton parcourir qui ne fonctionne pas

Bonjour à tous,

n'étant pas à l'aise avec le code VBA, est ce que quelqu'un peut me dire pourquoi mon code ne fonctionne pas.

J'ai créé un bouton qui ouvre une boîte de dialogue qui est censé ensuite aller chercher un fichier excel grace au bouton "Parcourir". Mais ce fichier que je veux aller chercher ne se charge pas.

J'ai dû oublié quelque chose....

je vous joins le fichier

merci d'avance de votre aide

Bonjour,

Private Sub CommandButton1_Click()
NewWorkbook = Application.GetOpenFilename( _
            FileFilter:="Excel 2003 (*.xls),*.xls,Excel 2007 (*.xlsx),*.xlsx,Excel 2007 (*.xlsm),*.xlsm", _
            Title:="Select an Excel File", _
            MultiSelect:=File)
    If NewWorkbook = False Then
        Exit Sub
    Else
        Workbooks.Open Filename:=NewWorkbook
    End If
End Sub

Merci beaucoup Xmenpl. Ça fonctionne parfaitement.