Exécuter une requête SQL avec VBA et remplir la feuille de données
Très nouveau dans toute forme de code. Tenter d'exécuter un script dans VBA qui extraira des données d'une base de données access à l'aide de SQL et les placera dans une feuille de calcul Excel. Le code est similaire à ci-dessous. Fonctionne propre mais je ne sais pas comment utiliser les données qu'il tire. Merci d'avance.
Sub Get_Data()
Dim cn As Object
Dim rs As Object
Dim strFile As String
Dim strCon As String
Dim strSQL, strInput As String
strFile = "S:Location.Database.accdb"
strCon = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & strFile
Set cn = CreateObject("ADODB.Connection")
cn.Open strCon
strInput = InputBox("Input Desired Name")
strSQL = "SELECT NAME, Location WHERE NAME =""'strInput'"";"
cn.Execute strSQL
cn.Close
Set cn = Nothing
End Sub