Bonjour,  
Je cherche à importer des données venant d'une base de données SQL  
Avec le Prog suivant, je l'importe dans Excel :  
[i]Dim qt As QueryTable  
sqlstring = "Select CodeArticle,Design From ARTICLE "  
connstring = "ODBC;DSN=XXXX;UID=XXX;XX=;"  
With ActiveSheet.QueryTables.Add(Connection:=connstring, _  
Destination:=Range("a1" ), Sql:=sqlstring)  
.Refresh BackgroundQuery:=False  
End With [/i].  
Le but est d'importer les données dans un tableau VB genre "Array" ou autre sans passer par les feuilles Excel.  
Est-ce que quelqu'un a une idée et pourrait éventuellement m'écrire le Prog en sachant que je travaille que sous Excel.  
Merci.