PHP, JavaScript, Python, C#, VB.NET, C++, etc, y compris d'autres types de langages (HTML, CSS, SQL)
-
Rag02700
- Membre fidèle

- Messages : 357
- Appréciations reçues : 7
- Inscrit le : 26 décembre 2017
- Version d'Excel : 2010
Message
par Rag02700 » 14 mars 2019, 11:35
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
- Membre impliqué

- Messages : 2'135
- Appréciations reçues : 180
- Inscrit le : 29 mai 2018
- Version d'Excel : 365 fr 32 bits
Message
par ric » 14 mars 2019, 18:15
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
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code.

-
Rag02700
- Membre fidèle

- Messages : 357
- Appréciations reçues : 7
- Inscrit le : 26 décembre 2017
- Version d'Excel : 2010
Message
par Rag02700 » 14 mars 2019, 19:55
Hello Ric,
Merci pour ta réponse.
J'ai toujours la même erreur en ajoutant password...
R@g
-
ric
- Membre impliqué

- Messages : 2'135
- Appréciations reçues : 180
- Inscrit le : 29 mai 2018
- Version d'Excel : 365 fr 32 bits
Message
par ric » 15 mars 2019, 13:45
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
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code.

-
m3ellem1
- Membre impliqué

- Messages : 1'108
- Appréciations reçues : 94
- Inscrit le : 18 décembre 2018
- Version d'Excel : 2016
Message
par m3ellem1 » 7 avril 2019, 03:08
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
- Membre impliqué

- Messages : 2'205
- Appréciations reçues : 145
- Inscrit le : 16 mai 2018
- Version d'Excel : 2003 à 2013
Message
par Xmenpl » 13 août 2019, 14:53
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
-
-
- 1 Réponses
- 677 Vues
-
Dernier message par delouest
15 janvier 2015, 09:52
-
-
- 1 Réponses
- 701 Vues
-
Dernier message par zarik
11 avril 2014, 12:55
-
-
- 1 Réponses
- 2120 Vues
-
Dernier message par Patty5046
9 février 2016, 17:37
-
-
- 4 Réponses
- 275 Vues
-
Dernier message par beabianchini
29 septembre 2016, 16:13
-
-
OUVERTURE USF (CODE SANS MOT DE PASSE)
Réponses : 1
par
chtimili » 3 novembre 2015, 10:19 » dans
Excel - VBA
bonjour a tous
sur le formulaire de recherche de plans ci joint j'ai 2 boutons 1- plans bâtiments: cliquez ici et 2-plans réseaux extérieurs : cliquez ici
en fonction de mon choix un usf s'ouvre...
- 1 Réponses
- 320 Vues
-
Dernier message par Banzai64
3 novembre 2015, 12:01
-
-
Mot de passe Fichier XLSM
Réponses : 4
par
djkev76 » 21 juin 2019, 16:29 » dans
Excel - VBA
Bonjour,
Je suis à la recherche d'un code ou macro efficace et gratuite pour sécuriser un fichier xlsm servant de base de chiffrage professionnel. Quelqu'un pourrait-il m'aider svp ?
Merci...
- 4 Réponses
- 1032 Vues
-
Dernier message par LouReeD
25 juin 2019, 19:07