Discussion :

[lumpys]

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

[LedZeppII]

Bonjour,

Essaie en ajoutant

Code :

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

xl.UserControl = True

après

Code :

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

Set xl = New Excel.Application

pour empêcher que la session Excel ne se referme à la fin de la sub.

A+

[lumpys]

Malheureusement ca ne fonctionne pas. La fenêtre qui demande le mot de passe se met au 1er plan ce qui n'était pas le cas auparavant. Mais rien de plus, il bloque sur cette fenêtre.

[lumpys]

J'ai finalement réussit en ajoutant WriteResPassword :

Set wb = xl.Workbooks.Open(FileName:="C:\Mes documents\test.xls", Password:="secret", WriteResPassword:="secret")