Creation d'une table à partir d'un tableau

Bonjour,
J'ai créé dans ACCESS 2003, par VBA, un tableau de n lignes et n colonnes. Ce tableau est alimenté en utilisant un recordset.
Ma question est la suivante :
Comment faire pour transformer ce tableau, 'virtuel', en une table ACCESS.
Merçi d'avance pour vos réponse,
a+

Bonjour,

je ne suis pas sûr d'avoir tout compris, mais je crois que la solution c'est une requête (UPDATE ...), non?

Bon courage.

Bonjour,
J'ai créer un tableau du type :
Dim matrice(529, 10) As Variant
J'ai alimenté ce tableau sous VBA.
Une fois ce tableau créer, ..., je souhaite le transformer en table access.

Une requete UPDATE ne s'utilise qu'avec des tables ou requete access je crois?

Et bien oui tu fais UPDATE sur table access avec les valeurs de ton tableau (en suppossant que tu es crée au préalable ta table) si elle est pas crée je pense que tu peux faire CREATE.

Bon courage.

Le problème est justement de créer une table ACCESS avec un tableau (Dim matrice(529, 10) As Variant)
CREATE (sous VBA) ne cré que des tables ACCESS vides ou issues d'un fichier précis (xls, mdb). Est-ce possible d'utiliser create avec un tableau (Dim matrice(529, 10) As Variant)?
Il me semble que UPDATE ne s'utilise qu'avec des tables et requetes ACCESS et pas avec des tableau (Dim matrice(529, 10) As Variant)
Merçi pour tout

Non, tu n'as pas compris, et apparement tu dois pas t'y connaître beaucoup en sql.
Tu fais ta requête et au lieu de mettre la valeur = "bidule" tu mets la valeur = une valeur de ton tableau. Je sais plus trop comment on fait exactement, mais c'est faissable. ton table tu peut récupérer la nieme valeur donc cette nieme valeur et bien tu l'as mais dans ta table access. Le mieux c'est de mettre tout ça dans une boucle.
Je t'explique l'algorithme avec des mots!
Répéter tant que le tableau n'est pas vide
requête de mise à jour d'une table access(que tu auras au préalable crée) avec la valeur n de ton tableau.
fin répéter.

C'est compréhensible?

Tu dois utiliser la fonction SQL CREATE TABLE pour créer une table par le code.

Je prends pour acquis que la table que tu veux créer n'existe pas du tout et que les noms de ses champs sont connus à l'avance et que c'est trois colonnes de texte.

Le code suivant fonctionne, mais n'est pas parfait. Je l'ai gardé simple pour ne pas l'allourdir encore plus. Je l'ai fait de mémoire, il se peut qu'il y ait une erreur minime ou deux.

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

Private MonTableau(1 to 10, 1 to 3) as String   ' Créer la table, vide. Private Sub CreerTable() Dim strSQL as String strSQL = "CREATE TABLE MaTable " & _ "(NomColonne1 TEXT, NomColonne2 TEXT, " & _ "NomColonne3 TEXT " & _ "CONSTRAINT MaTable_PK PRIMARY KEY (NomColonne1, " & _ "NomColonne2);" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End Sub   ' Remplir la table. Private Sub RemplirTable() Dim recTableau as ADODB.Recordset Dim strSQL as String ' Pour ouvrir un recordset dans le but d'ajouter des données seulement, ' WHERE 1=0 assure que le recordset est vide. strSQL = "SELECT * FROM MaTable WHERE 0=1;" With recTableau .ActiveConnection = Application.CurrentProject.Connection .Source = strSQL .LockType = adLockOptimistic .CursorType = adOpenKeyset .Open Dim I as Integer For I = 1 to 10 !NomColonne1 = MonTableau(I, 1) !NomColonne2 = MonTableau(I, 2) !NomColonne3 = MonTableau(I, 3) ' Si le .Update cause une erreur, enlève le. De mémoire, je ne suis pas suis de sa nécessité. .Update .MoveNext Next .Close End With Set recTableau = Nothing End Sub

---

Cet exemple crée une table vide appelée MaTable qui contient trois champs texte appelée NomColonne1, NomColonne2, NomColonne3, dont la clef primaire est constituée des champs NomColonne1 et NomColonne2.

Pour spécifier la longueur d'un champ texte : NomColonne1 TEXT(5).
Pour un champ numérique long : NomColonne1 LONG.
Pour un champ date : NomColonne1 DATETIME.

Si tu as des questions, n'hésite pas!

Dim matrice(529, 10) As Variant)

ceci pose seulement un problème d'homogénéité des données
on peut parfaitement créer une table avec un tel tableau
encore faut il que pour chacun des champs le type soit homogène et compatible avec les types de champs d'accés
il faut procéder ainsi
créer une tabledef
vérifier pour champ=1 t 10
et pour ligne=1 to 529
déterminer le type du champ
ici un algo pour ... distinguez les longs dates réels ou textes
on ajoute le champ à tabledef nom champ1, champ2..champ10
type prédemment défini
on met le tabledef à jour
on finit la création de la table (voir tutorial dao)
on y ajoute les données

nb il serait infiniment plus simple si on connait le type de données à l'arrivée
de disposer d'une table vierge au bon format
d'en faire une copie sous le nom choisi
et de la remplir avec la matrice

Citation:

---

Envoyé par random

Dim matrice(529, 10) As Variant)

ceci pose seulement un problème d'homogénéité des données

---

En effet, j'avais pas pensé que les Variant peuvent contenir Null. Il serait donc avisé d'utiliser Nz

Code:

---

1 2 3 4 5 6 7 8 9

Dim I as Integer For I = 1 to 10 !NomColonne1 = Nz(MonTableau(I, 1)) !NomColonne2 = Nz(MonTableau(I, 2)) !NomColonne3 = Nz(MonTableau(I, 3)) ' Si le .Update cause une erreur, enlève le. De mémoire, je ne suis pas suis de sa nécessité. .Update .MoveNext Next

---

Ce code ne prévient pas l'insertion de doublons, et utiliser des TEXT comme clef primaire, c'est pas vargeux (pardonnez l'expression bien de chez nous).:mouarf:

il y a aussi une autre méthode très simple

l'objet range excel peut recevoir un array
donc
création une feuille excel
copie de l'array
import de la feuille en création de table

Merçi à vous tous pour vos suggestions toutes très intéressantes,
Je me suis sîmplifié la vie en mettant tout en string et ça marche nickel.
Labelette ton prog marche super bien, j'ai juste fait une petite modif
Dim I as Integer
For I = 1 to 10
.AddNew
!NomColonne1 = Nz(MonTableau(I, 1))
!NomColonne2 = Nz(MonTableau(I, 2))
!NomColonne3 = Nz(MonTableau(I, 3))
.Update
Next