Discussion :

[FannyGir]

Bonjour
Je suis débutante en VBA.
J'ai réussi () à 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[FannyGir]

Bonjour,

Mon code ci dessus ne marche pas.
Quelqu'un aurait une idée ?

[Invité]

c'est pareil: https://www.developpez.net/forums/d1...protege-passe/

inutile de publier plusieurs postes sur le même sujet !

[FannyGir]

Oui vous avez completement raison il s'agit de mes premières questions et je pensais m'être trompée de forums...