Script VBS ne se lance pas sur Windows 7

Résolu/Fermé
Apern Messages postés 16 Date d'inscription mardi 3 mars 2015 Statut Membre Dernière intervention 14 février 2017 - 12 févr. 2017 à 19:30
Apern Messages postés 16 Date d'inscription mardi 3 mars 2015 Statut Membre Dernière intervention 14 février 2017 - 14 févr. 2017 à 10:25
Bonjour,
J'ai récemment programmé un script de base VBS sous Windows 7 pour tester mais mon script ne se lance pas (clic droit "ouvrir avec Microsift Windows Based Script Host" ou "ouvrir avec l'invite de commande" ; dans ce dernier cas je vois la fenêtre CMD s'ouvrir puis disparaître très rapidement) !
...
Cordialement,
Apern
A voir également:

2 réponses

Apern Messages postés 16 Date d'inscription mardi 3 mars 2015 Statut Membre Dernière intervention 14 février 2017 17
14 févr. 2017 à 10:25
Bonjour,
Voici le code :

Option Explicit
On Error Resume Next


Sub ExempleMacroExcel()
'
' Batch de lancement de Alertes-stratégie - créeé en février 2017 - pour résoudre le problème de l'exécution des SHELL windows !
'
Dim ApplicationExcel
Dim ClasseurExcel

Set ApplicationExcel = CreateObject("Excel.Application")
Set ClasseurExcel = ApplicationExcel.Workbooks.Open("D:\GdR-Pea V1-7\PEA-V2-0\Alertes-stratégie V1-4.xlsm")

ApplicationExcel.Visible = True 'les actions seront visibles. Pour tout lancer en arrière-plan, remplacer True par False
' ApplicationExcel.Run "MacroTest1" 'va lancer la macro "MacroTest1"
' ApplicationExcel.Run "MacroTest2" 'va lancer la macro "MacroTest2"
' ApplicationExcel.Quit

' Set ClasseurExcel = Nothing
' Set ApplicationExcel = Nothing

End Sub

1
CostarSlime Messages postés 77 Date d'inscription dimanche 12 février 2017 Statut Membre Dernière intervention 6 avril 2017 9
12 févr. 2017 à 19:31
peut tu montrer le script en lui même (si pas trop long...)
merci;)
0