Discussion :

[ted the Ors]

Bonjour,

Je cherche à importer des fichiers txt afin de remplir les différentes tables de ma base de données Access.
Lors de l'import, par défaut, l'option "Page de Code" (accessible via "Avancé" de la fenêtre de l 'assistant d'importation) est valorisée à "Unicode". Du coup les données sont représentées par des caractères exotiques et je dois selectionner "Ascii E-U" pour que les données soient correctement affichées (et interprétées du coup).
Est il possible de regler par défaut sur "Ascii E-U" (sans passer par Avancée) ?
J'ai chercher dans les options d'Access, mais je n'ai rien trouvé.

En effet, lors de l'importation de fichier txt volumineux (> 5 Mo), Access ne réagit plus (l'assistant d'importation s'arrête après la sélection du fichier txt), et je gage que la raison en est cette option "page de code".

D'avance merci.

bonne journée

Ted

[mout1234]

Bonjour,

As-tu essayé via une ligne de code en VBA?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Docmd.TransferText

La commande comporte un argument CodePage. Cela peut peut être te permettre de contourner ton problème... en supposant que tu ais vu juste quant à la cause du plantage

[ted the Ors]

Bonjour,

As-tu essayé via une ligne de code en VBA?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Docmd.TransferText

La commande comporte un argument CodePage. Cela peut peut être te permettre de contourner ton problème... en supposant que tu ais vu juste quant à la cause du plantage

Non, je n'ai pas essayé, je ne connais pas trop le VB access...
Un ptite indication sur le codage de ta comande?

[ted the Ors]

Ok alors j'ai trouvé ca en furetant sur le net :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub ImportSchemaTable()
    Dim db As DAO.Database
    Set db = CurrentDb()
    db.Execute _
    "SELECT * INTO NewContact FROM [Text;FMT=Delimited;HDR=Yes;DATABASE=C:\My documents;].[Contacts#txt];", _
    dbFailOnError
    db.TableDefs.Refresh
End Sub

C:\My documents : je remplace par le chemin du dossier dans lequel est contenu mon .txt
Contacts: je remplace par le nom du fichier txt (sans le .txt )

Ca marche bien, sauf pour le delimiteur (dans mon cas un ";") qui n'est pas pris en compte...

Comment indique t on le délimiteur dans cette macro?

D'avance merci.

[ted the Ors]

J'ai trouvé en continuant de chercher:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    Private Sub Commande6_Click()
     DoCmd.TransferText acImportDelim, (""), "Table1", "C\Monfichier.txt", False
    End Sub

soit:

DoCmd.TransferText acImportDelim, (Séparateur), "Nom de la table à importer", "Chemin et fichier depuis lequel on importe", False (1er ligne n'est pas l'entete) ou True (1ere ligne est l'entete)


Merci encore!

[ted the Ors]

Bon en fait, cela marche sous 2001 mais pas sous 2003...