[AC-2007] Feuille Excel liée à Access avec mot de passe

[rch05]

Bonjour,

J'aimerai lier une feuille Excel à la BD.
Le fichier Excel a un mot de passe.
J'ai trouvé sur le site le code suivant que j'ai adapté selon mon besoin :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub Lier_Click()
 
Dim strMotPasse As String
Dim strCheminBd As String
Dim strNomTable As String
Dim strConnect As String
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
'Définit mot passe, nom table, chemin base de données
strMotPasse = "ProdArgos"
strCheminBd = "Z:\Carnet de commandes pour ARGOS.xls"
'Feille de donnée à lier
strNomTable = "Sheet1" & "$"
'Instancie l'objet Database
Set oDb = CurrentDb
'Définit la chaine de connexion permettant la liaison
strConnect = "Excel 8.0;HDR=YES;IMEX=2;ACCDB=YES;pwd=" & strMotPasse & ";DATABASE=Z:\Carnet de commandes pour ARGOS.xls"
'Crée la nouvelle table
Set oTbl = oDb.CreateTableDef(strNomTable)
With oTbl
    .Connect = strConnect
    .SourceTableName = strNomTable
End With
'Ajoute la table à la base de données
oDb.TableDefs.Append oTbl: oDb.TableDefs.Refresh
End Sub

J'ai une erreur "impossible de décoder le fichier"
L'aide Access ne m'explique pas pourquoi et j'ai trouvé cette discussion qui ne m'explique pas mon souci.

Avez-vous une idée?

Merci d'avance