[VBS] Ouverture fichier Excel avec mot de passe

Hello,

J'ai un fichier excel avec un mot de passe à l'ouverture.

Je veux l'ouvrir depuis un fichier .vbs qui comporte ce code :

Option Explicit

On Error Resume Next

ExempleMacroExcel

Sub ExempleMacroExcel() 

Dim ApplicationExcel 

Dim ClasseurExcel 

Set ApplicationExcel = CreateObject("Excel.Application") 

Set ClasseurExcel = ApplicationExcel.Workbooks.Open "C:\OSCAR_19\Doublons février 2019.xlsx", , "toto" 

ApplicationExcel.Visible = True   'les actions seront visibles. Pour tout lancer en arrière-plan, remplacer True par False

'ApplicationExcel.Run "MAJ_Listes" 'va lancer la macro "MacroTest1"

'ApplicationExcel.Quit 

'Set ClasseurExcel = Nothing 

'Set ApplicationExcel = Nothing 

End Sub

Cela me génère une erreur à la ligne 19, caract 53, code 800A0401, Source Erreur de compilation Microsoft VBScript.

Pouvez-vous m'aider svp ?

Merci à vous.

R@g

Bonjour,

Un essai ...

Option Explicit

'''On Error Resume Next

'''ExempleMacroExcel

Sub ExempleMacroExcel()
Dim ApplicationExcel

Set ApplicationExcel = CreateObject("Excel.Application")

Excel.Workbooks.Open "C:\OSCAR_19\Doublons février 2019.xlsx", Password:="toto"

ApplicationExcel.Visible = True   'les actions seront visibles. Pour tout lancer en arrière-plan, remplacer True par False

'ApplicationExcel.Run "MAJ_Listes" 'va lancer la macro "MacroTest1"

'ApplicationExcel.Quit

'Set ClasseurExcel = Nothing

'Set ApplicationExcel = Nothing

End Sub

ric

Hello Ric,

Merci pour ta réponse.

J'ai toujours la même erreur en ajoutant password...

R@g

Bonjour,

Je m'excuse de ne pas avoir bien lu ta demande. J'ai confondu .vbs et vba.

J'ai quand même fait des recherches et quelques tests ... sans succès.

ric

Slt Rag,

je sais pas est ce que t'as trouvé la solution ou pas, sinon essaie comme ca

Option Explicit

On Error Resume Next

ExempleMacroExcel

Sub ExempleMacroExcel() 

Dim ApplicationExcel 

Dim ClasseurExcel 

Set ApplicationExcel = CreateObject("Excel.Application") 

Set ClasseurExcel = ApplicationExcel.Workbooks.Open ("C:\OSCAR_19\Doublons février 2019.xlsx",,,,"toto") 

ApplicationExcel.Visible = True   'les actions seront visibles. Pour tout lancer en arrière-plan, remplacer True par False

'ApplicationExcel.Run "MAJ_Listes" 'va lancer la macro "MacroTest1"

'ApplicationExcel.Quit 

'Set ClasseurExcel = Nothing 

'Set ApplicationExcel = Nothing 

End Sub

BOnjour,

il ne manque pas des parenthèse sur cette ligne ?

Excel.Workbooks.Open "C:\OSCAR_19\Doublons février 2019.xlsx", Password:="toto"

Set ClasseurExcel = ApplicationExcel.Workbooks.Open ("C:\OSCAR_19\Doublons février 2019.xlsx", Password:="toto")

et les variables ce n'est pas ? :

Dim ApplicationExcel As Excel.Application

Dim ClasseurExcel  As Excel.worbook
Rechercher des sujets similaires à "vbs ouverture fichier mot passe"