Jointure de tablesRésolu

Question

Bonjour,

je voudrais joindre deux tables qui sont dans des fichiers excel en utilisant ADO sous VBA. Voila mon code qui marche sur une table simple:

--------------------------------------------------------------------------------------------------------------------------------
Sub connexionADO(source, feuille)

On Error Resume Next


Const adopenstatic = 3
Const adlockoptimistic = 3
Const adcmdtext = &H1


Dim query As String
Dim i As Long
Dim j As Integer


Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & source & ";" & _
        "Extended Properties=""Excel 8.0;HDR=Yes;"";"

query = "Select * FROM [" & feuille & "$] where VARIANTE like 'L%'"


objRecordset.Open query, objConnection, adopenstatic, adlockoptimistic, adcmdtext

--------------------------------------------------------------------------------------------------------------------------------

Merci bcp!

blanchoc · Accepted Answer

Après beaucoup de recherches et des réponses qui vont toutes dans le sens de "je ne suis pas sur, mais ca ne me semble pas possible", j'ai decidé d'importer mes tables dans mon fichier courant pour faire mes requetes. Ca marche, mais le mystere reste entier...
Merci a tous.

Jointure de tables

1 réponse

Votre réponse

Discussions similaires