Discussion :

[ZoeZeBest]

Bonjour,

J'ai un souci d'import d'un fichier texte (fichier sans séparateur).

J'ai créé une table correspondante.
Après j'ai créé une macro d'import en positionnant bien les longueurs (pour les champs), et quand j'utilise cette macro dans mon code, j'ai une table d'erreur qui se crée avec comme erreur "Field Truncation" sur le 1er champs.

Ce qui est étrange c'est que lorsque j'importe mon fichier manuellement, mais en sélectionnant qu'en même ma macro, là ça marche sans problème

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub bt_importBaseReseau_Click()
 
Dim ls_Chemin As String
 
'vider la table T_BaseReseau
CurrentDb.Execute "DELETE * FROM T_BaseReseau;"
 
ls_Chemin = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Texte", "txt")
DoCmd.TransferText acImportDelim, "importBaseReseau", "T_BaseReseau", ls_Chemin
MsgBox ("Table Base Réseau remplie")
 
End Sub

Auriez-vous une idée de pourquoi ça ne fonctionne pas ?

[ZoeZeBest]

oki c'est j'ai trouvé !

DoCmd.TransferText acImportDelim est devenu DoCmd.TransferText acImportFixed