Discussion :

[kat40]

Bonjour,

Je dois importer les données d'un table d'une base de données à l'autre, je veux seulement les données et non la table!

Mon problème il faudrait que j'efface les données qui sont dans la table CATEGORIE001 et après ajouter seulement les données de la table CATEGORIE.

Présentement mon code me créer une nouvelle table caterorie0011 car la table catergorie001 est déjà existante dans ma base.

Code :

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

1
2
DoCmd.TransferDatabase acImport, "Microsoft Access", _
"C:\nouvelle_base.mdb", acTable, "CATEGORIE", "CATEGORIE001", False, True

Merce de votre aide et je dois vous dire que j'en suis à mes débuts, si vous avez des exemples ça m'aiderait énormément.

[Pierre Fauconnier]

Bonjour.

On pourrait le faire en deux lignes en utilisant ADO...

La technique que tu utilises crée effectivement une nouvelle table CategorieXXX.

Personnellement, avec DoCmd, je ne vois pas d'autre technique que de passer par une table transfert.

Voici un code très simple qui permet cela

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
Sub ViderTable()
    ' vidanger la table cible
    DoCmd.RunSQL "delete from categorie001"
 
    ' Transférer les données
    DoCmd.TransferDatabase _
        transfertype:=acLink, _
        databasetype:="Microsoft Access", _
        databasename:="C:\nouvelle_base.mdb", _
        objecttype:=acTable, Source:="categorie", _
        destination:="transfert"
 
    ' Ajout des données dans la table
    DoCmd.RunSQL "insert into categorie001 select * from transfert"
 
    ' Suppression de la table de transfert
    DoCmd.DeleteObject objecttype:=acTable, objectname:="Transfert"
End Sub

Ok?

[kat40]

Merci ça fonctionne très bien.
Pour le ligne:

Code :

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

databasename:="C:\nouvelle_base.mdb", _

J'aimerais mettre le chemin par défaut à la place de c:\..... comment je dois le faire?

[Pierre Fauconnier]

Je ne sais pas ce que tu entends par "chemin par défaut"

Si c'est le chemin du dossier dans lequel le fichier actif se trouve, c'est

Code :

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

currentproject.path

qui renvoie le chemin du dossier de la base active sans le \ final
Le code devient donc:

Code :

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

databasename:=currentproject.path & "\nouvelle_base.mdb"

Ok?

[kat40]

J'ai trouvé, j'avais oublié \

Code :

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

CurrentProject.Path & "\" & NomBD