Microsoft 365 Requête ADODB sur une colonne

Bill73 · 31 Janvier 2024

Bonjour,
je bute depuis un moment sur un problème de requête ADODB
Je voudrais extraire une colonne précise depuis une feuille excel fermée contenant une bdd, et récupérer cette colonne directement dans une variable tableau.

ex :

il faut récupérer la colonne Nom (l'ensemble des noms) et les transférer dans un tableau

fanch55 · 31 Janvier 2024

Salut, le code ci-dessous devrait répondre à votre demande.
Attention, code créé sur le pouce , il ne gère pas les erreurs

VB:

Sub test()
Dim Base        As Object, Requete     As Object
Dim Classeur    As String, Feuille     As String, Sql_Driver     As String

    Classeur = "D:\Users\xxxxxx\Downloads\Bill73Base.xlsx"
    Feuille = "Feuil1"
    Sql_Driver = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
                 "DBQ=" & Classeur & ";READONLY=True"
    Set Base = CreateObject("ADODB.Connection")
        Base.Open Sql_Driver
        Set Requete = CreateObject("ADODB.Recordset")
             Requete.ActiveConnection = Base
                Requete.Open _
                   "Select Nom From [" & Feuille & "$] Order By Nom;"
                [A1].CopyFromRecordset Requete
             Requete.Close
        Set Requete = Nothing
        Base.Close
    Set Base = Nothing
                    
End Sub

fanch55 · 31 Janvier 2024

Bill73 à dit:
les transférer dans un tableau

En ce cas :
Attention, la variable Tablo sera en base 1, c'est à dire commencera par l'index 1 et non 0 .

VB:

Function test()
Dim Base        As Object, Requete     As Object, Tablo
Dim Classeur    As String, Feuille     As String, Sql_Driver     As String

    Classeur = "D:\Users\xxxx\Downloads\Bill73Base.xlsx"
    Feuille = "Feuil1"
    Sql_Driver = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
                 "DBQ=" & Classeur & ";READONLY=True"
    Set Base = CreateObject("ADODB.Connection")
        Base.Open Sql_Driver
        Set Requete = CreateObject("ADODB.Recordset")
             Requete.ActiveConnection = Base
                Requete.Open _
                   "Select Nom From [" & Feuille & "$] Order By Nom;"
                Tablo = WorksheetFunction.Transpose(WorksheetFunction.Transpose(Requete.GetRows))
             Requete.Close
        Set Requete = Nothing
        Base.Close
    Set Base = Nothing
End Function

Bill73 · 31 Janvier 2024

c'est super, ça marche comme je le voulais.
En fait je butais sur le Transpose. Pourquoi le doubler ?

fanch55 · 31 Janvier 2024

Tablo = Requete.GetRows
Tablo = WorksheetFunction.Transpose( Requete.GetRows)
Tablo = WorksheetFunction.Transpose( WorksheetFunction.Transpose( Requete.GetRows))

Bill73 · 31 Janvier 2024

ok, je n'utilise vraiment pas assez la fenêtre espions !
Encore merci pour l'aide.

dysorthographie · 31 Janvier 2024

Bonsoir,

VB:

Tablo =split(Base.Execute("Select Nom From [" & Feuille & "$] Order By Nom;").GetString(,,";",vbcrlf),vbcrlf)

Edite:
Notes que tu peux faire un Select Distinct si tu ne veux pas de doublons.

fanch55 · 1 Février 2024

dysorthographie à dit:
Tablo =split(Base.Execute("Select Nom From [" & Feuille & "$] Order By Nom;").GetString(,,";",vbcrlf),vbcrlf)

Bien vu, je l'avais oublié le Getstring qui permet de conserver des tableaux en base 0 .
Il faut donc remplacer la ligne du Transpose par :

VB:

                Tabst = Requete.getstring
                Tablo = Split(Left(Tabst, Len(Tabst) - 1), vbCr)  ' vbcr étant le séparateur de lignes par défaut

Microsoft 365 Requête ADODB sur une colonne

Bill73

XLDnaute Junior

fanch55

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Bill73

XLDnaute Junior

fanch55

XLDnaute Barbatruc

Bill73

XLDnaute Junior

dysorthographie

XLDnaute Accro

fanch55

XLDnaute Barbatruc

Discussions similaires