mot de passe à l'ouverture

[Sheldor]

bonjour les excellents excelliens,
je coince!
je reçois pas mal de fichiers par mail, protégé à l'ouverture par un mot de passe et je voudrais me faire un bouton "ouvrir bis" qui ouvrirait le fichier sans que j'ai besoin de taper le mot de passe: disons citron.

j'ai:
--
chemin = Application.GetOpenFilename("All Files (*.*),*.*", , "choix du fichier", , True)

Workbooks.Open Filename:=chemin, Password:="citron"
--

pourtant si je met chemin dans une case et que je le remets dans le code pour workbooks.open ça marche...

grand merci aux lecteurs!
nico

 

[Sheldor]

Re : mot de passe à l'ouverture

j'ai trouvé un détour biscornu
------------------------------------------------
chemin = Application.GetOpenFilename("All Files (*.*),*.*", , "choix du fichier", , True)

Workbooks.Add
Cells(1, 1) = chemin
a = Cells(1, 1)
Application.DisplayAlerts = False
ActiveWindow.
Workbooks.Open Filename:=a, Password:="citron"
-----------------------------------------
je passe le chemin dans un nouveau classeur, je le récupère et je le passe à workbooks.open, c'est laid mais ça a l'air de marcher. si ça peut servir à quelqu'un.
je dois pourtant pas être loin de la vérité ...
une idée?
bon ap