Discussion :

[kaptnkill]

Bonjour a tous,

J'ai une question:
Est-il possible d'exporter une table (en format .mdb) depuis access.
Et je voudrais que la table ne contienne que les champs que je desire

Exemple la table maitresse(20 champs)
la table exportée (5 champs)

ainsi je veux garder les information de contact seulement...

(aussi je voudrais que le tout soit fait a partir dun bouton ds un formulaire, donc en vb)


La table exporté sera fusionnée ds word

merci

[FreeAccess]

Bonjour,
Eventuellement, tu peux faire une requête Sélection et ne choisir que les champs qui t'interresse
Ensuite tu n'as plus qu'a exporter le résultat de cette requête.
Bonne continuation.

[kaptnkill]

ouep' bonne idéé pour le select,
mais comment faire en vb a partir d'un bouton, exporter la table ds un autre fichier mdb independant au projet, et l'enregister sur le disque dur ?

Merci a tous pour votre aide !

[FreeAccess]

Re,
Interresse toi à "DoCmd.TransferDatabase " ..........et fais quelque recherche sur les anciens messages
Bonne continuation.

[kaptnkill]

merci encore,
j'ai fait une recherche sur les anciens message mais il semble que ce soit tjrs pour exporter vers excel ou xml etc..

DoCmd.TransferDatabase a besoin d'une base de donée de destination

Donc je doit trouver le moyen pour creer une base de donnée sur le disque dur avant de povoir faire un transfert...

Quelqu'un a une suggestion ?

Merci

[Tofalu]

Interresse toi à DBEngine.CreateDatabase

[FreeAccess]

Re,
Voici un petit exemple pour ce que tu veux faire (le code est commenté pour explication) Ce code est associé à l'événement 'Sur clic' d'un bouton de commande et a pour objectif de créer une nouvelle base et de copier des tables de la base actuelle vers la nouvelle....ensuite à toi d'adapter cela à ton application.

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
18
19
20
21
22
Private Sub Cmd15_Click()
Dim NomBase As String
NomBase = "NomNouvelleBase" & ".mdb"
DoCmd.Hourglass True
'Création nouvelle base
Dim dbsNew As Database
Set dbsNew = CreateDatabase(CurrentDBDir & NomBase, dbLangGeneral, dbVersion30)
Set dbsNew = Nothing

'Recopie des tables dans celle-çi
Dim appAccess As Access.Application
Dim Destination As String
Set appAccess = CreateObject("Access.Application.8")
appAccess.OpenCurrentDatabase CurrentDBDir & "NomBaseActuelle.mdb"
Destination = CurrentDBDir &  NomBase
appAccess.DoCmd.CopyObject Destination, "NomTableNouvelleBase", acTable, "NomTableACopier"
appAccess.Quit

DoCmd.Hourglass False
MsgBox "*** TRAITEMENT REUSSI ***" , vbInformation, "Copie table(s) terminée(s)"
End Sub

Ceci n'est qu'un exemple, car il y a d'autre façon de faire....
Bonne continuation.

[kaptnkill]

Merci, j'avais trouvé la commande DoCmd.CreateTable et j'ai réussi a batir ma bd mais il semble que un partie du code pour le transfert de la table cause une erreur

Code :

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

Set appAccess = CreateObject("Access.Application.8")

je crois avoir trouvé
Access.Application.8 = access 97
Access.Application.9 = access 2000



Merci encore mille fois !

[FreeAccess]

je crois avoir trouvé
Access.Application.8 = access 97
Access.Application.9 = access 2000

L'exemple donné était sous Access97, donc comme je l'ai dis, il faut adapter à ta base........pour Access 2003, c'est:

Code :

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

Access.Application.11

[kaptnkill]

ok maintenant le programme ne crash plus mais je ne voit pas la table ds la nouvelle bd ?

pourtant le msgbox affiche traitement reussi ?
et le poids de nouvelle bd est différent d'une nouvelle bd (sans copy object)

une idee?

merci mille fois

[FreeAccess]

Oups....
Et oui, c'est ça de passer de AC97 à AC2003...
A corriger ==> CurrentDBDir est une fonction créer dans AC97 pour récupérer le chemin de la base en cours.
Donc a remplacer par CurrentProject.Path
Aprés cela devrait fonctionner