Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Copier une table en DAO

Copier une table en DAO

2 réponses
Avatar
Pierre Fauconnier
Bonjour

Je dois copier une table d'une base vers une autre en DAO

J'utilise ceci

Set Base = CurrentDb
Set Base_Annee = DAO.OpenDatabase(LitDansFichierIni("tables", "chemin",
CurrentProject.Path & "\es_scan.ini") & "\2004_2005.mdb")
Set Table = Base.TableDefs("t_classes_horaires")
Base_Annee.TableDefs.Refresh
Set Tables = Base_Annee.TableDefs
Tables.Append Table

VBA bloque sur Tables.Append Table en disant qu'il existe déjà une table
portant ce nom...
Alors qu'aucune table portant ce nom ne se trouve dans Base_Annee...
D'ailleurs, base_annee.execute "Drop table t_classes_horaires" produit une
erreur "La table t_Classes_Horaires n'existe pas"...

Pour moi, c'est un mystère...

Merci pour les idées, esquisses de solution ou solution complète...


--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre CFI [mvp]
bonjour
mais pourquoi pas
DoCmd.TransferDatabase acExport, "Microsoft Access", "c:bd1.mdb", acTable, "liste_siret", "liste_siret"


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Pierre Fauconnier" a écrit dans le message de news:
Bonjour

Je dois copier une table d'une base vers une autre en DAO

J'utilise ceci

Set Base = CurrentDb
Set Base_Annee = DAO.OpenDatabase(LitDansFichierIni("tables", "chemin", CurrentProject.Path & "es_scan.ini") &
"2004_2005.mdb")
Set Table = Base.TableDefs("t_classes_horaires")
Base_Annee.TableDefs.Refresh
Set Tables = Base_Annee.TableDefs
Tables.Append Table

VBA bloque sur Tables.Append Table en disant qu'il existe déjà une table portant ce nom...
Alors qu'aucune table portant ce nom ne se trouve dans Base_Annee...
D'ailleurs, base_annee.execute "Drop table t_classes_horaires" produit une erreur "La table t_Classes_Horaires n'existe pas"...

Pour moi, c'est un mystère...

Merci pour les idées, esquisses de solution ou solution complète...


--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci




Avatar
Pierre Fauconnier
Bonjour Pierre

Ben... Parce que je ne connaissais pas. Je ne pense pas beaucoup à DoCmd...

Merci mille fois pour le tuyau...


--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Pierre CFI [mvp]" a écrit dans le message de
news: %
bonjour
mais pourquoi pas
DoCmd.TransferDatabase acExport, "Microsoft Access", "c:bd1.mdb",
acTable, "liste_siret", "liste_siret"


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Pierre Fauconnier" a écrit dans le
message de news:
Bonjour

Je dois copier une table d'une base vers une autre en DAO

J'utilise ceci

Set Base = CurrentDb
Set Base_Annee = DAO.OpenDatabase(LitDansFichierIni("tables",
"chemin", CurrentProject.Path & "es_scan.ini") & "2004_2005.mdb")
Set Table = Base.TableDefs("t_classes_horaires")
Base_Annee.TableDefs.Refresh
Set Tables = Base_Annee.TableDefs
Tables.Append Table

VBA bloque sur Tables.Append Table en disant qu'il existe déjà une table
portant ce nom...
Alors qu'aucune table portant ce nom ne se trouve dans Base_Annee...
D'ailleurs, base_annee.execute "Drop table t_classes_horaires" produit
une erreur "La table t_Classes_Horaires n'existe pas"...

Pour moi, c'est un mystère...

Merci pour les idées, esquisses de solution ou solution complète...


--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci