Ouvrir fichier Excel (protégé en écriture par mdp) via VBS

Version imprimable

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 :

Citation:

Ligne : 11
Caract. : 136
Erreur : ')' attendu
Code : 800A03EE
Source : Erreur de compliation Microsoft VBScript

Ci-dessous mon fichier .vbs :
Code:

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.

21/11/2019, 18h39
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:

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

attention à bien respecter le nombre de virgules...
22/11/2019, 09h01
surmatoile

1 pièce(s) jointe(s)

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.
Pièce jointe 519021
22/11/2019, 09h48
l_autodidacte

Dans le code proposé, il faut supprimer toutes les virgules après "lemotdepasse"
22/11/2019, 09h54
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.

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:

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 !

03/12/2019, 10h28
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.