Bonjour,

J'essai d'ouvrir un fichier excel protégé par mot de passe depuis access. Mais rien n'y fait à chaque fois, il me demande de taper le mot de passe pour avancer. Ci-dessous le code que j'ai utilisé :
Aurais-je oublier quelque chose dans le code. Faut-il activer des bibliothèques particulières pour que cela fonctionne ?

Merci d'avance pour vos réponses.

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
19
Private Sub Bt_Importer_Click()
 
'Ouvrir fichier
 
Dim xl As Excel.Application
Dim wb As Excel.Workbook
 
Set xl = New Excel.Application
 
Set wb = xl.Workbooks.Open(FileName:="C:\Mes documents\test.xls", Password:="secret")
 
xl.Visible = True
 
xl.Worksheets("Entrées Sorties").Visible = True
xl.Worksheets("Entrées Sorties").Activate = True
 
xl.Nothing
 
End Sub