Discussion :

[stargates01]

Bonjour à tous,

Pourriez-vous svp me donner des pistes pour le probleme suivant : je cherche à lancer une requete acess de création de table (c'est-à-dire qui crée une table access dans la même base access) depuis une macro excel (ou du code vba excel).

Autrement dit : j'ai une base de données access dans laquelle figure une requête dont l'objectif est de crée une table dans cette même base access. Par ailleurs j'ai un classeur excel et je voudrais dans ce classeur crée une macro qui lance cette requête dans la base access, avec comme conséquence de créer (ou d'écraser) une table dans cette même base access.

J'ai bien lu dans les FAQ le sujet sur QueryTables mais ça ne correspond pas totu à fait à mon sujet.


Merci d'avance aux contributeurs.

Stargates

[Theze]

Bonsoir,

Teste ce qui suit sur une base test pour te donner une piste.
Il te faut cocher les références :
"Microsoft ActiveX Data Objects 6.0 Library" et "Microsoft ADO Ext. 2.8 for DDL and Security"

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
 
Private Sub ConnecterBase(ConnectBD As ADODB.Connection, _
                          Fichier As String)
 
    Set ConnectBD = New ADODB.Connection
 
    With ConnectBD
 
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = Fichier
        .Open
 
    End With
 
End Sub
 
Private Sub CreerTable()
 
    Dim ConnectBD As ADODB.Connection
    Dim Catalogue As ADOX.Catalog
    Dim ChaineSQL As String
    Dim NomBase As String
 
    Set Catalogue = New ADOX.Catalog
 
    'adapter le chemin
    NomBase = "D:\Dossier1\MaBase.mdb"
 
    ConnecterBase ConnectBD, NomBase
 
    Catalogue.ActiveConnection = ConnectBD
 
    'définir la chaine SQL, ici 4 champs
    ChaineSQL = "CREATE TABLE NomDeLaTable ( "
    ChaineSQL = ChaineSQL & "ID CHAR(10) WITH COMP PRIMARY KEY, "
    ChaineSQL = ChaineSQL & "Nom CHAR(20) WITH COMP NULL, "
    ChaineSQL = ChaineSQL & "Prenom CHARACTER(20) NOT NULL, "
    ChaineSQL = ChaineSQL & "Age DATE); "
 
    With ConnectBD
 
        .Execute ChaineSQL
        .Close
 
    End With
 
    Set Catalogue = Nothing
    Set ConnectBD = Nothing
 
End Sub

Hervé.

[stargates01]

OK, merci Hervé, je vais tester.

Mais je comprends qu'il faut que je reprenne le script SQL de ma requêtre de création de table dans la ligne de commande la macro. N'y a-t-il pas moyen directement par une commande de lancer la requêtre access en utilisant son nom (sans avoir à remettre tout le script SQL qu'elle contient) ? En effet ma requête contient prêt de 40 champs, avec des liasions entre plusieurs tables, d'où un script SQL assez long....

En tout cas merci pour la solution

Stargates