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 : 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
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