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
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