Bonjour à tous,

J'ai besoin de petit coup de main car cela fait un moment que je cherche sans trouver de solution.
J'ai besoin de lancer l'actualisation d'une macro dans un fichier Excel .xlsb protégé par mot de passe en écriture.
Mon script permet de l’ouvrir sans souci mais dès que j'ajoute l'argument Password ou WriteResPassword, je me retrouve avec une erreur :
Ligne : 11
Caract. : 136
Erreur : ')' attendu
Code : 800A03EE
Source : Erreur de compliation Microsoft VBScript
Ci-dessous mon fichier .vbs :
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
Option Explicit
On Error Resume Next
LancementMacro
 
Sub LancementMacro() 
 
  Dim ApplicationExcel 
  Dim ClasseurExcel 
 
  Set ApplicationExcel = CreateObject("Excel.Application") 
  Set ClasseurExcel = ApplicationExcel.Workbooks.Open("\\chemin du fichier\fichier.xlsb", WriteResPassword:="mot de passe*")
 
  ApplicationExcel.Visible = True   'les actions seront visibles. Pour tout lancer en arrière-plan, remplacer True par False
  ApplicationExcel.Run "macro"
  ApplicationExcel.Quit 
 
  Set ClasseurExcel = Nothing 
  Set ApplicationExcel = Nothing 
 
End Sub
D'avance merci pour votre grande aide.