Erreur 13, incompatibilite de type vba

Bonjour,
Je besoin du secour s'il vous plait!
j'aimerais importer fichier excel dans la base des donnees avec du vba. Quand j'execute les codes, j'ai ce message "type mismatch" ou incompatibilité de type. Merci d'avance pour votre secour !

Code:
Module: ImportExcel

Option Compare Database
Public Sub importExcelspreadsheet(FileName As String, tableName As String)
On Error GoTo BadFormat
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2, tableName, FileName, True
Exit Sub
BadFormat:
MsgBox "Le fichier que vous essayer d'importer n'est pas un fichier Excel "
End Sub


Option Compare Database
Private Sub btnBrowse_Click()
Dim boite_dialg As Office.FileDialog
Dim item As Variant
Set boite_dialg = Application.FileDialog(msoFileDialogFilePicker)
boite_dialg.AllowMultiSelect = False
boite_dialg.Title = "Selection du fichier"
boite_dialg.Filters.Clear
boite_dialg.Filters.Add "Excel spreadsheets", "*.xls,*.xlsx"
If boite_dialg.Show Then
For Each item In boite_dialg.SelectedItems
Me.txtNom_fichier = item
Next
End If
End Sub

Private Sub btnImportspreadsheet_Click()
Dim FSO As New FileSystemObject
If Nz(txtNom_fichier, "") * "" Then
MsgBox "Veuillez selectonner un fichier"
Exit Sub
End If
If FSO.FileExists(Nz(Me.txtNom_fichier, "")) Then
ImportExcel.importExcelspreadsheet Me.txtNom_fichier, FSO.GetFileName(Me.txtNom_fichier)
Else
MsgBox "Ficher non trouve"
End If
End Sub

Merci bien