IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Pilotage Internet et valeur de script java


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre expérimenté Avatar de CODYCO
    Homme Profil pro
    Webplanneur
    Inscrit en
    Avril 2009
    Messages
    217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Webplanneur
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 217
    Par défaut Pilotage Internet et valeur de script java
    Bonjour

    J'utilise un code pour me connecter à Internet, je récupere les éléments des pages pour naviguer. Mais sur la 3eme page je rencontre un probleme puisque les éléments de navigation (menu) sont générer par un script et je ne parviens pas à pointer le bonne élément.

    J'utilise ce code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    For Each oHTML_Element In HTMLDoc.Scripts '.getElementById("buttonsRowFiller")
            If oHTML_Element.getAttribute("Item") = "SCRIPT" Then oHTML_Element.Click: Exit For
        Next
    Apparement il y a deux script sur le document mais je n'arrive pas à les selectionner, le script ensuite génére une série de bouton dont voici le code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
     
    function addButtons(){
    	var buttonsRow = document.getElementById('buttonsRowFiller');
    			var spacingTD = document.createElement("td");
    		spacingTD.style.width="24px";
     
    		var seperatingTD = document.createElement("td");
    		seperatingTD.style.width="1px";
    		seperatingTD.style.height = "30px";
    		seperatingTD.style.background = "url(images/theme_BB/trait-b-NewSam.gif)";
    		//seperatingTD.style.backgroundRepeat = "repeat-y";
     
    		var seperatingImg = document.createElement("img");
    		seperatingImg.style.width="1px";
    		seperatingImg.style.height = "30px";
    		seperatingImg.style.border = "0";
    		seperatingImg.src = "images/imgBlanc.gif";
     
    		var buttonTD = document.createElement("td");
    		buttonTD.style.textAlign="center";
    		buttonTD.style.className="txtblanc";
    		buttonTD.style.verticalAlign = "middle";
     
    		var buttonImg = document.createElement("img");
    		buttonImg.style.width="2px";
    		buttonImg.style.height="1px";
    		buttonImg.style.border="0";
    		buttonImg.src = "images/imgBlanc.gif";
     
    		var buttonA = document.createElement("a");
    		buttonA.href="#";
     
     
    		bts  = dad.bts;
    				if (typeof(bts) != 'undefined'){
     
    				if (true) {
    					for(i=0; i<(bts.length); i++) {
    						if (bts[i].nom != 'BtSpacer' && bts[i].nom != "")
    						{
    							curSpacingTd = spacingTD.cloneNode(true);
    							curSpacingTd.id = "lspace-"+bts[i].nom;
    							buttonsRow.appendChild(curSpacingTd);
     
    							curBtnTextNode = document.createTextNode(bts[i].nom);
    							curBtnA = buttonA.cloneNode(true);
    							curBtnA.id = bts[i].nom;
    							curBtnA.onclick=function(){loadUrls(this.id);maclasse(this);};
    							curBtnImg = buttonImg.cloneNode(true);
    							curBtnImg.name=bts[i].nom;
    							curBtnTd = buttonTD.cloneNode(true);
     
    							if (window.top.dflPage == bts[i].nom) {
    								curBtnImg.style.width="2px";
    								curBtnA.className ="mnhLienac";
    							}
    							else {
    								curBtnA.className ="mnhLien";
    							}
    							curBtnA.appendChild(curBtnTextNode);
    							curBtnTd.appendChild(curBtnImg);
    							curBtnTd.appendChild(curBtnA);
    							buttonsRow.appendChild(curBtnTd);
     
    							curSpacingTd = spacingTD.cloneNode(true);
    							curSpacingTd.id = "rspace-"+bts[i].nom;
    							buttonsRow.appendChild(curSpacingTd);
     
    							if (i<bts.length-1 && !(i==bts.length-2 && (bts[i+1].nom == 'BtSpacer' || bts[i+1].nom == ""))){
     
    								curSepTd = seperatingTD.cloneNode(true);
    								curSepTd.id = "sep-"+bts[i].nom;
    								buttonsRow.appendChild(curSepTd);
    							}
    						}
    						else
    						{
    							curSepImg = seperatingImg.cloneNode(true);
    							curSepImg.name=bts[i].nom;
    							buttonsRow.appendChild(curSepImg);
    						}
    					}
    				}
    							//}
    		}
    		addSommaireButton(buttonsRow);
     
     
    }

  2. #2
    Membre expérimenté Avatar de CODYCO
    Homme Profil pro
    Webplanneur
    Inscrit en
    Avril 2009
    Messages
    217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Webplanneur
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 217
    Par défaut
    Me permet de relancer sujet car aucune solution en vue, avec espion ne vois pas quel éléments capturer, les valeur du script de la page html sont elles seulements interpréter et récuprer par vba?

  3. #3
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 122
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 122
    Par défaut
    SAlut
    Peux tu mettre, le lien du site sur lequel tu travailles?

    Par rapport au infos supplémentaire que tu m'as donné, effectivement j'utiliserais la function LoadUrl, pour ce qui est du paramètre il faut que tu récupères les différents ID des menus, je regarderais mieux demain soir.
    Regarde du coté de la variable bts, elle semble contenir l'ensemble des id des boutons du menu.

    Bonne nuit
    ++
    Qwaz

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

  4. #4
    Membre expérimenté Avatar de CODYCO
    Homme Profil pro
    Webplanneur
    Inscrit en
    Avril 2009
    Messages
    217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Webplanneur
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 217
    Par défaut pieces
    suite au mp
    Fichiers attachés Fichiers attachés

  5. #5
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 122
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 122
    Par défaut
    Salut

    Dans le code de AddBouton(), tu peux voir qu'il ajoute les boutons en question sous l'élément dont l'id est buttonsRowFiller. Si tu fais une recherche sur le code source de la page, tu retrouves cet élément (voir screenshot joint).
    Donc je suppose que tu peux retrouver les infos sur les éléments composant le menu en regardant à la suite (ici la page étant sortie de son contexte, je ne peux pas voir la construction du menu).
    Par la suite il faut utiliser l'id du bouton sur lequel tu souhaites agir, soit en pointant le bouton en question soit en utilisant son id comme paramètre à la fonction LoadURL() que tu peux appeler directement, voir pour cela ce tutoriel et plus particulièrement ce chapitre.

    Bonne journée
    Qwaz
    Images attachées Images attachées  

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

  6. #6
    Membre expérimenté Avatar de CODYCO
    Homme Profil pro
    Webplanneur
    Inscrit en
    Avril 2009
    Messages
    217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Webplanneur
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 217
    Par défaut Au secours
    Merci pour ces éléments de réponse j'ai essayer avec le tuto et les indications que tu me donne mais deja je ne trouve pas le meme code source que toi (screen), le <tbody> contenant le <tr id=buttonsRowfiller"> n'apparait pas, je ne parviens pas a ecrire mon code pour récuperer ces éléments.

    En enregistrant la page j'ai obtenu ceci...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
     
    <title>[ - Portail SamFM - ]</title>
    <script language="JavaScript" src="js/functions.js"></script>
    <script language="JavaScript">
    ope       = "GSTDI";
    lstPopups = new Array();
    var amont = "";
     
    //ID 08/05/07 : modification pour gérer les boutons sur l'aide en ligne
    var opeBtn = '';
    function bouton(nom, urlMenu, urlCorps, urlOutils, key) {
    	this.nom       = nom;
    	this.urlMenu   = urlMenu;
    	this.urlCorps  = urlCorps;
    	this.urlOutils = urlOutils;
    	this.key	 = key;
    }
     
    function init(){}
     
    bt1 = new bouton("Nouvelle intervention","ope_GSTDI/menu/menuDI.php?SAMSESSID=eerd3pq11mllaa6lc4lg1vchf6&sel_module=DI", "ope_GSTDI/demandeIntervention.php?SAMSESSID=eerd3pq11mllaa6lc4lg1vchf6&sel_module=DI&action=ajout","","1");
    bt2 = new bouton("Liste des interventions","", "ope_GSTDI/listeInterventions.php?SAMSESSID=eerd3pq11mllaa6lc4lg1vchf6&sel_module=DI","","2");
    bt3 = new bouton("Planning","", "ope_GSTDI/planning2.php?SAMSESSID=eerd3pq11mllaa6lc4lg1vchf6","","3");
    bt4 = new bouton("Gestion des*ressources","ope_GSTDI/menu/menuGR.php?SAMSESSID=eerd3pq11mllaa6lc4lg1vchf6&sel_module=GR", "ope_GSTDATA/vide.php?","","4");
    bt5 = new bouton("Organisation*des interventions","ope_GSTDI/menu/menuOrgInter.php?SAMSESSID=eerd3pq11mllaa6lc4lg1vchf6&sel_module=ORGINTER", "ope_GSTDATA/vide.php?","","5");
    bt6 = new bouton("","", "ope_GSTDI/vide.php?SAMSESSID=eerd3pq11mllaa6lc4lg1vchf6","","6");
    bts = new Array(bt1,bt2,bt3,bt4,bt5,bt6);
    dflPage = "";
     
    </script>
     
    <frameset rows="75,*" framespacing="0" border="0" frameborder="0" onload="init()" onunLoad="closePopups();">
    	<frame name="titre" scrolling="no" marginwidth="0" marginheight="0" noresize src="menuTop.php?amont=&ope=GSTDI&SAMSESSID=eerd3pq11mllaa6lc4lg1vchf6">
    	<frameset cols="206,*" framespacing="0" border="0" frameborder="0" id="framemenu">
    		<frame name="menu" id="menu" scrolling="auto" marginwidth="2" marginheight="0" src="commun/menuVide.php?SAMSESSID=eerd3pq11mllaa6lc4lg1vchf6">
    		<frame name="corps" id="corps" scrolling="auto" marginwidth="0" marginheight="0" src="commun/vide.php?SAMSESSID=eerd3pq11mllaa6lc4lg1vchf6">
    	</frameset>
    <frame src="UntitledFrame-3"></frameset>
    <noframes>
    	<body>
    		Download a new Internet Navigator
    	</body>
    </noframes>
    On vois bien la construction et l'attribution des boutons (dans mon cas le bt2).
    On vois également l'attribution du complément du lien...

    Je suis largué

Discussions similaires

  1. [PHP/JavaScript] Variable php dans script Java
    Par Flushovsky dans le forum Langage
    Réponses: 2
    Dernier message: 27/06/2006, 19h51
  2. Besoin de quelques conseils pour un script java
    Par poussin544 dans le forum Général JavaScript
    Réponses: 7
    Dernier message: 02/03/2006, 10h41
  3. Script Java appelé dans Xsl sans résultats
    Par metallic dans le forum XSL/XSLT/XPATH
    Réponses: 7
    Dernier message: 03/08/2005, 15h39
  4. [jsp] addition entre deux valeurs recupérées en Java
    Par LESOLEIL dans le forum Servlets/JSP
    Réponses: 3
    Dernier message: 07/06/2005, 13h19
  5. [OLE] Pilotage internet explorer
    Par yaclo dans le forum MFC
    Réponses: 4
    Dernier message: 22/03/2005, 20h03

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo