bouton ouvrir

[Sheldor]

bonjour les pros-altruistes-excellistes,
j'ai cherché mais point trouvé mais si j'ai mal cherché ne pas hésiter à me renvoyer à mes recherches...

je reçois des fichiers excel protégés par mot de passe, je voudrais faire un bouton qui les ouvre sans avoir à taper le mot de passe et ça ne veut point, je suis obligé de mettre le chemin dans un classeur vierge, récupérer la valeur de la cellule où se trouve le chemin, fermer le classeur vierge et ouvrir le bon classeur, un gros bricolage pas bien satisfaisant...
mon code:

Sub ouvrir()

chemin = Application.GetOpenFilename("All Files (*.*),*.*", , "choix du fichier", , True)

Workbooks.Add
Cells(1, 1) = chemin
a = Cells(1, 1)
Application.DisplayAlerts = False
ActiveWindow.Close

Workbooks.Open FileName:=a, Password:="deca"
Application.DisplayAlerts = True

End Sub

si quelqu'un a une solution simple je serais très vexé (ça fait longtemps que je cherche) et très content.
merci beaucoup
nico

 

[tototiti2008]

Re : bouton ouvrir

Bonjour nicopec,

si tu ne sélectionne qu'un fichier (avec mot de passe à l'ouverture et pour l'écriture) :

Sub ouvrir()
chemin = Application.GetOpenFilename("All Files (*.*),*.*", , "choix du fichier", , False)
Workbooks.Open Filename:=chemin, Password:="aaa", WriteResPassword:="aaa", IgnoreReadonlyRecommended:=True

End Sub

 

[Sheldor]

Re : bouton ouvrir

bravo,
là bravo
je suis resté coincé une éternité ici:
chemin = Application.GetOpenFilename("All Files (*.*),*.*", , "choix du fichier", , True)
Workbooks.Open FileName:=chemin, Password:="aaa", WriteResPassword:="aaa"


c'est le ignore... qui fait la différence?
du coup je ne m'étais pas posé la question mais on peut le faire en sélectionnant plusieurs fichiers?

grand grand, très grand merci merci
nico

 

[Sheldor]

Re : bouton ouvrir

ah non il y a un false au lieu de true après getopenfilename qui doit faire une différence entre mon code qui plante et le tiens qui marche

 

[tototiti2008]

Re : bouton ouvrir

Re,

Exact : le False signifie qu'on ne peut sélectionner qu'un fichier dans la boite de dialogue.
True permet d'en sélectionner plusieurs et renvoie un tableau en retour.
avec True, tu aurais du remplacer
chemin
par
chemin(1)

 

[Sheldor]

Re : bouton ouvrir

hyper bien merci
si j'en ai deux ...
Workbooks.Open FileName:=chemin(1), Password:="thon", IgnoreReadonlyRecommended:=True
Workbooks.Open FileName:=chemin(2), Password:="thon", IgnoreReadonlyRecommended:=True

j'imagine qu'il y a moyen de faire un each quelque chose mais ce serait abuser...
merci pour tes réponses c'est super sympas

 

[tototiti2008]

Re : bouton ouvrir

Re,

Sub ouvrir()
Dim i as long, chemin
chemin = Application.GetOpenFilename("All Files (*.*),*.*", , "choix du fichier", , True)
For i = LBound(chemin) to Ubound(chemin)
Workbooks.Open Filename:=chemin(i), Password:="aaa", WriteResPassword:="aaa", IgnoreReadonlyRecommended:=True
Next i
End Sub

à condition qu'ils aient tous le même mot de passe, bien sûr... 😉

 

[Sheldor]

Re : bouton ouvrir

trop fort! génial
merci beaucoup
désolé pour le retard dans la réponse.
amicalement
nico