Piloter une page internet a partir d'une macro qui ouvre la page en question.

jojo2909

XLDnaute Nouveau
Bonjour a toutes et à tous,

Je viens vers vous car je souhaiterais automatiser une opération assez fastidieuse et ça me ferais gagner un temps fou !

En gros j'ai déjà une macro qui m'ouvre une page sur le réseau entreprise et de là je dois indiquer des dates pour l'extraction des données :

Code:
Sub recherche()
Dim ie As Object
Dim IEDoc As Object

Set ie = CreateObject("InternetExplorer.Application")

ie.navigate "http://mrf-gc05.valles.ratp:8001/pls/intramrf/SIGA.FORM_IMVK_TYPE_MAT.show"

ie.Visible = True



End Sub

Je dois faire ça six fois car j'ai deux pages et trois types de date à rentrer :

-Mensuelle : Mois en cours exemple si je suis en Mai je demande le mois M-1 donc avril.
-Annuel : Janvier année en cours à mois M-1.
-Glissant : exemple je suis en Mai et je veux la période glissante j'entre comme date : du 01/MM+1/AAAA-1 au 31/MM/AAAA soit en clair 01/05/2013 au 31/04/2014

le champs ou je dois rentrer ces dates se présente comme ça :
page.JPG

voici le script de la page en question ( pour déterminer les variables ... ) :

Code:
<SCRIPT LANGUAGE="JavaScript">
<!-- Comment out script for old browsers
function isNull( field , fieldName) {
  selected = 0;
  fieldIsNull = 0;
  if ( field.type == "text" ||
       field.type == "password" ||
       field.type == "textarea" ) {
    if ( field.value == "" )
      fieldIsNull = 1;
  } else if ( field.type == "select-one" ) {
      if ( field.options[field.selectedIndex].value == "%null%")
        fieldIsNull = 1;
  } else if ( field.type == "select-multiple" ) {
      fieldIsNull = 1;
      for ( i = 0; i < field.length; i++ )
        if ( field.options[i].selected )
          fieldIsNull = 0;
  } else if ( field.type == "undefined" ||
              field.type == "checkbox"  ||
              field.type == "radio" ) {
      fieldIsNull = 1;
      for ( i = 0; i < field.length; i++ )
        if ( field[i].checked )
          fieldIsNull = 0;
  }
  if ( fieldIsNull ) {
      if ( isNull.arguments.length  == 1 ) 
         alert( " Value cannot be null." );
      else  
         alert( fieldName + " Value cannot be null." );
      if ( field.type == "text" ||
           field.type == "textarea"  ||
           field.type == "password"  ||
           field.type == "select-one"  ||
           field.type == "select-multiple" )
        field.focus();
     return false;
  }
  return true;
}
function findItem( f, fieldName, argName, argValue )
{
  var arg = argName;
  var arg2 = argValue;
  if ( (arg == null) || (arg == "" ) )
    arg = "p_arg_names";
  if ( (arg2 == null) || (arg2 == "") )
    arg2 = "p_arg_values";
  for(var i = 0; i < f.length - 1; i++) {
    if ( (f.elements[i].name != null) && 
         (f.elements[i].name == arg) &&
         (f.elements[i].value == fieldName) ) { 
      for(var j = i+1; j < f.length; j++) {
        if ( (f.elements[j].name == arg2) &&
             (f.elements[j].value != "ARRAYSTART") &&
             (f.elements[j].value != "ARRAYEND") )
           return (j);
      }
    }
  }
  return -1;
}
function checkAll(){
  var idx;
  return true;
}
//-->
</SCRIPT>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<table width="100%">
  <tr>
    <td width="11%" height="44" valign="middle">    
    <img src="/img_indicateur/img_web/logo_mrf.jpg"width="123" height="42" alt="logo mrf"> 
    </td>
    <td width="89%" bgcolor="#CCCCCC" valign="middle" > 
     <font color="#0000CC">
     <strong>D&eacute;partement du Mat&eacute;riel Ferroviaire
     </strong>
    </font></td>
  </tr>
</table>

