Salut à toutes et à tous,

J'ai écris le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.