Créer une table à partir de la structure d'une table existante

Bonjour,

Est il possible en VBA, de manière simple, de copier la structure (uniquement) d'une table A dans une table B?
Ma problèmatique est de créer une table B ayant la même structure que la table A.

D'avance merci.

salut,
une idée parmi d'autres :
- requête SELECT * INTO
- requête DELETE *

Bonjour

Pourquoi pas une simple importation ?

Merci pour les réponses! :ccool:

Citation:

---

Envoyé par jpcheck

salut,
une idée parmi d'autres :
- requête SELECT * INTO
- requête DELETE *

---

Oui, j'ai fait ça, ça marche mais c'est pas très classe! ;)

Citation:

---

Envoyé par Tofalu

Bonjour

Pourquoi pas une simple importation ?

---

Ah là, je ne vois pas!:oops:

Code:

---

Docmd.transferDatabase

---

;)

Code:

---

1 2 3 4 5 6

Sub copie() DoCmd.TransferDatabase acImport, _ "Microsoft Access", _ CurrentDb.Name, _ acTable, "AnalysePages", "AnalysePages2", True End Sub

---

Bonjour,

j'aurais besoin de cette même demande,
j'ai essayé ce code mais il me fait une erreur

Code:

---

1 2 3 4 5 6

Sub copie() DoCmd.TransferDatabase acImport, _ "Microsoft Access", _ CurrentDb.Name, _ acTable, "AnalysePages", "AnalysePages2", True End Sub

---

"Microsoft Access", est la table à copier
"AnalysePages", "AnalysePages2" est ???
Merci pour votre réponse

Bonjour,

Code:

---

1 2	select * into NewTable from MaTable where 1 = 2

---

Bonjour Pc75,

Merci pour le code,
Mais je dois faire un critère de trie.
Je lance le code suivant, c'est bon.

Code:

---

1 2 3

SELECT Format(table.id,"") AS id, Format(table.nom,"") AS nom, Format(table.nom_naissance,"") AS nom_naissance, Format(table.prenom,"") AS prenom, Format(table.date_naissance,"dd/MM/YYYY") AS date_naissance, Format(Table.sexe,"") AS sexe, Format(Table.date_ad,"dd/MM/YYYY") AS date_ad, Format(Table.heure_ad,"hh:mm") AS heure_ad, Format(Table.gl_u,"00000000000") AS gl_u, Format(Table.code_postal,"00000") AS code_postal, Format(Table.ville,"") AS ville, Format(Table.mois_adm,"yyyy-mm") AS mois_adm FROM Table WHERE mois_adm='1995-02';

---

mais si je lance le code suivant, cela ne marche pas:J'ai un message d'erreur, argument non valide

Code:

---

1 2 3

INSERT INTO NVL_TABLE SELECT Format(table.id,"") AS id, Format(table.nom,"") AS nom, Format(table.nom_naissance,"") AS nom_naissance, Format(table.prenom,"") AS prenom, Format(table.date_naissance,"dd/MM/YYYY") AS date_naissance, Format(Table.sexe,"") AS sexe, Format(Table.date_ad,"dd/MM/YYYY") AS date_ad, Format(Table.heure_ad,"hh:mm") AS heure_ad, Format(Table.gl_u,"00000000000") AS gl_u, Format(Table.code_postal,"00000") AS code_postal, Format(Table.ville,"") AS ville, Format(Table.mois_adm,"yyyy-mm") AS mois_admFROM Venues_patient WHERE mois_adm='1995-02';

---

Merci pour vos réponses

Re,

Et elle est où la clause FROM dans ta deuxième requête ?

Désolé, j'ai fait un mauvais copier/coller. mais le FROM est bien à la fin diu code, j'ai oublié un espace

En faite, pour être plus claire, c'est comment copier le résultat du code suivant dans access.

Code:

---

1 2 3

SELECT Format(table.id,"") AS id, Format(table.nom,"") AS nom, Format(table.nom_naissance,"") AS nom_naissance, Format(table.prenom,"") AS prenom, Format(table.date_naissance,"dd/MM/YYYY") AS date_naissance, Format(Table.sexe,"") AS sexe, Format(Table.date_ad,"dd/MM/YYYY") AS date_ad, Format(Table.heure_ad,"hh:mm") AS heure_ad, Format(Table.gl_u,"00000000000") AS gl_u, Format(Table.code_postal,"00000") AS code_postal, Format(Table.ville,"") AS ville, Format(Table.mois_adm,"yyyy-mm") AS mois_adm FROM Table WHERE mois_adm='1995-02';

---