Discussion :

[CIRE3]

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[CIRE3]

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

[Pierre Fauconnier]

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?
...

[CIRE3]

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