Bonjour,

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:

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