Discussion :

[challe1976]

Bonjour,

J'aimerais exporter deux tables ACCESS dans une nouvelle base de données ACCESS, est-ce possible avec du code VBA ?

Merci.

[loufab]

Bonjour,

En effet ! et heureusement d'ailleurs.

Code :

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

1
2
3
4
5
6
7
8
'1 créer la base :
 
Application.DBEngine.CreateDatabase "c:\basecopie.accdb",dbLangGeneral
 
'2 transférer les tables :
 
docmd.TransferDatabase acExport,"Microsoft Access","c:\basecopie.accdb",acTable,"table1","table1",false
docmd.TransferDatabase acExport,"Microsoft Access","c:\basecopie.accdb",acTable,"table2","table2",false

Attention aux emplacements approuvés sinon tu auras des messages de confirmation.

Cordialement,

[challe1976]

J'ai écris la procédure dans le code vba de ma base access et en cliquant sur le bouton de mon formulaire il me donne un erreur (voir pièce jointe)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Commande0_Click()
'1 créer la base :
 
Application.DBEngine.CreateDatabase "C:\Users\U5954\Desktop\basecopiec\basecopie.accdb", dbLangGeneral
 
'2 transférer les tables :
 
DoCmd.TransferDatabase acExport, "Microsoft Access", "c:\basecopie.accdb", acTable, "table1", "table1", False
DoCmd.TransferDatabase acExport, "Microsoft Access", "c:\basecopie.accdb", acTable, "table2", "table2", False
End Sub

[loufab]

Bonjour,

Il te donne l'origine du problème dans le message : ce chemin n'existe pas.

Tu peux le vérifier sous DOS en tapant l'instruction suivante :

Code :

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

DIR C:\Users\U5954\Desktop\basecopiec\

Attention sous les Windows récent "C:\Users" n'est peut être qu'un faux ami.

Cordialement,

[challe1976]

Bonjour,

Ça fonctionne. :-)

J'aimerais ajouter un petit détail.

J'aimerais ajouter au nom de la table (STA01234 et STAT220), la date du jour suivi du cycle saisi dans le champ texte du formulaire (txtCyclePaiement) avec des tirets après le nom de la table et la date du
J'aimerais aussi qu'il renomme la base de données existante dans laquelle je mets les tables avec la date du jour (donc changer la date précédente par la date du jour)

Est-ce que c'est possible ?

Un gros merci :-)

Code :

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

1
2
DoCmd.TransferDatabase acExport, "Microsoft Access", "K:\41500\_SDLR_REVISION\Inventaire\base révision 20150406.mdb", acTable, "STA01234", "STA01234-20150406- & txtCyclePaiement.Value", False
DoCmd.TransferDatabase acExport, "Microsoft Access", "K:\41500\_SDLR_REVISION\Inventaire\base révision 20150406.mdb", acTable, "STA220", "STA220-20150406- & txtCyclePaiement.Value", False

[loufab]

Comme ceci :

Code :

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

..."STA01234-20150406-" & txtCyclePaiement.Value, ...

Tu devrais consulter un bouquin sur VBA, il en existe en PDF en libre téléchargement (cf Google) pour te familiariser avec le langage.