salut,

je tourne autour d'un problème depuis bien longtemps et je n'ai jamais trouvé la solution, peut-être est-elle trop évidente ?

Enfin, je souhaite tout simplement via une macro VBA utilisant DAO :
- créer un base .mdb
- lui ajouter une table qui contient un champ
- puis remplir cette table

je bloque lors de l'ajout du champ à la table avec une erreur : 3219 opération non valide

voici le code en question :
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
 
Dim oDBEngine As DAO.DBEngine
Dim oWorkspace As DAO.Workspace
Dim oDataBase As DAO.Database
Dim oTableDef As DAO.TableDef
Dim ofield As DAO.Field
 
Set oDBEngine = CreateObject("DAO.DBEngine.36")
Set oDataBase = oDBEngine.CreateDatabase("C:\test.mdb", dbLangGeneral, 64)
Set oTableDef = oDataBase.CreateTableDef("PERSONNES")
Set ofield = oTableDef.CreateField("nom", dbText, 20)
'bloque à l'instruction ci après
oTableDef.Fields.Append (ofield)
oDataBase.TableDefs.Append (oTableDef)
 
oDataBase.Close
d'après ce que j'ai vu sur le net, ce code devrait s'executer sans problème...
si quelqu'un a une solution ou une idée, par avance merci