import texte / access

Salut à tous,

il est possible depuis vb d'importer un fichier texte vers excel ... est ce possible d'importer de la même façon un fichier texte vers une base de donnée ? si oui comment ? merci

a+

Pour faire cela il faut altérer la base ou le fichier excel en y ajoutant manuellement les données en disant om les placer, etc... pour le fichier excel, pour ce qui est de l'importer dans une base il faut soit créer une table adaptée à ton fichier ou soit il faut que tu y ajoute dans une table éxistante en disant dans quoi mettre chaque données, une par une.

Chris...
Web : Firstruner - eMail : Support

Salut, bien sûr que c'est possible, mais tout dépend de ton fichier texte.
Les champs sont de longueur fixe ?
Délimités ?

Donne moi un exemple de ton txt et je donne un code qui le fera.
En attendant, si ton txt ressemble à ça :

toto;tyty;tutu
truc;bidule;chouette

essaie ce code :

Private Sub Command1_Click() Dim obj_Access As Access.Application Dim Nom_Base_Access As String Dim Nom_Fichier As String Dim Nom_Table As String Nom_Fichier = "c:\temp\essai.txt" Nom_Base_Access = "c:\temp\bd1.mdb" Nom_Table = "Table1" ' Création d'un objet Access Set obj_Access = New Access.Application ' Ouverture de la base Access obj_Access.OpenCurrentDatabase Nom_Base_Access ' Si mot de passe 'SendKeys MotDePasse & "~" ' destruction de la table de réception sinon ça ajoute dans la table On Error Resume Next obj_Access.DoCmd.DeleteObject acTable, Nom_Table On Error GoTo 0 ' importation d'un fichier texte délimité par des ';' obj_Access.DoCmd.TransferText acImportDelim, ";", Nom_Table, Nom_Fichier, False ' Fermeture de la base obj_Access.Quit ' Libération de la mémoire Set obj_Access = Nothing End Sub

@+

Cordialement, CanisLupus

Bien sûr, il faut cocher Microsoft Access ... dans les références.

Cordialement, CanisLupus

A la réflexion, mon exemple n'est valable que pour les fichiers texte délimités. Et tu peux écrire :

obj_Access.DoCmd.TransferText acImportDelim, , Nom_Table, Nom_Fichier, False

à la place de :

obj_Access.DoCmd.TransferText acImportDelim, ";", Nom_Table, Nom_Fichier, False

Pour les fichiers à champs fixes c'est une autre histoire

Cordialement, CanisLupus

Ba moi justement jaimerai bien connaitre cette histoire!!! SVP J'ai besoin d'aide je galère vraiment là. Comment ça marche avec des fichiers à champs fixes??

Maki