1 pièce(s) jointe(s)
Connexion à ACCESS 2016 avec mot de passe depuis Excel, en utilisant un QueryTABLES
Bonjour
Je suis débutante en VBA.
J'ai réussi (:lol:) à importer dans une feuille de calcul le résultat d'une requete écrite en VBA avec un code SQL, interrogeant une base ACCESS 2016.
Depuis j'ai mis un mot de passe "TEST" au niveau général de cette base de données ACCESS et je ne parviens pas à trouver la synthaxe qui me permettra d'insérer ce mot de passe dans mon code.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Sub ImportRequetedansExcel()
Datasource="C:\conso\BD.accdb"
StrSQL = "SELECT TauxParDate.Date, TauxParDate.TauxCC, TauxParDate.TauxCM " & _
"FROM (ListeDevises INNER JOIN TauxParDate ON ListeDevises.CodeBDF = TauxParDate.CodeBDF) INNER JOIN ListeSocietes ON TauxParDate.CodeBDF = ListeSocietes.Devise " & _
"WHERE ListeSocietes.NumSté = '" & strSociete & "'" & _
"ORDER BY TauxParDate.Date DESC"
strConnexion = "OLEDB;Provider=Microsoft.ACE.OLEDB.16.0;" & "Data Source=" & datasource & ";password=TEST"
Sheets("donnees").Select
With ActiveSheet.QueryTables. _
Add(Connection:=strConnexion, _
Destination:=Range("A1"), Sql:=StrSQL)
.SavePassword = True
.Refresh
End With
End Sub |
Auriez vous une idée ?
PS: je sais que le code SQL indiqué ci dessus marche
Bien cordialement
