recopy de toute les tables d'une BD

Bonjour,
tu as la liste de tes tables dans CurrentDb.TableDefs

tu peux faire une moulinette du genre :
Ici je considère que toutes les tables dont le nom finit par "1" ont une
table équivalente(même nom sans le "1") vide de même structure dans laquelle
je dois affecter les enregistrements.

Function CopyTableData ()
Dim TablsSRC, TableDST as DAO.Recordset
Dim TableSRCNom, TableDSTNom as String
Dim i, j as Byte

For i=0 To Currentdb.TableDefs.count-1
If Right(CurrentDb.TableDefs(i).Name,1)="1" Then
TableSRCNom=Currentdb.TableDefs(i).Name
TableDSTNom=Left(TableSRCNom,len(TableSRCNom)-1)
Set TableSRC=CurrentDb.Openrecordset("SELECT * FROM " & TableSRCNom)
Set TableDST=Currentdb.Openrecordset("SELECT * FROM " & TableDSTNom)
While Not TableSRC.EOF
TableDST.AddNew
For j=0 To TableSRC.Fields.Count-1
TableDST.Fields(j).Value=TableSRC.Fields(j).Value
Next
TableDST.UpDate
TableSRC.MoveNext
Wend
TableSRC.Close
TableDST.Close
End If
Next i

bonjour à tous j'ai presque terminé mon automatisation de maintenance il me
reste a régle le probleme suivant:
Dans ue BD j'ai x Tables Vides et y Tables venant des clients
X
Y
TB articles la tables est vide et sont pendant TB
Articles1
Tb Clients la tables est vide et sont pendant Tb
Clients1
TB Fournisseurs la tables est vide et sont pendant Tb
Fournisseur1

Etc....

Je veux en automatique quelque soit le nombres de Tables les recopiers

en sachant que toutes les tables ont la meme structures


--
Amicalement et merci