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 une date pour l'extraction des données :
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 Sub recherche() Dim IE As Object Dim IEDoc As Object Dim InputLogin As Object Dim InputPassword As Object Dim Inputconnexion As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "http://mrf-gc05.valles.ratp:8001/pls/intramrf/SIGA.FORM_IMVK_TYPE_MAT.show" Do Until IE.ReadyState = 4 DoEvents Loop 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 :
Et son code source est celui-ci ( suite à vos remarques merci )
Est-il possible après la macro d'ouverture de la page internet d'y intégrer la gestion des dates ?
en espérant avoir été clair, d'avance merci.
Partager