Import de feuil excel dans une table access

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.

Ce document intitulé « Import de feuil excel dans une table access » issu de CodeS SourceS (codes-sources.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.