Discussion :

[martonpylon12]

bonjour,

J'ai une base dans laquelle il y a une vingtaine de tables.

J'en ai un exemplaire sur un ordinateur et un autre sur un autre.

J'aimerais savoir comment faire quand j'ajoute des données sur l'une des 2 pour faire un "import" ou un "export" des données GLOBAL afin de mettre l'autre base à jour.

Pour l'instant le seul moyen que j'ai trouvé est d'exporter les tables une par une dans des fichiers excel et ensuite de les importer à partir de la base à mettre à jour, encore une fois une par une.

Mais je pense que dans le cas de deux bases totalement identiques (en tout cas sur la structure des tables et des relations), il doit y avoir un moyen de faire un transfert de données en une seule manip.

Merci

[loufab]

Bonjour,

Pourquoi ne pas utiliser la fonction d'importation d'objet.
Menu Fichier/Données Externe/Importer
Ou encore faire un attachement des tables du fichier mdb.

Cordialement,

[martonpylon12]

bonjour et merci pour la réponse

en fait avec l'option importer,au lieu de remplacer les tables existantes par les nouvelles, il en crée des nouvelles avec le nom d'origine terminé par "1"

Produit devient produit1.

il faut donc que je supprime toutes les tables avant (une par une encore une fois car on ne peut pas faire de sélection multiples).

c'est toujours pas simple....

et pour le fichier mdb, les postes ne sont pas en réseau.

a+

[cafeine]

bonjour et merci pour la réponse

en fait avec l'option importer,au lieu de remplacer les tables existantes par les nouvelles, il en crée des nouvelles avec le nom d'origine terminé par "1"

Produit devient produit1.

il faut donc que je supprime toutes les tables avant (une par une encore une fois car on ne peut pas faire de sélection multiples).

c'est toujours pas simple....

et pour le fichier mdb, les postes ne sont pas en réseau.

a+

Non mais tu peux aisément dérouler la collection d'objets table ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function xDropAllTables()
Dim tbl As DAO.TableDef
 
For Each tbl In CurrentDb.TableDefs
    If Left(tbl.name, 4) <> "MSys" Then
        DoCmd.RunSQL "DROP TABLE [" & tbl.name & "];"
    End If
Next tbl
 
Set tbl = Nothing
 
End Function

[martonpylon12]

merci caféine

je la mets ou cette fonction ??

désolé

[mat.M]

Cette fonction ?
Eh bien créer un formulaire , un pushbutton et associer le code de cette fonction.

Sinon je ne vois l'opération possible que par l'intermédiaire de code VBA , exemple de Caféine

[Arkham46]

Bonjour,

J'ai pas eu l'occasion d'utiliser les réplicats mais ça ressemble beaucoup à ce que tu veux faire.
Une base maître, plusieurs base réplicats et tu lances une synchronisation des réplicats vers le maître.

Sur le papier ça marche bien en tout cas.