ActiveX VBA Résolu

Question

Bonjour,

J'ai cr&#233;&#233; un prog en VBA excel, et je le lance &#224; partir d'une page web grace &#224; un active X....

Qqun sait comment faire pour, si le mec clique deux fois sur le lien, l'application ne se lance pas deux fois ? 

Code pr lancer mon activeX (lance une macro vba) :

function outnow()
{
var ExcelApp = new ActiveXObject("Excel.Application");
ExcelApp.Application.Visible = false;
ExcelApp.Workbooks.Open("http://site/rubriques/today/outagetoday.xls");
ExcelApp.run("lancoutnow");
location.href='admin.html';
}

Merci d'avance

jrivet · Accepted Answer

Salut,

Juste une id&#233;e au passage.

Tu peux peu &#234;tre passer par un boolean Static du style

(Pas tester)

function outnow()
{
Static Flag as Boolean 'OU equivalent
If Not Flag THEN 'OU equivalent
      var ExcelApp = new ActiveXObject("Excel.Application");
      ExcelApp.Application.Visible = false;
      ExcelApp.Workbooks.Open("http://site/rubriques/today/outagetoday.xls");
      ExcelApp.run("lancoutnow");
      location.href='admin.html';
      Flag = True
END IF 'OU equivalent
}

Le seul Hic c est quand remettre le Flag a false....
@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_revolt · Answer

C'est une bonne id&#233;e, je vais essayer de l'exploiter, merci !!
Je te tiendrai au courant ;)

cs_revolt · Answer

Voil&#224;, c'&#233;tait du javascript, donc j'ai tapp&#233; le code suivant (merci bul) :

var deja=false;


function outperiod()
{
 if (!deja) 
 {
  deja=true;
  var ExcelApp = new ActiveXObject("Excel.Application");
  ExcelApp.Application.Visible = false;
  ExcelApp.Workbooks.Open("http://dsi.nestle.fr/GlobeDoc/GESTION%20PROJET/Integration%20Mngt/Outage%20Management/WeeklyPlannedOutages/Tools/site/rubriques/period/outperiod.xls");
  ExcelApp.run("lancperiod");
 }
 else
 {
 alert("Application d&#233;j&#224; lanc&#233;e!!");
 }
}

Merci beaucoup pour ton id&#233;e jrivet !! :)

jrivet · Answer

Salut,

Content d'avoir pu t'aider 

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

ActiveX VBA

4 réponses

Discussions similaires