Discussion :

[electrosat03]

Bonjour à tous,

J'ai une BD Frontale et Dorsale, avec un .mdw et donc il faut entrer son user et PW pour l'ouvrir
Je cherche à l'aide d'un bouton à créer une BD et ensuite exporter une table afin d'effectuer des archives par année

J'ai essayé qq code trouvé sur les forum mais rien ne fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim Cat As ADOX.Catalog
    Dim MaTableIndex As ADOX.Table
    Dim CheminBase As String, NomTable As String
 
    'Chemin et nom de la nouvelle base
    CheminBase = "E:\Users\Documents\MaNouvelleBase.accdb"
    'Nom de la table qui va être ajoutée
    NomTable = "MaTable"
 
    Set Cat = New ADOX.Catalog
    'Création base
    Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CheminBase

Avec celui la j'ai une erreur
Le moteur de la base de donnée Microsoft Jet ne peut pas ouvrir le fichier E:\.......accdb
il est déjà ouvert en mode exclusif par un autre utilisateur, ou vous devez avoir l'autorisation de visualiser les données


quel code dois écrire pour pouvoir créer une BDD et exporter une table dans cette base

Merci

[electrosat03]

Bon, après pas mal de recherche j'ai réussi à faire fonctionner le code pour créer la Base
Mais quand je l'ouvre, je vois que la base est en format de fichier 2002-2003 alors que j'ai access 2019, comment avoir un format de base 2007-2016
J'aimerais également pouvoir lui assigner le .mdw que j'utilise pour ma base avec laquelle je crée la nouvelle Base

Merci

[electrosat03]

Encore,

La création de la Base en 2007-2016 ou 2002-2003 c'est OK
Le transfert de la table complète avec les données c'est OK

Si c'est une table non liée, je sais exporter juste la structure
Si la table est liée, je ne sais exporter que la table complète, pas rien que la structure

MAIS elle garde la liaison, il faudrait pouvoir copier la table mais en supprimant la liaison pour cette table archive

Et enfin, comment lier cette Base Archive avec le Workgroup de ma Base Origine

Merci

[electrosat03]

Salut à tous,

Bon voilà déjà une partie de faite : j'ai créé 2 tables Archive vide en local puisque je ne trouve pas comment empêcher la liaison en vba
Je transfère les données dans ces 2 tables d'après l'année sélectionnée
Je copie les 2 tables dans la base archive
Reste : à effacer les données dans les 2 tables de ma 1°Base
Effacer les même données dans les 2 tables source
Cela sera fait par des requêtes suppression

Le problème que j'ai encore, c'est de faire en sorte que la base que je crée soit liéée au même workspace de ma base source et cela en Vba

Si quelqu'un peut m'aider sur ce bout de code Merci et bon week-end