Excel/Access & Mot de passe

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;

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/

Salut,

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

Code:

---

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

---