Erreur 13, incompatibilite de type vba

Signaler
-
 Nora -
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

1 réponse

Messages postés
10271
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
3 avril 2020
579
bonjour, à quelle ligne se produit l'erreur?
> yg_be
Messages postés
10271
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
3 avril 2020

mon souci c'est importer un fichier excel dans une base access avec du code vba; avec seulement deux (boutons)commandes.
commande 1: me donne la possibilite de chercher le fichier Excel seulement sur les disque, et recuperer son chemin d'acces ou emplacement apartir d'une zone de texte(ceci tourne parfaitement).
commande 2: importer ce fichier apartir de son chemin d'acces qui est dans la zone de texte vers la base access(ceci donne l'erreur d'incompatibilite de type).
Quand j'ai excute le code selon votre assistance: ily a une erreur qui est apparue(erreur 3170: Could not find installable ISAM ou Impossible de trouver ISAM installable) sur le code du module: DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel2, tableName, FileName, True
yg_be
Messages postés
10271
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
3 avril 2020
579 > Nora
tu as corrigé un bug, il faux maintenant que tu corriges les suivants.
sans appliquer ma suggestion, le code n’essayait même pas de faire l'importation.
je ne comprends pas bien pourquoi tu as choisi
acExport
: es-tu certain de ce choix?
> yg_be
Messages postés
10271
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
3 avril 2020

Nom de Dieu! Pas vraiment, quelle erreur de ma part
un instant svp!
> yg_be
Messages postés
10271
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
3 avril 2020

erreur 3170: Could not find installable ISAM (ou Impossible de trouver ISAM installable) sur le code du module: DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel2, tableName, FileName, True
> yg_be
Messages postés
10271
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
3 avril 2020

Etes-vous fache pour mon silence? c'etait vraiment independament de ma volonte!