Bonjour

Je pense avoir faire une erreur de code pour importer tous les fichier Excel dans la base de Access . Quelqu'un pourrait m'aider ?
voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Function ImporteDbl1()
 
Dim NomFich As String
Dim StrSQL1 As String, StrSQL2 As String
Dim NomTbl As String
 
NomFich = Dir("E:*.dbf")
 
Do While NomFich <> ""
 
DoCmd.TransferDatabase acImport, "dBase IV", "E:\", , NomFich, False, False