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é" |
Partager