Discussion :

[surmatoile]

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.

[omen999]

bonjour,

vbscript ne supporte pas les arguments nommés mais aussi les facultatifs à la différence du vba
voir la syntaxe de la fonction open
donc j'écrirais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set ClasseurExcel  = ApplicationExcel.Workbooks.Open("\\chemin du fichier\fichier.xlsb",,,, "lemotdepasse",,,,,,,,,,)

attention à bien respecter le nombre de virgules...

[surmatoile]

J'ai recopié votre ligne de correction et modifier le chemin, le nom du fichier et mot de passe (entre ""), malheureusement j'ai toujours la même erreur.
Si vous avez une idée pour me sortir de cette galère, merci encore.

[l_autodidacte]

Dans le code proposé, il faut supprimer toutes les virgules après "lemotdepasse"

[surmatoile]

ça marche, merci enfin !!!
Tip, top, vous avez assuré !
Pour info, dans mon exemple il faut 5 virgules avant le mot de passe (...,,,,, "*mot de passe*").
Bonne journée.

[surmatoile]

Une dernière petite question, lorsque j'ai 2 ou plusieurs macros à actualiser dans des fichiers protégés. Est-ce que le code suivant vous paraît juste car j'ai à nouveau une erreur :

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
21
22
23
24
25
26
27
28
29
30
Option Explicit
On Error Resume Next
LancementMacrosExcel
 
Sub LancementMacrosExcel() 
 
  Dim ApplicationExcel 
  Dim ClasseurExcel 
 
  Set ApplicationExcel = CreateObject("Excel.Application") 
 
'Ouverture du 1er fichier Excel + lancement de sa macro 
  Set ClasseurExcel = ApplicationExcel.Workbooks.Open("\\chemin_fichier_1\fichier_1.xlsb",,,,, "mot_de_pass*")
  ApplicationExcel.Visible = False
  ApplicationExcel.Run "macro"
  ClasseurExcel.Close  'Fermeture du 1er fichier
 
'Ouverture du 2ème fichier Excel + lancement de sa macro 
  Set ClasseurExcel = ApplicationExcel.Workbooks.Open("\\chemin_fichier_2\fichier_2.xlsb",,,,, "mot_de_pass*")
  ApplicationExcel.Visible = False
  ApplicationExcel.Run "macro"
  ClasseurExcel.Close  'Fermeture du 2ème fichier
 
   'Fermeture d'Excel
  ApplicationExcel.Quit
 
  Set ClasseurExcel = Nothing 
  Set ApplicationExcel = Nothing 
 
End Sub

Merci encore pour votre aide !

[surmatoile]

Bonjour à tous,

J'ai besoin de votre aide une nouvelle fois, comment lancer plusieurs macros (depuis vbscript) dans plusieurs fichiers Excel protégés (comme dans mon exemple ci-dessus).

Merci pour votre aide.