Getopenfilename et annulation

Sub test()

    'Application.GetOpenFilename ' affiche la boîte de dialogue sans ouvrir
   
Dim DocChoisi
     DocChoisi = Application.GetOpenFilename(("Tous les fichiers Excel (*.xls),*.xls"), 2, "Fichiers à rechercher")

             If DocChoisi = False Then
                 ' Traitement si le bouton Annuler a été choisi
                 MsgBox "Annulé"
             Else
                 ' Vérification éventuelle que le fichier choisi est conforme à ce qui est attendu
                     '
                 ' Ouverture
                 Workbooks.Open DocChoisi
                 'MsgBox DocChoisi
             End If

End Sub

Sub test()
Dim xlbook
On Error GoTo fin
Set xlApp = CreateObject("Excel.application")
Set xlbook = xlApp.Workbooks.Open(Application.GetOpenFilename)
MsgBox "le nom choisi est : " & Chr(34) & xlbook.Name & Chr(34)
Exit Sub
fin:
MsgBox "vous êtes sorti par cancel"

End Sub