export de données

[yolo]

bonjour,
je cherche à affecter des données d'excel sur ma table access ;
ca ne marche pas et m'affiche un probleme de type incompatible
Code:

Dim XLFichier As Workbook, x As Variant
Set XLFichier = Workbooks.Open("test.xls")
x = XLFichier.Worksheets(3).Range("b15").Value

Dim MaTable As Recordset
Set MaTable = CurrentDb.OpenRecordset("Employes")
MaTable.AddNew
MaTable("a") = x
MaTable.Update
MaTable.Close
Set XLFichier = Nothing


Merci de votre aide

 

[wally]

Bonsoir yolo et le forum,

Essaye avec :

Dim MaTable As Object


Slts

wally