Y
yolo
Guest
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
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