Changer format des colonnes en vba

Bonjour,

Je viens de creer une macro qui exporte une table excel vers une table access et je voudrais maintenant
1 ) pouvoir changer tous les champs de cette nouvelle table en champs de type "currency", de format "nombre standard" et avec "2 chiffres apres la virgule".
2 ) pouvoir changer leur format sans avoir a les lister. Etant donne que j ai plus de 50 champs, si je fais quelque chose comme

Code:

---

1 2	ALTER TABLE MaTable (Champs1(Currency), Champs2(Currency) ... jusqu'a 50

---

Je ne vais pas en finir. Est ce qu il n y aurait pas un objet "champs" dans ACcess qui me permette de parcourir tous mes champs avec une boucle ?


Merci beaucoup a ceux qui pourront m aider :)

Un début de piste :

Charger TableDef de la table
Une boucle sur Fields
Pour chaque Field modifier property

CA y est j ai trouvé, tout réside dans le modèle DAO que je ne connaissais pas. C est genial ce truc. J ai access a tous les objets que je veux maintenant, y compris a toutes les proprietes de tous les champs :)

Voici une partie du code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Set db = dbEngine.Worspaces(0).Databases(0)   'Et maintenant on a ce qu on veut :   FieldNb = db.TableDefs(1).Fields.Count   For i =0 To FieldNb - 1 de.TableDefs(1).Fields(i).Properties("Format").Value = "#,##0.00" Next i

---

Donc
TableDefs(Index) c est une table
Fields(Index) c est un champs
Properties(Index) c est une propriete
...

Voila