Ajouter des données Excel à une table SANS références?

Bonjour à tous,
Mon problème de références n'étant toujours pas résolu (besoin de faire des sauvegardes avant de réinstaller WinDaube car rien n'a marché jusqu'ici...), il faut que je biaise au plus vite (les utilisateurs de la base ayant besoin de l'appli assez rapidement). Une fois que je les aurai récupérées, je modifierai le code pour l'optimiser avec ce qu'il faut.

Je ne veut importer que les colonnes 3 à 8 d'un fichier excel avec test sur la colonne 8 (==> valNb_T) et ajouter une autre valeur pour un dernier champ (ValIdObs). Ce qui me donne la commande SQL suivante:

Code:

---

1 2 3 4 5 6 7 8

cmdSQL = "Insert into [Variable_ESP] (H, L, LdT, Ho, Lo, Nb_T, IdOBS) values ( " & _ oWSht.Cells(i, 3) & ", " & _ oWSht.Cells(i, 4) & ", " & _ oWSht.Cells(i, 5) & ", " & _ oWSht.Cells(i, 6) & ", " & _ oWSht.Cells(i, 7) & ", " & _ valNb_T & ", " & _ valIdObs & ")"

---

Revenons à la question:
Comment importer des données Excel sans utiliser

Code:

---

1 2 3

Dim oApp As Excel.Application Dim oWkb As Excel.Workbook Dim oWSht As Excel.Worksheet

---

qui génère l'erreur suivante:

Citation:

---

Type défini par l'utilisateur non défini

---

???
8O
[je suis sous Access 2003]

Hello !

Je ne sais pas si j'ai vraiment bien tout compris...

Mais as-tu pensé à la bête commande : "docmd.TransferSpreadsheet acImport" qui te permettrait d'importer dans une table temporaire les données que tu souhaites puis, grâce à une requête ajout, incorporer ces données dans ta table ?

Le "docmd.TransferSpreadsheet acImport" me permet d'enregistrer toutes les données dans une table temporaire. Ca, OK.
Mais pour faire un INSERT, je dois parcourir ligne par ligne ma table.
Donc Recordset, donc besoin des références.
Je dois vraiment contourner le problème... (raz le bol de Windaube!!)

Alors, je ne comprends pas ton problème !
Veux-tu nous en dire plus, surtout pourquoi tu as toutes ces contraintes, et dans quel environnement tu travailles...

Citation:

---

Mais pour faire un INSERT, je dois parcourir ligne par ligne ma table.... POURQUOI, que veux-tu dire par là ?
Donc Recordset, donc besoin des références..... POURQUOI donc des références ?...s'il s'agit d'une requête de table à table ?

---

Bonjour

Va jeter un coup d'oeil dans les contributions Excel, notamment sur celle-ci de Caféine

http://www.developpez.net/forums/sho...d.php?t=417799, cela devrait t'aider.

Starec

Désolée les gars pour ce remue méninges. :oops:
J'ai fini par trouver la solution à mon problème: j'importe mes données dans une table temporaire puis je reprend ces données avec une requête INSERT... SELECT...
C'était bête, oui, je sais.

Code:

---

1 2 3 4 5 6

DoCmd.TransferSpreadsheet acImport, 8, "tmp", strLink, True, "" cmdSQL = "UPDATE Tmp SET IdObs = " & valIdObs DoCmd.RunSQL cmdSQL cmdSQL = "INSERT INTO Variable_ESP ( H, L, LdT, Ho, Lo, Nb_T, Id_OBS ) " & _ "SELECT H, L, LdT, Ho, Lo, Nb_T, IdOBS FROM Tmp;" DoCmd.RunSQL cmdSQL

---

(J'ai tendance à me focaliser sur mon problème de références...)
Y'a-t-il un moyen d'alléger le code?


Pour voir d'où vient ce problème de références: http://www.developpez.net/forums/sho...d.php?t=417068

Hello !
Expliques-moi un peu ce qui différencie :

Citation:

---

Mais as-tu pensé à la bête commande : "docmd.TransferSpreadsheet acImport" qui te permettrait d'importer dans une table temporaire les données que tu souhaites puis, grâce à une requête ajout, incorporer ces données dans ta table ?

---

à ceci :

Citation:

---

J'ai fini par trouver la solution à mon problème: j'importe mes données dans une table temporaire puis je reprend ces données avec une requête INSERT... SELECT...
C'était bête, oui, je sais.

---

... oui c'est un peu bête !!

Pour maintenant revenir à ton dernier post, que souhaites-tu alléger exactement ?