Executer une requete access qui crée une table à partir de Excel

Version imprimable

Bonjour à tous,

Je viens ici exposer mon problème parce que je me suis bien arraché les cheveux avant de le faire. Je m'explique : J'ai écrit une macro vba sur excel qui me permet d'executer une requete de création de table access à distance.
Mon code marche à merveille sur des requêtes normales (qui ne créent pas de table), mais quand j'essaie avec une requête de création de table, vba s'énerve et me sort le message d'erreur suivant : "erreur d'exécution '3219' Invalid operation'".
Je vous met mon code et aidez moi svp :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub ExecuterRequete() Dim MyDatabase As DAO.Database Dim MyQueryDef As DAO.QueryDef Dim MyRecordset As DAO.Recordset Dim i As Integer Set MyDatabase = DBEngine.OpenDatabase ("C:\ma base") Set MyQueryDef = MyDatabase.QueryDefs("requete_Creation") 'Set MyRecordset = currentdb.Execute(MyQueryDef) With MyQueryDef .Parameters("[entrer l'age]")= Feuil5.Range("A1").Value End With Set MyRecordset = MyQueryDef.OpenRecordset(2, dbSeeChanges) 'ActiveSheet.Range("A7").CopyFromRecordset MyRecordset End Sub
Je vous remercie par avance :roll:

bonjour,
dans la faq tu trouves la réponse à ton problème ici. merci SilkyRoad

voici une adaptation du code pour créer une table dans une base existante.

Code:

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
51
52
 Sub crea_table()
 'Nécessite d 'activer les références:
    'Microsoft ActiveX Data Objects x.x Library
    'et
    'Microsoft ADO Ext. x.x for DDL and Security
Dim Cnn As ADODB.Connection
Dim Cat As ADOX.Catalog
Dim MaTableIndex As ADOX.Table
Dim NomTable As String
Dim Fichier As String
 
 
On Error GoTo Fin
Fichier = "C:\reptest\MaNouvelleBase.accdb"
 
Set Cnn = New ADODB.Connection
Cnn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _
    "Data Source='" & Fichier & "';"
 
Set Cat = New ADOX.Catalog
 
Set Cat.ActiveConnection = Cnn
 
'Nom de la table qui va être ajoutée
    NomTable = "MaTable"
 
 Set MaTableIndex = CreateObject("ADOX.Table")
 
 'Définit les champs pour la nouvelle table
    With MaTableIndex
        .Name = NomTable
        With .Columns
            .Append "ChampDate", adDate, 50
            .Append "ChampNombre", adInteger, 50
            .Append "ChampTexte", adWChar, 80
        End With
    End With
 
    'Création table
    Cat.Tables.Append MaTableIndex
 
    Set Cat = Nothing
 
 
Fin:
Cnn.Close
Set Cat = Nothing
Set MaTableIndex = Nothing
 
Set Cnn = Nothing
 
End Sub

Le code est testé (excel 2010) et fonctionne très bien. adapte le à tes besoins.

Attention, comme précisé dans le code :

Citation:

'Nécessite d 'activer les références:
'Microsoft ActiveX Data Objects x.x Library
'et
'Microsoft ADO Ext. x.x for DDL and Security

08/06/2012, 10h04
abdessamad245

Merci beaucoup pour votre réponse.

Le code marche très bien pour créer une table dans ma base access. Mais ce n'est pas ce que je veux faire. En fait, j'essaie d'exécuter une requête dans ma base access qui crée une table.(la requête est du genre Select * Into ... From...)

Merci de me proposer une autre alternative si vous avez d'autres suggestions.
08/06/2012, 10h25
rvtoulon

Citation:

Mon code marche à merveille sur des requêtes normales (qui ne créent pas de table), mais quand j'essaie avec une requête de création de table, vba s'énerve et me sort le message d'erreur suivant : "erreur d'exécution '3219' Invalid operation'".

à te lire, c'est bien ce que tu demandes :calim2: :calim2:.

c'est d'ailleurs le Titre de ce post !!!!.

la requête SELECT ne crée pas de table. Elle est utilisée pour rechercher de informations dans une table.

pense à regarder le lien du post précedent il y a d'autres questions qui t'aideront.

Mais j'avoue que là je ne comprend pas quel est ton problème!!!!