Discussion :

[Miss Ti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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:

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

???

[je suis sous Access 2003]

[bernardmichel]

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 ?

[Miss Ti]

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!!)

[bernardmichel]

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

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 ?

[Invité]

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

[Miss Ti]

Désolée les gars pour ce remue méninges.
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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