Exécution d'une macro dans une base Access en VB6
Salut à toutes et à tous,
J'ai écris le code suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Private Sub Command1_Click()
Dim accApp As Access.Application
Dim accCn As ADODB.Connection
Set accCn = New ADODB.Connection
accCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=base.mdb;Persist Security Info=False"
accCn.Open
Set accApp = New Access.Application
accApp.DoCmd.TransferText acImportDelim, , "MaTable", "Fichier.txt"
End Sub |
Su click du bouton, il ne se passe rien ! La table est toujours vide ! D'où réside le problème ?
Merci d'avance.
