ADODB - Récupération de données sous forme d'un tableau vari
Bonjour
je voudrais récupérer des données d'un classeur excel fermé. Pour le moment j'arrive à les coller dans une feuille d'excel ( Sheets("onglet").Range("A2").CopyFromRecordset rsT) et ensuite je fais le transfert dans une variable VBA vatab= Sheets("onglet").Range("A2:...").value
Peut-on récupérer directement les valeurs contenues dans l'enregistrement sous forme de variable VBA de type variant sans avoir à les coller dans un onglet en tampon
Autre question: quelle fonction ADODB utiliser pour compter le nombre de lignes récupérées dans la requête. rsT.Fields.Count renvoie le nombre de colonne et je ne sais pas récupérer le nombre de lignes
En vous remerciant par avance
Patrice
Bonjour,
Je ne connais pas ADOdb, donc... Avec Excel j'aurais fait un .Rows.Count.
Pour répondre à ta question 1 c'est un peu dur sans voir la macro directement, tu peux envoyer un fichier ?
A+
Bonsoir,
Exemple pour alimenter un Combo:
Private Sub UserForm_Initialize()
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & ThisWorkbook.Path & "\" & "CP_PAYS.xls"
Set rs = cnn.Execute("SELECT code FROM BD WHERE code<>'' GROUP BY code")
Me.ComboBoxCP.List = Application.Transpose(rs.GetRows)
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End SubJB