Bonjour les experts,
je pense avoir fait une erreur , je souhaite importer tous les fichiers excel (xls) du lecteur E dans ma base access , ce qui génèrent plusieurs tables et , je voudrai également (si possible ) garder le nom du fichier excel dans la table access . nom fichier excel X = même nom de la table Access X.
Merci pour votre aide. cordialement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Function ImporteDbl1() Dim NomFich As String Dim NomTbl As String NomFich = Dir("E:*.xls") ' tranferer tous les fichiers xls. Do While NomFich <> "" DoCmd.TransferDatabase acImport, "dBase IV", "E:\", , NomFich, False, False NomFich = Dir Loop End Function
Partager