Discussion :

[Zarma67]

Bonjour

Je souhaiterais creer un code VBA qui importerait des requetes et tables d autres bases de donnees Access.
Si je le fais d une maniere manuelle je trouve l option "importer requete comme table", mais je n ai pas la moindre idee de comment faire ce geste si simple en VBA...

J imagine qu il faut que j utilise "DoCmd.CopyObject" mais jusqu a present je n y suis pas arrive.

Si quelque a le truc....

Merci de votre aide

Z.

[killkool2001]

Bonjour,

voici un code qui lie a ta base les tables d'une autre base, ca t'aidera peut-être...

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Sub lierToutes(path As String, estAncienne As Boolean)
    Dim strMotPasse As String
    Dim strCheminBd As String
    Dim strConnect As String
    Dim strNomsTables() As String
    Dim strTemp As String
    Dim i As Integer
    Dim oDb As DAO.database
    Dim oDbSource As DAO.database
    Dim oTbl As DAO.TableDef
    Dim oTblSource As DAO.TableDef
    'Définit mot passe, nom table, chemin base de données
    strMotPasse = ""
    strCheminBd = path
    'Définit la chaine de connexion permettant la liaison des tables
    strConnect = "MS Access;pwd=" & strMotPasse & ";DATABASE=" & strCheminBd
    'Instancie l'objet Database de la base courante
    Set oDb = CurrentDb
    'Instancie l'objet Database de la base protégée
    Set oDbSource = DBEngine.OpenDatabase(strCheminBd, True, True, strConnect)
 
    'Parcours l'ensemble des tables de la base de données protégée
    'et stocke leur nom
    For Each oTblSource In oDbSource.TableDefs
        'ignore les tables system
        If (oTblSource.Attributes And dbSystemObject) = 0 Then
            strTemp = strTemp & oTblSource.name & "|"
        End If
    Next
    'Ferme la base de données sources (impératif pour la liaison)
    oDbSource.Close: Set oDbSource = Nothing
    'parcours le tableau de noms de tables
    strNomsTables = Split(Left(strTemp, Len(strTemp) - 1), "|")
    For i = 0 To UBound(strNomsTables)
    'Crée une nouvelle table dans la base de données courante
    Set oTbl = oDb.CreateTableDef(strNomsTables(i))
 
   'Lie les deux tables
    oTbl.Connect = strConnect
    oTbl.SourceTableName = strNomsTables(i)
 
    'Ajoute la table à la base de données
    oDb.TableDefs.Append oTbl
    End If
    Next i
 
    'Rafraichit la liste des tables
    oDb.TableDefs.Refresh
End Sub

Sinon tu peut chercher "DAO" sur dans les cours www.developpez.com