Bonjour,
J'ai besoin d'ouvrir un fichier excel protégé par un password en lecture.
j'ai esayé le code suivant mais il ne fonctionne pas. quelqu'un pourrait il m'aider ?
nota : le password est connu.
' ****************************
Dim xlApp As Object
Dim xlbook As Object
Set xlApp = CreateObject("Excel.application") 'Creates an object
Set xlBook = xlApp.Workbooks.Open(FileName:="C:\user\Classeur1.xls", _
Password:="AAA")
a = xlBook.ActiveSheet.Cells(1, 1).Value
xlApp.ActiveWorkbook.Close True
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
'******************************
Merci d'avance pour votre aide
Clodius13