Discussion :

[docleka]

Bonjour !
Je dois créer un bouton qui permet à l'utilisateur final de choisir un fichier Excel pour alimenter ma base de données.
Les fameux fichiers Excel sont protégés à l'ouverture par un mot de passe.

Ayant déjà eu à ouvrir des fichiers protégés en VBA sous Excel, j'ai repris le même code.

Code :

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

Workbooks.Open FileName:"NOM", Password:="MOTDEPASSE"

Cependant, il doit y avoir une petite subtilité entre VBA Excel et VBA Access car une fois ma procédure lancée, Excel me demande de taper le mot de passe...

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
20
21
22
23
24
Public WBK As Object
Private Sub IMPORT_DATA_Click()
Dim fMYO As String
 
Set WBK = CreateObject("Excel.Application")
 
'choix du fichier
Dim FD As Office.FileDialog
Set FD = Application.FileDialog(msoFileDialogFilePicker)
With FD
    .Filters.Clear
    .Filters.Add "Formulaires MYO", "*.xlsx; *.xls"
    .InitialFileName = "MYO_*"
    .Title = "Choix du Formulaire"
    .AllowMultiSelect = False
End With
If FD.Show = -1 Then fMYO = FD.SelectedItems(1)
Set FD = Nothing
If fMYO = "" Then Exit Sub
'ouverture du fichier
WBK.workbooks.OPEN fMYO, Password:="pouet"
 
 
End Sub

Donc, si quelqu'un à le début d'une idée, cela m'aiderait grandement !
Merci d'avance
DocLeka

[FreeAccess]

Bonjour,

As tu essayé ceci....
Comment ouvrir un classeur Excel protégé depuis Access ?

[docleka]

Bonjour FreeAccess
J'avais parcouru pas mal de pages du forum mais je n'avais pas pensé à effectuer mes recherches dans le FAQ...

Ceci dit, en prenant le code, cela ne fonctionne toujours pas. Excel me demande toujours le mot de passe...

[docleka]

Eureka !
Finalement, il ne me manquait qu'une petite ligne de code à la fin:

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
20
21
22
23
Private Sub IMPORT_DATA_Click()
Dim XLS As Excel.Application
Dim WBK As Excel.Workbook
Set XLS = New Excel.Application
 
'choix du fichier
Dim FD As Office.FileDialog
Set FD = Application.FileDialog(msoFileDialogFilePicker)
With FD
    .Filters.Clear
    .Filters.Add "Formulaires MYO", "*.xlsx; *.xls"
    .InitialFileName = "MYO_*"
    .Title = "Choix du formulaire"
    .AllowMultiSelect = False
End With
If FD.Show = -1 Then fMYO= FD.SelectedItems(1)
Set FD = Nothing
If fMYO= "" Then Exit Sub
'ouverture du fichier
Set WBK = XLS.Workbooks.OPEN(FileName:=fMYO, Password:="pouet")
XLS.Visible = True
 
End Sub