[VBS] Ouverture fichier excel avec mot de passe

[Rag02700]

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

[ric]

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

[Rag02700]

Hello Ric,


Merci pour ta réponse.
J'ai toujours la même erreur en ajoutant password...

R@g

[ric]

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

[m3ellem1]

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

[Xmenpl]

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