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 ca je connais pas