Discussion :

[marieo]

Bonjour,
j'aimerais savoir comment faire pour importer un fichier .txt dans une table access.

Mon fichier se nomme abcd.2009.3.xxx.txt
Lorsque j'utilise l'assistant d'import, j'ai un message d'erreur à cause des "." dans le nom du fichier.
Si je renomme mon fichier en remplaçant les "." par des "_" cela fonctionne correctement...

Est-il possible de faire l'intégration du fichier sans le renommer ? SI oui, comment ?
Si non, comment faire pour renommer automatiquement le fichier (remplacement de . par _), éventuellement en passant par un module ou autre ???

Enfin, est-il possible de lancer l'assistant d'import directement depuis les modules VB (j'ai enregistrement le format de mon fichier dans l'assistant d'import pour pouvoir le réutiliser facilement)...

Merci beaucoup à tous
MarieO

[fgiambelluco]

Bonjour

Voila une méthode qui copie le fichier avec un nom correct et l'importe en format texte

Code :

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

1
2
3
4
5
6
7
8
    Dim NomFichier, NouveauNom
    NomFichier = "abcd.2009.3.xxx.txt"
    NouveauNom = Replace(NomFichier, ".", "_") 'probleme meme le .txt est remplacé en _txt
    NouveauNom = Replace(NouveauNom, "_txt", ".txt") ' correction du problème
    FileCopy NomFichier, NouveauNom ' copie le fichier d'origine avec le nouveau nom
    Kill NomFichier 'supprime le fichier d'origine
    'automatisation du transfert
    DoCmd.TransferText acImportDelim, MesParametresImport, MaTableDestination, NouveauNom ' vérifier les autres paramètres dans l'aide