Insérer du JavaScript dans VBA

Bonjour

Regarde ici

http://www.vbaexpress.com/forum/showthread.php?9690-Solved-call-a-javascript-function

Oki donc je doit utiliser sa IE.document.all.Item
Call IE.document.parentWindow.execScript("buttonMovimenti()", "JavaScript") mais ou je rentre le script ?

tu as creer un code vb qui ouvre internet ?
si oui dis ns ce que tu souhaites faire

J'ai mis un Web Browsers , le Web Browsers va sur une page et je voudrais qu'il exécute le script que j'ai sur la page ou il va .

Merci de votre compréhension

Je ne sais pas si cela est possible via un web brow mais je sais que cela est possible en pilotant internet explorer en vba

Re

ah si je viens de faire des test et ca marche :

Voici mon code de test :

Me.NavigateurWeb0.Object.Navigate "https://www.facebook.com/"

Me.NavigateurWeb0.Object.Document.parentwindow.execScript "NomDeLaFonction()", "JavaScript"

Oki merci NomdeLafonction faut que je mettre mon script ? t'est sur que ce bout de code ca marche pour visual basic 2010 ?

Nom de la fonction c le nom de la fonction javascript de ta page web

ce code fonctionne pour du vba je cite ton titre :
-inserer-du-javascript-dans-vba

je n'est pas tester sous vbnet mais ca doit marcher

Oki car ca aurait etre pour visual basic express je n'avais pas précise merci je vais essayer

Car ca serait aller sur facebook sur l'application Is Cool et qu'il cliquerait sur sur les points avec mon script

Et si tu essayais ca com lien :
http://www.facebook.com/...

??????

Il me faudrai un code pour rentrer mon javascript et qu'il puisse l'executer en même temps

Bah je te l'ai donné le code

Ca ne marche pas

K tu écris comme code ?

Me.NavigateurWeb0.Object.Document.parentwindow.execScript "/** Generates click (mouse)Events. */
function doClickThisButton( target_button){
var event_click=document.createEvent( "MouseEvents");
event_click.initMouseEvent(
"click", true, true, window,
1, 0, 0, 0, 0,
false, false, false, false, 0, null);
target_button.dispatchEvent( event_click);
}

/** Checks Send/Receive buttons are availables ??? */
if(( document.getElementById( "selectall_send_cbx")==null) || (document.getElementById( "selectall_receive_cbx")==null))
chrome.tabs.getCurrent( function( tab){ chrome.tabs.update( tab.id, { url:String( tab.url)}); });

var coolPoints=0;
var gradeName="Kiwi Petit Bolide";
var countImage=0;
var albumImage=0;

/** Extracts Player settings */
var scripts=document.getElementsByTagName( "script");
for( var i=0; i!=scripts.length; i++){
if( scripts[ i].src==""){ // IC.settings.hud = // IC.i18n.hud
var scriptContent=scripts[ i].innerText;
var startKey="IC.settings.hud =";
var endKey="IC.i18n = IC.i18n || {};"; // "IC.i18n.hud";
var settingsPos=scriptContent.indexOf( startKey);
var settingsEnd=scriptContent.indexOf( endKey);
if(( settingsPos!=-1) && ( settingsEnd!=-1)){
scriptContent=scriptContent.substring( settingsPos+ startKey.length, settingsEnd);
scriptContent=scriptContent.substring( 0, scriptContent.lastIndexOf( ";"));
var iscoolSettings=JSON.parse( scriptContent);
coolPoints=iscoolSettings.players[ 0].score;
gradeName=iscoolSettings.players[ 0].gradeName;
countImage=iscoolSettings.players[ 0].countImage- iscoolSettings.players[ 0].albumCountUniqueImage;
albumImage=Math.round(( 100* iscoolSettings.players[ 0].albumCountUniqueImage) / iscoolSettings.players[ 0].albumMax);
break;
}
}
}

/** UserData */
function SendReceiveLoad(){

this.coolPoints=coolPoints;
this.gradeName=gradeName;
this.countImage=countImage;
this.albumImage=albumImage;
this.send=document.getElementById( "column-send").getElementsByTagName( "input").length;
this.receive=document.getElementById( "column-receive").getElementsByTagName( "input").length;
}

function SendReceiveSubmit(){
this.sent=0;
this.received=0;
}
/***/

try{

/***/
chrome.extension.onRequest.addListener(
function( request, sender, sendResponse){

var send_receive_submit=new SendReceiveSubmit();
send_receive_submit.sent=document.getElementById( "column-send").getElementsByTagName( "input").length;
send_receive_submit.received=document.getElementById( "column-receive").getElementsByTagName( "input").length;
sendResponse( JSON.stringify( send_receive_submit));

doClickThisButton( document.getElementById( "send-receive-button").getElementsByTagName( "a")[ 0]);
});

/***/
var send_receive_load=new SendReceiveLoad();
chrome.extension.sendRequest( JSON.stringify( send_receive_load), function( response){
var res=JSON.parse( response);
if( res.onOff){
doClickThisButton( document.getElementById( "selectall_receive_cbx"));
doClickThisButton( document.getElementById( "selectall_send_cbx"));
}
});

} catch( e){

chrome.tabs.getCurrent( function( tab){ chrome.tabs.update( tab.id, { url:String( tab.url)}); });
}()", "JavaScript"

Pourquoi ne pas laisser ton script seulement sur la page web ?

Mais le navigateur doit aller sur une page et executer ce script

Tu as bien l'adresse du site dans la source controle du webcomponent ?

Quel est le message quand tu executes le code ?

Non