Discussion :

[sergio_bzh]

Bonjour,

Voilà mon pb de base : je suis dans une appli VB6 où je travaille sur une DB Access et je cherche à importer une feuille Excel dans ma base Access.

On va me dire : c'est simple il y a TransferSpreadSheet.
C'est vrai qu'en VBA sous Access, il suffirait de faire :

Code :

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

 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, nomTable, ficXLS, True, ""

Mais je suis en VB6, je travaille avec ADODB et je n'arrive pas à exécuter ma commande TransferSpreadsheet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Set cmdAMOA = New ADODB.Command
 
    cmdAMOA.ActiveConnection = cnx_AMOA
    cmdAMOA.CommandText = "TransferSpreadsheet"
    cmdAMOA.CommandType = adCmdStoredProc
 
    Set paramAMOA1 = cmdAMOA.CreateParameter("paramAMOA1", _
            adInteger, adParamInput, , acImport)
    cmdAMOA.Parameters.Append paramAMOA1
    ' je passe les autres params .... 
 
    ADODB.Execute

Résultat sur le "Execute" j'ai :

Le moteur Microsoft Jet ne peut pas trouver la table ou la requête source 'transferSpreadSheet'. Assurez-vous qu'elle existe ou qu'elle est correctement orthographiée.

J'ai également essayé au hasard DoCmd.TransferSpreadSheet : même résultat.

Qui a une idée sur le pb ?

merci.
Sergio

[LedZeppII]

Bonjour,

CommandText ne peut contenir qu'une instruction SQL, un nom de table, de requête ou de procédure stoquée.

TransferSpreadSheet est une méthode de Access.Application.DoCmd.

Moi j'essaierais comme ça

Code :

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

1
2
3
4
5
6
7
 
Dim ACCapp as Object ' (ou as Access.Application)
 
Set ACCapp = GetObject("Chemin\Base.mdb")
ACCapp.DoCmd.TransferSpreadSheet ...
 
Set ACCapp=Nothing

A moins qu' Access.Application ne soit pas disponible sur le PC.
Dans ce cas il faut ouvrir une connexion ADO sur le fichier Excel et un recordset sur l'onglet et remplir la table Access ligne par ligne.

A+