Problème table lié dans Access

Bonjour,

J’essaie de crée un code permettant de restaurer le lien d’une table lié au lancement de la base de données mais le problème c’est que j’ai trois champs dans mon fichier et quand le lien est restauré par le code je me retrouve avec les trois champs concaténés dans un seul.

Ma source est un fichier TXT avec trois champs séparés par des tabulations.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function test()   Dim Db As DAO.Database Dim strConnect   strConnect = "C:\Documents and Settings\callintz\Bureau\bases\txt\" Set Db = CurrentDb     Db.TableDefs("Base_nb_proc").Connect = "Text;HDR=YES;FMT=Delimited;DATABASE=" & strConnect   Db.TableDefs("Base_nb_proc").RefreshLink   End Function

---

Quelqu’un à une idée de ce que je pourrais changer dans le code afin que je puisse avoir les données de ma table dans trios colonnes séparées.

Merci par avance.

Bonne journée à tous

Bonjour,

Pour obtenir ce résultat il faudrait utiliser le format csv. Ce format sépare les colonnes par le caractère ";".

Par exemple :

Code:

---

DonneeColonne1;DonneeColonne2;DonneeColonne3

---

et pour le code je ne pense pas que celui-ci fonctionne car la liaison de la table ne "pointe" vers aucun fichier.

Code:

---

1 2 3 4 5 6

Public sub test() With CurrentDb.TableDefs("Base_nb_proc") .Connect = "Text;HDR=YES;FMT=Delimited;DATABASE=C:\Documents and Settings\callintz\Bureau\bases\txt\MonFichier.txt" .RefreshLink End with End Sub

---

Bonjour

Le plus simple c'est dans un premier temps de lier à la main la table au champ texte via l'assistant d'importation. Regardez ensuite la propriété Connect de la table et vous vous apercevrez que vous en avez oublié un morceau notamment celui définissant le nom du format de spécification d'importation ;)

Merci Tonioyo,

J’ai testé ton code ça à fonctionné avec les fichiers CSV, juste pour info il faut enlever le nom du fichier à la fin du .connect sinon ca fonctionne

Mon souci c’est que j’essaie d’automatiser une base suite à une extraction BO et depuis Access je ne peux pas exporter mon rapport BO en CSV.

J’ai besoin que ça fonctionne avec un fichier TXT.

Tofalu, je procède comme tu dis, au départ j’attache ma table à partir de l’assistant Access en délimitant les colonnes par tabulation, mais dés que j’exécute mon code le lien change bien mais je me retrouve avec les trois champs en un seul.
Si t’a une idée elle est le bien venu.

Merci à tous.

Pour faire un export vers un fichier csv il serrait (à mon avis) beaucoup mieux de passer par la fonction docmd.TransfertText.
Cette fonction admet des paramètres pour importer / Exporter un fichier texte sous format csv.

Merci pour l'info mais l'export que je fait n'est pas un export depuis access d'une table ou requête, mais c'est l'export du resultat d'une requête BusinessObjects.
Grace à un code VBA on peux lancer BO et executer des requêtes BO, ensuite enregistrer le resultat en txt, rtf, pdf... mais pas csv et cela ce fait de la sorte en utilisant ".ExportAsText".

Et mon fichier de sortie txt est lié avec ma base.
J'esseye de créer un code pour restaurer les liens des tables liées cela pour rendre l'appli autonome si jamais on viens à déplacer le repertoire, qu'il puisse toujours retrouver le chemin des tables liées sans que l'on ai à intervenir manuellement en passant par l'assistant et redonner à le nouveau chemin.

Pourquoi ne pas récupérer la réponse de BO dans un table temporaire ? (voir quasi permanente pour éviter le rejeu) puis ensuite exporter les données.

Je ne sais pas si cette procédure est faisable mais c'est probable en utilisant les objets de BO.

La touche F2 dans le VBE va être très utile pour avoir les définitions des objets de la bibliothèque pour BO.

Citation:

---

Tofalu, je procède comme tu dis, au départ j’attache ma table à partir de l’assistant Access en délimitant les colonnes par tabulation, mais dés que j’exécute mon code le lien change bien mais je me retrouve avec les trois champs en un seul.
Si t’a une idée elle est le bien venu.

---

Sauf que le code que tu as donné est erroné, il tronque un morceau de la chaine connect, notamment celle qui spécifie le format des champs. Peux tu poster le contenu de ta chaine Connect aprés une connexion manuelle ?

Citation:

---

Envoyé par Tofalu

Sauf que le code que tu as donné est erroné, il tronque un morceau de la chaine connect, notamment celle qui spécifie le format des champs. Peux tu poster le contenu de ta chaine Connect aprés une connexion manuelle ?

---

Bonjour,

Je ne suis pas un expert VBA, mon objectif est de récupérer le chemin vers les bases de données dans une variable et de les restaurer au chargement de la base.


Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function test()   Dim getPathTXT Dim Db As DAO.Database   getPathTXT = CurrentProject.Path & "\bases\txt\" 'MsgBox getPathTXT   Set Db = CurrentDb   Db.TableDefs("Base_nb_proc").Connect = "Text;HDR=YES;FMT=Delimited\;DATABASE=" & getPathTXT   Db.TableDefs("Base_nb_proc").RefreshLink   End Function

---

Merci par avance

On en revient toujours à même question :

Peux tu poster le contenu de ta chaine Connect aprés une connexion manuelle ?

Cette propriété est accessible en VBA (debug.print matable.connect où ma table est de type DAO.Tabledef) ou directement dans les propriétés de la table

Citation:

---

Envoyé par Tofalu

On en revient toujours à même question :

Peux tu poster le contenu de ta chaine Connect aprés une connexion manuelle ?

Cette propriété est accessible en VBA (debug.print matable.connect où ma table est de type DAO.Tabledef) ou directement dans les propriétés de la table

---

Quand je fait un debug ca n'affiche pas d'erreur, j'ai aucun message qui s'affiche à l'écran.

Code:

---

1 2 3 4 5 6 7

Dim Db As DAO.Database Dim matable As DAO.TableDef Set Db = CurrentDb Set matable = Db.TableDefs("Base_nb_proc")   Debug.Print matable.Connect

---

Bonjour,

Il faut aller dans le menu Affichage->Fenetre d'execution pour avoir la fenêtre de débuggage. (la sortie standart du debug.print)

Citation:

---

Envoyé par Tonioyo

Bonjour,

Il faut aller dans le menu Affichage->Fenetre d'execution pour avoir la fenêtre de débuggage. (la sortie standart du debug.print)

---

Voici le resultat du debug

Text;DSN=Base_nb_proc Spécification d'attache15;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=1252;DATABASE=E:\certif\bases\txt

Merci Tonioyo, Tofalu


Je me suis inspiré de la chaine de conexion du debug et ca fonctionne.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim getPathTXT Dim Db As DAO.Database Dim matable As DAO.TableDef getPathTXT = CurrentProject.Path & "\bases\txt\" 'MsgBox getPathTXT Set Db = CurrentDb Set matable = Db.TableDefs("Base_nb_proc") matable.Connect = "Text;DSN=Base_nb_proc Spécification d'attache;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=1252;DATABASE=" & getPathTXT & "" 'Debug.Print matable.Connect matable.RefreshLink

---

Merci encore :ccool: