Importer des données Excel dans la base Access

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:

---

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

---

Salut.

Tu parles de fichiers Excel mais tu importes des DBF...
Il manque un \ dans la ligne d'attribution du nom du fichier.
Tu dois reprendre le nom complet du fichier, en ce compris le chemin d'accès.
Tu dois bien placer tes paramètres dans la ligne ImportDatabase.
Tu as intérêt à nommer tes arguments.
Tu as ouvert une boucle, tu dois donc la fermer.
Avant de la fermer, tu dois récupérer le nom du fichier suivant.

Essaie ceci (pas pu tester sur un DBF)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function ImporteDbl1() Dim NomFich As String Dim StrSQL1 As String, StrSQL2 As String Dim NomTbl As String   NomFich = "e:\" & Dir("e:\*.dbf")   Do While NomFich <> "" DoCmd.TransferDatabase transfertype:=acImport, databasetype:="dBase IV", databasename:=NomFich NomFich = "e:\" & Dir() Loop End Function

---

Bonjour l'expert

Oui , j'ai fait une erreur . ce n'est pas du Dbf que je veux importer
je chercher un code pour importer dans un lecteur "E" tous les fichier Excel
dans la base quelque que soit le nom du fichier

Merci pour votre aide

Salut.

C'est un peu imprécis comme demande. Tu veux importer chaque feuille de chaque fichier Excel?
Tes fichiers sont-ils tous structurés de la même façon?
Utilises-tu la même plage ou une plage nommée?
...

Bonjour Pierre

Merci pour la réponse.
Le problème a été résolu ... un seul fichier Excel sera envoyé regroupant toutes informations . Donc facile pour importer les données

Cordialement
Eric