il faut instaler la reference de access avant
Imports Access Public Sub ImportAccess(ByVal FileName As String, ByVal val As String) AppAccess = New Access.Application AppAccess.OpenCurrentDatabase("chemin\maBase") AppAccess.DoCmd.DeleteObject(AcObjectType.acTable, "maTable") AppAccess.DoCmd.TransferSpreadsheet(AcDataTransferType.acImport, , "maTable", "Nomdufichier Excel", True, "NomFeuil!") AppAccess.DoCmd.DeleteObject(AcObjectType.acTable, "NomFeuil$_ImportErrors") AppAccess.CloseCurrentDatabase() End Sub
mieux que ça je connais pas.