Discussion :

[Safaritn]

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.

[zazaraignée]

Membre régulier, 113 messages, et tu ne connais pas encore le bouton pour ajouter une balise Code ?

[Safaritn]

Merci pour votre réponse.

En effet, je ne connais pas bien ce bouton et j'aimerai bien que vous m'éclairsissiez bien sur ce sujet.

[zazaraignée]

J'aimerais mieux que tu me tutoies. J'ai l'impression d'être terriblement vieille quand on me vouvoie. J'ai déjà trop de cheveux blancs! (une dixaine à peine)

Pour ta question, franchement, je ne sais pas trop. Ça doit bien, mais faudrait que je regarde ça tranquilement. Je te réponds demain. Mais chez toi, c'est peut-être déjà demain... décallage horaire...

[zazaraignée]

Salut

Je n'ai pas tout trouvé encore, mais j'ai tout de même ceci: en ajoutant une référence à Access dans ton projet, tu auras accès aux objets de l'application, entre autres l'objet AllMacros.

L'explorateur d'objets peut s'avérer très utile dans ce genre de recherche. Tu n'as qu'à taper sur F2 et sélectionner Access dans la liste déroulante (celle qui affiche <all librareies> - en anglais chez moi), après avoir ajouté une référence à Access dans ton projet, bien sur.