Bonjour à tous!

Comment fait-on pour importer un fichier dans une base B depuis une base A.
J'ai le code suivant, lancé depuis ma base A mais l'import ne se fait pas dans la Base B comme je le souhaiterai:

Dim oDb As DAO.Database
strMotPasse = ""
strCheminBd = "C:\Base A.mdb"
'Définit la chaine de connexion permettant la liaison des tables
strConnect = "MS Access;pwd=" & strMotPasse & ";DATABASE=C:\Base A.mdb"
'Instancie l'objet Database de la base protégée
Set oDb = DBEngine.OpenDatabase(strCheminBd, True, True, strConnect)

'*************************
' Import du fichier Text *
'*************************
Dim Fichier01 As String
Fichier01 = OpenFile("", Mono_Sélection, True, allfiles, , True, "*.txt", True)
If Not Nz(Fichier01, "") = "" Then
DoCmd.TransferText acImportFixed, "01", "01", Fichier01
MsgBox "Import fichier 01 terminé"

comment faire pour que le fichier s'importe dans la base B?

D'avance merci.

Bonjour,

Il faudrait que tu exportes vers la base B. Là, il me semble que tu importes vers la base A depuis la base A.

Sinon par une macro "importer texte" puis tu executes ta macro dans ton code.

A plus tard.

gwenagan a écrit :

Bonjour,

Il faudrait que tu exportes vers la base B. Là, il me semble que tu importes vers la base A depuis la base A.

Oui mais bien que je me connecte à la Base B, ca importes vers la A....

Pour ce qui suit, je ne vois pas car j'utilise déjà une macro d'import texte

Sinon par une macro "importer texte" puis tu executes ta macro dans ton code.