<FONT SIZE="+0">
<FONT size=5><strong><CENTER>Calcul IMVK par type de matériel</CENTER></strong></FONT>
</FONT>
<FORM ACTION="SIGA.FORM_imvk_type_mat.accept" METHOD="POST"  NAME="FORM_imvk_type_mat">
<TABLE  BORDER="0">
<TR>
<TD>
<TABLE   BORDER="0">
<TR>
<TD ALIGN="RIGHT" VALIGN="TOP">
<INPUT TYPE="hidden" NAME="p_arg_names" VALUE="P_DATE_DEBUT">
<FONT COLOR="red" SIZE="+0">Date de début</FONT>
</TD>
<TD COLSPAN="1" ROWSPAN="1" ALIGN="LEFT" VALIGN="TOP">
<NOSCRIPT>
Script Java non pris en charge
</NOSCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!-- Comment out script for old browsers

function genList0_p_arg_values_0()
{
  w = open("WEBDB.wwv_ui_lovf.gen_popup_list" +
              "?p_filter="  + escape("%") +
              "&p_name=" + escape('p_arg_values') +
              "&p_element_index=" + escape('0') +
              "&p_form_index=" + escape('0') +
              "&p_max_elements=" + escape('') +
              "&p_escape_html=" + escape('') +
              "&p_eval_value=" + escape('') +
              "&p_translation=" + escape('') +
              "&p_lov=SIGA.LOV_SYSDATE_N",
              "winLov",
              "Scrollbars=1,resizable=1,width=400,height=450");
  if (w.opener == null)
    w.opener = self;
  w.focus();
}//-->
</SCRIPT><INPUT TYPE="text" NAME="p_arg_values" SIZE="10"><A HREF="javascript:genList0_p_arg_values_0()"><IMG SRC="/images/list.gif" alt="LISTE" border="0" align=bottom></A>
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT" VALIGN="TOP">
<INPUT TYPE="hidden" NAME="p_arg_names" VALUE="P_DATE_FIN">
<FONT COLOR="red" SIZE="+0">Date de fin</FONT>
</TD>
<TD COLSPAN="1" ROWSPAN="1" ALIGN="LEFT" VALIGN="TOP">
<NOSCRIPT>
Script Java non pris en charge
</NOSCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!-- Comment out script for old browsers

function genList0_p_arg_values_1()
{
  w = open("WEBDB.wwv_ui_lovf.gen_popup_list" +
              "?p_filter="  + escape("%") +
              "&p_name=" + escape('p_arg_values') +
              "&p_element_index=" + escape('1') +
              "&p_form_index=" + escape('0') +
              "&p_max_elements=" + escape('') +
              "&p_escape_html=" + escape('') +
              "&p_eval_value=" + escape('') +
              "&p_translation=" + escape('') +
              "&p_lov=SIGA.LOV_SYSDATE_N",
              "winLov",
              "Scrollbars=1,resizable=1,width=400,height=450");
  if (w.opener == null)
    w.opener = self;
  w.focus();
}//-->
</SCRIPT><INPUT TYPE="text" NAME="p_arg_values" SIZE="10"><A HREF="javascript:genList0_p_arg_values_1()"><IMG SRC="/images/list.gif" alt="LISTE" border="0" align=bottom></A>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD>
<TABLE  width="100%">
<TR>
<TD ALIGN="RIGHT">
<INPUT TYPE="submit" NAME="p_request" VALUE="Soumettre"  onClick="return checkAll()">
</TD>
<TD ALIGN="RIGHT">
<INPUT TYPE="reset" VALUE="Réinitialiser">
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</FORM>
<!----- show footer template = 24369208900 ----->

</BODY>
</HTML>
<font size=-2>Temps écoulé =            0.00 secondes.</font>

Le but et de faire évoluer cette macro et automatiser l'action de rentrer les dates, valider par le bouton soumettre.

En espérant avoir été assez clair, d'avance merci pour votre aide.
 

jojo2909

XLDnaute Nouveau
Re : Piloter une page internet a partir d'une macro qui ouvre la page en question.

Bonjour,

Voyant que je n'ai pas de réponses ... qq1 peut me dire si la question est hors sujet ou mal posée ?

Car je débute et sincèrement je n'y connais rien.. Dans tout les cas merci de vous être penché sur ma question.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG