Sujet Précédent Sujet Suivant

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

Réponse 1 / 2
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
Réponse 2 / 2
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