Salut à toutes et à tous,
J'ai écris le code suivant:
Su click du bouton, il ne se passe rien ! La table est toujours vide ! D'où réside le problème ?
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
Merci d'avance.
Partager