base de donnée

slt, je voudrai savoir, comment sous access je peut remplir une table a partir d'un fichier text.txt. il faudrais que je crée une macro car le fichier .txt est sans cesse remis a jour, dc il faudrais que je crée une macro qui a la demande de l'utilisateur met à jours la table access.
 

En gros je voudrai avoir une macro qui remplis une table access depuis un fichier .txt

merci

Access a un un assistant pour l'importation de données externes au format txt. Si ca peut t'aider....

ouai mais cette assistant le fait qu'une fois. Moi il me faut une macro qui le fasse a chaque fois que je clic sur un bouton, qq un sait comment on fait?

salut, voici une solution a ton probleme

ouvre un nouveau projet VB avec trois boutons sur la feuille et colle le code dans ta feuille.

ajoute ensuite la reference suivante a ton projet (menu projet/reference et choisis microsoft activex data objects 2.5 ou superieur si tu as .

ensuite il te faut un fichier texte que j'ai appeler essai.txt (le nom doit etre identique si tu veut que cela marche)
il te faut une base access vide avec une table que j'ai appeler Table1 et qui possede un champs que j'ai appeler donnée. le champs "donnée" est au format texte avec une longueur de 255.

le fichier access doit s'appeler essai.Mdb et tout comme le fichier texte il faut qu'il soit située dans le meme repertoire ou tu sauvegardera ce petit programme.



'************CODE*************************
Public Ct As ADODB.Connection
Public rc As ADODB.Recordset

Private Sub Command1_Click()
Set rc = New ADODB.Recordset
rc.Open "Table1", Ct, adOpenKeyset, adModeReadWrite

Open App.Path & "\essai.txt" For Input As #1
While Not EOF(1)
Line Input #1, a
With rc
    .AddNew
    !Donnée = a
    .Update
End With
Wend
Close #1

MsgBox "Mise a Jour OK"

err:
If err.Number = 53 Then
MsgBox "Fichier essai.txt introuvable"
Exit Sub
End If

End Sub

Private Sub Command2_Click()
Set rc = New ADODB.Recordset
rc.Open "Table1", Ct, adOpenKeyset, adModeReadWrite
While Not rc.EOF
    rc.Delete
    rc.MoveNext
Wend

MsgBox "Table1 Effacée"
End Sub

Private Sub Command3_Click()
rc.Close
End
End Sub

Private Sub Form_Load()
On Error GoTo err
Set Ct = New ADODB.Connection

Ct.Provider = "Microsoft.Jet.Oledb.4.0"
Ct.ConnectionString = App.Path & "\Essai.Mdb"
Ct.Open

err:
If err.Number = -2147467259 Then
MsgBox "fichier essai.mdb introuvable"
End
End If

End Sub

Merci bcp, mais est ce que tu peut me mettre des commentaire pour que je puisse modifier ton prog, car mon fichier text a plusieur champs, il y aura une clé primaire et a coté séparé par une virgule ou un point virgule, une date, et dc je voudrais copier ces 2 champs ds ma table

Bon j'ai pas changé grand chose donc je te met juste le code qui a changé.

Public Ct As ADODB.Connection 'Declaration des variables pour se connecter en mode ADO
Public rc As ADODB.Recordset

Private Sub Command1_Click()
Set rc = New ADODB.Recordset 'Declaration d'une nouvelle connection ADO
rc.Open "Table1", Ct, adOpenKeyset, adModeReadWrite 'Ouverture de la table "Table1" de la base essai.Mdb

Open App.Path & "\essai.txt" For Input As #1 'Ouverture du fichier texte en lecture
While Not EOF(1) 'Tant que ce n'est pas la fin du fichier texte
Input #1, a, b 'la valeur a contient la premiere valeur et B la deuxieme valeur du fichier texte
With rc        'les valeurs du fichier texte doivent etre séparer par des ,
    .AddNew 'On ajoute un enregistrement dans la table1
    !Index = a 'Le champs Index prend la valeur de A
    !Heure = b 'Le champs Heure prend la valeur de B
    .Update
End With
Wend
Close #1 'On ferme le fichier texte

MsgBox "Mise a Jour OK"

err:
'Si le fichier essai.txt n'est pas trouvé on affiche un message
If err.Number = 53 Then
MsgBox "Fichier essai.txt introuvable"
Exit Sub
End If

End Sub

Private Sub Command2_Click()
Set rc = New ADODB.Recordset 'Declaration d'une nouvelle connection ADO
rc.Open "Table1", Ct, adOpenKeyset, adModeWrite 'Ouverture de la table "Table1" en ecriture seulement
While Not rc.EOF 'On boucle tant que la fin n'est pas arrivée
    rc.Delete 'Effacement de l'enregistrement courant
    rc.MoveNext 'On passe a l'enregistrement suivant
Wend

MsgBox "Table1 Effacée"
End Sub

Private Sub Command3_Click()
rc.Close 'Fermeture de la connection ADO
End
End Sub

Private Sub Form_Load()
On Error GoTo err
Set Ct = New ADODB.Connection 'Declaration

Ct.Provider = "Microsoft.Jet.Oledb.4.0"
Ct.ConnectionString = App.Path & "\Essai.Mdb" 'Chemin ou se trouve la base access
Ct.Open

err:
If err.Number = -2147467259 Then
MsgBox "fichier essai.mdb introuvable"
End
End If

End Sub

ok merci bcp ! et au fait est ce que c'est possible de suprimé les données que j'ai écrite ds la table access du fichier text.txt? et aussi comment je peut tester ma table access pour que lorsqu'il y a des doublons, j'écrase l'ancien et je mais la nouvelles donner ds ma table ?

Et aussi, ds ton programme losrque tu met "ajoute un champs ds la table " cela ajoute un champs sans suprimer ceux qui existe déja ?

excuse moi d'écrire plusieur msg , mais pourquoi tu utilise le bouton 2? pourquoi tu efface la table1?

je sait pas si c'est possible, mais je voudrais rajouter a la suite les champs qui se trouvent ds mon fichier text.txt.

 et aussi à la place des virgule il faudrai que j'utlise qqch d'autre car l'assistant access ne veut pas prendre les virgyule comme séparateur car il exporte des date/heure, je sait pas si c'est importatnt ds ton programme ça.