Discussion :

[ted the Ors]

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.

[Jean-Philippe André]

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

[Tofalu]

Bonjour

Pourquoi pas une simple importation ?

[ted the Ors]

Merci pour les réponses!

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!

Bonjour

Pourquoi pas une simple importation ?

Ah là, je ne vois pas!

[Tofalu]

Code :

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

Docmd.transferDatabase

Code :

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

1
2
3
4
5
6
Sub copie()
DoCmd.TransferDatabase acImport, _
                        "Microsoft Access", _
                        CurrentDb.Name, _
                        acTable, "AnalysePages", "AnalysePages2", True
End Sub

[jorge54]

Bonjour,

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

Code :

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

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

[pc75]

Bonjour,

Code :

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

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

[jorge54]

Bonjour Pc75,

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

Code :

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

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 :

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

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

[pc75]

Re,

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

[jorge54]

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

[jorge54]

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

Code :

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

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';