Script VBS ne se lance pas sur Windows 7

Résolu
Apern Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -  
Apern Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   17
 
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   Statut Membre Dernière intervention   9
 
peut tu montrer le script en lui même (si pas trop long...)
merci;)
0