Discussion :

[RobiPMS]

Bonjour.
J'utilise ce code pour créer une BDD et y exporter des tables.

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
Dim accApp As Access.Application
Dim strBDDsce As String, strBDDdest As String
strBDDsce = CurrentProject.FullName
strBDDdest = CurrentProject.Path & "\Sauve_ID.mdb"
' Créer une nouvelle instance d'Access
Set accApp = New Access.Application
' Créer nouvelle base Access
accApp.NewCurrentDatabase strBDDdest
' Fermer l'instance d'Access
accApp.Quit
Set accApp = Nothing
' Exporter les tables vides dans la nouvelle BDD
DoCmd.TransferDatabase acExport, "Microsoft Access", _
    strBDDdest, acTable, "ID2011", "ID2011"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
    strBDDdest, acTable, "ID2012", "ID2012"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
    strBDDdest, acTable, "ID2013", "ID2013"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
    strBDDdest, acTable, "ID2014", "ID2014"

Aucun souci sous la version complète d'Access, mais cela ne fonctionne pas sous Runtime (version du Runtime 2007 ou 2010).
Quelqu'un connaîtrait-il une solution à ce problème?
Merci d'avance.
R.L.

[Invité]

Bonjour

C'est juste une hypothèse, mais je pense que cela vient de ceci :

Code :

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

Dim accApp As Access.Application

En fait avec le Runtime tu n'as pas vraiment une application.

Tout cela n'est bien sûr qu'hypothétique.

Philippe

[RobiPMS]

Merci Philippe pour ta réponse rapide.
C'est effectivement ce que j'ai supposé. Aurais-tu un moyen de contourner cela, ou une autre façon de procéder...
R.L.

[Invité]

Re

Peut-être par la création de la base par DAO : http://warin.developpez.com/access/d...tie_3#L3.1.3.4

et ensuite faire les transferts.

Philippe

[RobiPMS]

Parfait, Philippe.

Avec cette méthode, tout fonctionne avec le Runtime!

Encore merci pour cette très rapide et efficace suggestion;

Robert