Discussion :

[VBBBA]

bonjour a tous,
jessai d'exporter des tables d'une base à une autre....

voila mon bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 Set app = CreateObject("Access.application")
   app.OpenCurrentDatabase (name1)
           For Each tableObjet In app.CurrentDb.TableDefs
               stable = tableObjet.Name
               On Error Resume Next
                  If stable = nomtable Then
                      app.DoCmd.DeleteObject acTable, nomtable
 
 
 
            app.DoCmd.TransferSpreadsheet acLink, stable, destination & stable & ".xls"
                   !!!!!!!!!!!!   c'est la que je dois exporter de ma base  la table
                   stable vers ma la base cible.
 
                  End If
           Next tableObjet

merci de votre aide

[pgz]

Bonjour,

Pourquoi pas une copie?

Code :

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

DoCmd.CopyObject name1, , acTable, stable

si name1 est le chemin complet de ta base.

Bon courage,

PGZ

[milia]

Vu que je ne m'y connais pas trop en vba, je ne peux pas d'aider mais je sais qu'il est possible de le faire manuellement (si tu dois le faire qu'occasssionnement peut être est-ce mieux)
Bon courage