Discussion :

[Marionette]

Bonsoir,

J'ai importé une table attachée sur Access basée sur un classeur Excel que j'ai chiffré par mot de passe. Lors de l'importation j'ai eu un message d’erreur, j'ai vite compris que le mot de passe empêchait la liaison avec ce dernier.
J'ai donc d’abord ouvert le classeur pour pouvoir l'importer dans ma BDD... jusque-là ça roule sauf qu'une fois fermé mon classeur n'est de nouveau plus accessible sur Access pour cause du mot de passe.

1 ) Existe-il une solution pour indiquer à Access qu'il doit ouvrir ce classeur avec le mot de passe XXXX .
2) Si oui, en cas de changement du mot de passe je devrais mettre à jour le code sur Access je suppose .

Cordialement;

[Jean-Philippe André]

Bonjour,

L'erreur que tu rencontres ne peut pas être résolue de facon directe, mais il existe des facons détournées d'arriver à tes fins :
Une solution en anglais icitte :
https://www.connectionstrings.com/ho...xcel-workbook/

[Marionette]

Salut,

Merci je vais essayer d'apdapter ce code à mon projet, c'est pas gagné !

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
'Open the Excel workbook to prompt for the password
Dim xl As Object
Set xl = GetObject(CurrentProject.Path & "\" & "MASTER JAN 2009.xls")
 
'Now open the workbook to read/write/whatever
Dim cnn1 As New ADODB.Connection
Dim rst1 As ADODB.Recordset
Dim strExcelName As String = "MASTER JAN 2009.xls"
Dim strWkBkName As String = "[MASTER 2008$]"
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
"Data Source=" & CurrentProject.Path & "\" & strExcelName & ";" _
"Extended Properties=""Excel 8.0;"";"
Set rst1 = New ADODB.Recordset
rst1.Open strWkBkName, cnn1, , , adCmdTable
Do Until rst1.EOF
    'process your data here
    rst1.MoveNext
Loop