With Me.cdlg .DialogTitle = "Choisissez le classeur Excel à traiter" .Filter = "Classeur Excel (*.xls)|*.xls" .CancelError = True On Error Goto cancelled .ShowOpen DoEvents MsgBox .FileName Exit Sub 'Exit Function End With cancelled: MsgBox "annulé", vbExclamation