Discussion :

[Finndelle74]

Bonjour à tous !

J'ai une application Access qui doit me récupérer des données dans un fichier Excel. Jusqu'ici tout va bien, sauf que ce fichier Excel est protégé par un mot de passe.
J'ai une inputbox qui me récupère le mot de passe (MotDePasse), que j'injecte à l'ouverture du fichier Excel :

Code :

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

1
2
3
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(FileName:=chemin, Password:=MotDePasse)

Sauf qu'à ce moment là, la fenêtre d'Excel apparaît quand même (malgré le Visible = False), et me demande également le mot de passe ("le fichier xxx est protégé..."). Or je veux que ces opérations soient masquées pour l'utilisateur (comme sans mot de passe, à part l'opération de saisie dans le inputbox).

J'ai essayé d'ajouter :

Code :

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

xlApp.DisplayAlerts = False

ou encore :

Code :

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

Set xlBook = xlApp.Workbooks.Open(FileName:=chemin, Password:=MotDePasse, UpdateLinks:=False)

Mais rien n'y fait... help !!

[PipoWIL]

Bonjour,

Votre méthode fonctionne très bien, Merci. Je l'ai utilisée et vous m'avez appris qqch. Merci.

Par contre, à la seconde utilisation, j'ai eu, comme vous, Excel qui m'a demandé le mot de passe en plein écran.

Cela se produit parce que la première utilisation n'a pas fermé Excel. Comme Excel n'est pas visible à l'écran (xlApp.Visible = False) on ne se rend pas compte qu'il est toujours ouvert. Faites CTRL-ALT-DEL et allez voir dans le Task Manager/Processus en arrière plan et vous verrez que Excel est toujours actif.
Pour eviter cet éceuil, j'ai ajouté une ligne de code pour fermer Excel.

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
Sub Ouvrir_Excel()
'Voici comment ouvrir une feuille Excel protégée par un mot de passe
Dim xlApp As Object
Dim xlBook As Object
 
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(FileName:="C:\Temp\Test.xlsx", Password:="ABC")
xlApp.Visible = False
 
Debug.Print "Voici ce que je lis en ligne 2 col 2 : ", xlBook.sheets("sheet1").cells(2, 2)
'il est important de fermer Excel
'Si vous ne fermez pas Excel, un autre utilisateur aura un message à l'ouverture
'Si vous ne le fermez pas cette Sub Ouvrir_Excel forcera l'affichage et la demande du mot de passe en plein ecran malgré le xlApp.Visible = False
xlBook.Close
 
Set xlBook = Nothing
Set xlApp = Nothing
 
End Sub

[Finndelle74]

Bonjour,
Merci beaucoup pour votre réponse.

En effet, j'avais parfois la fenêtre de saisie du mot de passe d'Excel, et parfois pas, ce qui était surprenant ! Et embêtant car je boucle sur tous les fichiers Excel du répertoire (qui ont le même mot de passe).

J'avais déjà bien pourtant en fin de procédure le code :

Code :

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

1
2
3
xlBook.Close SaveChanges:=False
Set xlBook = Nothing
Set xlApp = Nothing

(bien penser au SaveChanges car sinon quand on éteint l'ordi, réapparaissent tous les messages d'excel pour savoir si on veut enregistrer !)

Je pense que parfois en cas de bug, la fin était zappée, et donc le problème arrivait au coup suivant. Je n'avais pas encore mis en place le "On error Goto" car en phase de débugage de mes étapes intermédiaires...
Maintenant que ma procédure tourne bien à l'intérieur, ça a l'air de fonctionner.

Encore merci !