table lié changer le lien tbl.connect

Bonjour, j'essaye de suivre des tutos de ce forums pour changer le lien d'une table liée mais je galere un peu

L'idée, c'est que ma table t_externe est pour le moment lié a un fichier CSV nommé classeur1.csv
Je voudrai que mon code VBA modifie le lien de la table t_externe vers classeur2.csv.
je suis embété dans l'utilisation de tbl.connect
.voici mon code.

Code:

---

1 2 3 4 5 6

Set tbl = db.TableDefs("t_externe") Debug.Print tbl.Connect 'me retourne: Text;DSN=CLASSEUR1 SpÈcification d'attache;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;DATABASE=C:\Documents and Settings\DAVID_JEZEQUEL\Bureau tbl.Connect = "Text;DSN=CLASSEUR2 SpÈcification d'attache;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;DATABASE=C:\Documents and Settings\DAVID_JEZEQUEL\Bureau" tbl.RefreshLink

---

Auriez vous une idée svp car mon code ne fonctionne pas?

Bonjour,

Peut-être essayer :

Code:

---

1 2 3 4 5 6 7 8 9

Set tbl = db.TableDefs("t_externe") tbl.SourceTableName ="Classeur2.csv"   Debug.Print tbl.Connect 'me retourne: Text;DSN=CLASSEUR1 SpÈcification d'attache;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;DATABASE=C:\Documents and Settings\DAVID_JEZEQUEL\Bureau   tbl.Connect = "Text;DSN=CLASSEUR2 SpÈcification d'attache;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;DATABASE=C:\Documents and Settings\DAVID_JEZEQUEL\Bureau"   tbl.RefreshLink

---

Cdlt,

Bonjour,
Avec ton code j'ai une erreur d'execution 3268
Impossible de definir cette propriété une fois que l'objet fait partie d'une colection

Citation:

---

Envoyé par User

Bonjour,

Peut-être essayer :

Code:

---

1 2 3 4 5 6 7 8 9

Set tbl = db.TableDefs("t_externe") tbl.SourceTableName ="Classeur2.csv"   Debug.Print tbl.Connect 'me retourne: Text;DSN=CLASSEUR1 SpÈcification d'attache;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;DATABASE=C:\Documents and Settings\DAVID_JEZEQUEL\Bureau   tbl.Connect = "Text;DSN=CLASSEUR2 SpÈcification d'attache;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;DATABASE=C:\Documents and Settings\DAVID_JEZEQUEL\Bureau"   tbl.RefreshLink

---

Cdlt,

---

essaie. avec createtabledef...

aurais tu un exemple STP ?
Merci

Citation:

---

Envoyé par User

essaie. avec createtabledef...

---

regarde sur le net, avec une recherche comme :
"refreshlink createtable vba" car avec le smartphone c'est plus compliqué ...

alors en faite j'ai reussi a créer une table liée mais y'a plusieurs soucis:
Déja quand j'ai lier manuellement ma table Classeur1.csv, j'ai inclus la premiere ligne comme nom de colonne.
Ensuite j'ai changé certain type de champ (j'ai passé des nombre en texte)
du coup je perds tout ca quand je lie avec VBA .
Il faudrai donc que j'arrive a garder ma configuration de table lié mais lui changer la source classeur1.csv vers classeur2.csv

c'est pas si simple : dans le paramètre dsn de la chaîne de connexion il faut que tu définisse les spécifications du classeur 2, ensuite pour changer le type d'un champ de ta table en vba, fais une recherche du genre :
"how to change field type using dao".

à+

je les trouves comment les specifications du classeur 2 ?

Citation:

---

Envoyé par User

c'est pas si simple : dans le paramètre dsn de la chaîne de connexion il faut que tu définisse les spécifications du classeur 2, ensuite pour changer le type d'un champ de ta table en vba, fais une recherche du genre :
"how to change field type using dao".

à+

---

Il faut les définir et les enregistrer au moment où tu importes manuellement ton fichier CSV...
enregistrer détails import/export

Une fois enregistrées tu peux les réutiliser dans ton code VBA...

a+

par contre je suis sur access 2003 du coup je ne crois pas pouvoir enregistrer ces infos la sur 2003

Merci beaucoup pour ton aide j'y suis parvenu. Finalement c’était pas si compliqué ;)

Pour ceux que ca pourrait aider:
J'ai d'abord lié manuellement mon fichier et j'ai enregistrer lors de l'importation les spécifications d'attaches sous le nom "specification".
Ceci pour être reutiliser lors du changement de lien avec DSN

voici mon code.

Code:

---

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

private sub btn_click() dim db as dao.database set db = currentDb dim tbl as dao.tabledef 'suppression de la table t_externe issu du fichier classeur1.csv docmd.deleteobject actable, "t_externe" 'création de la nouvelle table t_externe issu du fichier classeur2.csv set tbl = db.createTableDef("t_externe") tbl.sourceTableName = "classeur2.csv" tbl.connect = "Text;DSN=specification;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;DATABASE=C:\Documents and Settings\user\Bureau" db.tabledefs.Append tbl db.tabledefs.refresh end sub

---

Content pour toi :ccool: