Bonjour à tous !

Bon voilà mon titre n'est pas le plus explicite mais j'ai de belles images pour vous !

Je suis entrain de réaliser un code VBA qui à pour objectif de :

- aller sur un site du reseau local OK
- Renseigner différents champs selon des valeurs et cocher un combobox Ok
- effectuer une recherche pour sortir un rapport en actionnant un bouton Ok
- enregistrer ce rapport sous forme de claseur excel comme proposé par la site - Pas Ok...

Le code :

Code vb : 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
Sub PremierIE()
'Déclaration des variables
Dim IE As Object
Dim IEDoc As HTMLDocument
Dim InputZoneTexte1 As HTMLInputElement
Dim InputafficherBouton As HTMLInputElement
Dim CaseDirect As HTMLInputElement
Dim Generic As HTMLGenericElement
Dim iCollection As IHTMLElementCollection
 
 
 
 
   'Initialisation des variables
   Set IE = CreateObject("InternetExplorer.Application")
 
   'Suite du code
 
 
    'Chargement d'une page web Google
   IE.Navigate "adresse du site en local"
 
 
   'Affichage de la fenêtre IE
   IE.Visible = True
 
      'On attend le chargement complet de la page
   Call wait
 
'On pointe le membre Document
   Set IEDoc = IE.document
 
   'On pointe notre Zone de texte 1
   Set InputZoneTexte1 = IEDoc.all("ReportViewerControl$ctl04$ctl03$txtValue")
 
   'On définit le texte que l'on souhaite placer à l'intérieur
   InputZoneTexte1.Value = "03/06/2014 06:00:00"
 
 
   'On pointe notre Zone de texte 2
   Set InputZoneTexte1 = IEDoc.all("ReportViewerControl$ctl04$ctl05$txtValue")
 
   'On définit le texte que l'on souhaite placer à l'intérieur
   InputZoneTexte1.Value = "04/06/2014 11:00:00"
 
'On pointe la case à cocher
   Set CaseDirect = IEDoc.all("ReportViewerControl_ctl04_ctl07_divDropDown_ctl01")
 
   'On simule un clic sur la case à cocher
   CaseDirect.Click
 
   'On attend la fin de la recherche
 Call wait
 
 
'On pointe notre bouton
Set InputrechercheBouton = IEDoc.all("ReportViewerControl$ctl04$ctl00")
 
'On simule un clic
InputrechercheBouton.Click
 
'On attend la fin de la recherche
Call wait
 
'[...] Suite du code
 
 
   'On libère les variables
 
   Set IEDoc = Nothing
 
 
 
 
 
 
   Set IE = Nothing
 
 
End Sub
 
Sub wait()
Pausetime = 3
Start = Timer
Do While Timer < Start + Pausetime
DoEvents
Loop
End Sub


donc voici la page une fois l'adresse chargée :



Donc vous pouvez voir les champs de texte, la combobox en dessous et à droite le bouton de recherche.

Aucun problème pour les repérer via l'outil dev d'internet

voilà ce que l'on obtient une fois chargé :



en rouge le bouton pour enregistrer avec la liste déroulante de choix.

Pas vraiment de problème à l'exception que l'outil pointeur (pour voir le code HTLM de chaque élément) ne fonctionne pas...

Donc je suis embêté car mon code est bien parti mais comme j'y connais rien en HTML et que c'est déjà pas la joie en VBA...

Si quelqu'un à une idée !

Bonne journée.