Script VBS ne se lance pas sur Windows 7

Résolu
Apern Messages postés 17 Statut Membre -  
Apern Messages postés 17 Statut Membre -
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

2 réponses

  1.
    Apern Messages postés 17 Statut Membre 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
  2. CostarSlime Messages postés 96 Statut Membre 9
     
    peut tu montrer le script en lui même (si pas trop long...)
    merci;)
    0