pb sur les fichier, svp un p'ti coup de main!

bonjour,
j'ai un tit pb:
 à partir de mon application les utilisateur peuvent ouvrir excel ou word en chargeant un fichier, mais au moment du choix dans excel (ou word) d'ouvrir le fichier en lecture seule ou non, ils peuvent quitter l'application sans ouvrir le dossier et à ce moment j 'ai un message d'erreur sur ma commande d'ouverture: "la methode open de la classe workbooks à échouer"

voici mon code :
 If ext = "xls" Then
        Set fs = CreateObject("Scripting.FileSystemObject")
        If fs.FileExists(fichier) = False Then
        MsgBox "Ce fichier n'existe pas"
        Exit Sub
        End If
        Set xls = CreateObject("Excel.application")
        xls.DisplayAlerts = False
        xls.Visible = True
        xls.Workbooks.Open (fichier)
        With xls
        MsgBox .Range("A1").Value
        End With
        xls.quit
        Set xls = Nothing
    End If

si qql saurait m'aider ce serait avec bcp de gratitude....
bref au s'cour!!!
merci d'avance

on error goto Err_OpenExcel au debut

et aprés
Err_OpenExcel :
if err.number = "ton erreur générée par l'annulation" then
   msgbox "On t'as dit de l'ouvrir ce classeur !!"
else
   msgbox "Erreur : " & err.number & vbcrlf & err.description
end if

non ??

happy coding ...