Discussion :

[jojo2909]

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.