Discussion :

[francoiscrna]

Bonjour à tous,
J'ai crée une Macro qui se connectait à IE8 entrait un login et un mot de passe, remplissait les champs demandés, cliquait sur un bouton OK dans la page HTML pour telecharger le fichier correspondant puis enregistrait le fichier telechargé sous un autre nom dans un dossier. Cette Macro fonctionnait parfaitement sous IE 8 et windows XP.
Or mon système d'exploitation a été changé et du coup les fonctions SENDKEYS que j'utilisais ne fonctionnent plus.
En effet lorsque la boite de telechargement IE9 apparait en bas de l'écran j'ai l'impression qu'elle n'est pas active et elle se met à clignoter...
Je sais que la question a du être évoquée maintes fois mais la je bloque dans mes recherches
Voici mon code
Pour information je n'ai bien sur pas mis les logins et mdp de l'intranet pour des raisons évidentes
Un grand Merci

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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
Sub CMF()
 
Dim IE As Object
Dim IEDoc As HTMLDocument
Dim InputZoneTexte As HTMLInputElement
Dim InputBouton As HTMLInputElement
Dim htmlTagCol As IHTMLElementCollection
Dim htmlSelectElem As HTMLSelectElement
Dim FormCherche As HTMLFormElement
Dim divHTMLCible As HTMLDivElement
 
 
'Initialisation des variables
   Set IE = CreateObject("InternetExplorer.Application")
   'Chargement d'une page Web Google
   IE.navigate "http://62.50.134.58/intranet/exploitation/slxsm/slx_gen_report.asp?Action=Criteria&ID=841"
 
   'Affichage de la fenêtre IE
   IE.Visible = False
 
   'On attend le chargement complet de la page
   WaitIE IE
 
   'On pointe le membre Document
   Set IEDoc = IE.document
     'On va sur l'objet qui contient la liste des indices
   Set htmlSelectElem = IEDoc.all("[AIRPORT]")
 
   'On sélectionne l'indice "aer" via sa valeur unique
   htmlSelectElem.Value = "CMF"
 
 
 
 
 'On pointe le membre Document
   Set IEDoc = IE.document
     'On va sur l'objet qui contient la liste des indices
   Set htmlSelectElem = IEDoc.all("[SEASON]")
 
   'On sélectionne l'indice "season" via sa valeur unique
   htmlSelectElem.Value = "W14"
 
   'On pointe notre Zone de texte
   Set InputZoneTexte = IEDoc.all("[DATEDEB]")
 
   'On définit le texte que l'on souhaite placer à l'intérieur
 
 
 
   InputZoneTexte.Value = Range("A1").Value
 
 
   'On pointe notre Zone de texte
   Set InputZoneTexte = IEDoc.all("[DATEFIN]")
 
   'On définit le texte que l'on souhaite placer à l'intérieur
   InputZoneTexte.Value = Range("B1").Value
 
 
 
 
    For Each SubmitInput In IEDoc.getElementsByTagName("INPUT")
'on cherche le bouton de validation
If InStr(SubmitInput.getAttribute("name"), "launch") Then
SubmitInput.Click
'une fois trouve on lance un clic
Application.Wait Time + TimeSerial(0, 0, 3)
'on attend la generation du fichier
End If
Next
Application.Wait Time + TimeSerial(0, 0, 4)
 
Application.SendKeys "{TAB}"
'on passe sur le bouton enregistrer
Application.Wait Time + TimeSerial(0, 0, 1)
Application.SendKeys "{TAB}"
Application.Wait Time + TimeSerial(0, 0, 1)
Application.SendKeys "{TAB}"
Application.Wait Time + TimeSerial(0, 0, 1)
Application.SendKeys "{ENTER}"
'on valide
     Application.Wait Time + TimeSerial(0, 0, 5)
 
         Application.SendKeys "{BACKSPACE}"
            Application.SendKeys "J:\Svc_Expl\SUB_CT\FMP\Hiver 2014-2015\semaine XX\CMF"
 
        Application.Wait Time + TimeSerial(0, 0, 4)
        Application.SendKeys "{ENTER}"
 Application.Wait Time + TimeSerial(0, 0, 2)
        Application.SendKeys "{TAB}"
 
         Application.Wait Time + TimeSerial(0, 0, 3)
        Application.SendKeys "{ENTER}"
 
Application.Wait Time + TimeSerial(0, 0, 2)
        Application.SendKeys "{ENTER}"
'on valide
WaitIE IE
 
 
 
 
 
'on valide
WaitIE IE
 
 
 
 
 
  'On libère les variables
   Set IE = Nothing
   Set IEDoc = Nothing
 
End Sub

[Marc-L]

Bonjour,

dans le sous forum d'Excel Contribuez,
commencer par Automatiser l'ouverture d'un fichier compatible Excel depuis le Web (téléchargement) …

Il y a aussi dans la dll Windows Urlmon la fonction URLDownloadToFileA, à consulter sur le site MSDN …

Consulter le tutoriel VBA et développement Web …


__________________________________________________________________________________________________
Tous unis, tous Charlie

[francoiscrna]

Bonjour Marc-L
Merci pour ta réponse, j'avais effectivement vu ton tuto mais je n'arrive pas à l'adapter à ma macro...
Si tu avais le temps de voir ce qui plante ça me rendrait un bien grand service!!
En tous cas merci encore d'avoir pris le temps de jeter un œil à mon problème!!

[Marc-L]

Comment pourrais-je voir quelque chose sur le réseau privé de ton entreprise ?! Désolé …

La première étape de la contribution est née de l'observation : suffit juste de voir comment se comporte la page …

Le mieux et le plus fiable étant de ne pas piloter Internet Explorer !
Voir dans un navigateur la requête utilisée ou sinon utiliser la fonction Windows.

Sinon voir du côté de l'outil Selenium VBA devant disposer de son propre forum …

[francoiscrna]

Bonjour marc
Cela fait 3 jours maintenant que je suis sur cette page...
Mon problème est le suivant lorsque la barre de notification enregistrer ouvrir et annuler apparaît je n'arrive pas avec mes sendkeys a lancer le enregistrer sous
J'aurais juste besoin de contourner cela ou de trouver l'instruction qui me permette de controler cette boite de téléchargement
J'ai essayé avec selenium, mais le code vba que transcrit l'enregistreur ne marche pas sous excel vba
C'est donc pour ca que je te demandais de jeter un oeil juste pour savoir pourquoi je n'arrivais pas a controler cette barre de téléchargement
C'est le cas pour n'importe quel fichier que je souhaiterais télécharger de n'importe quel site
Merci pour ton aide!

[francoiscrna]

Re!
Utiliser la fonction windows
Pourrais tu detailler s'il te plaît ?
Merci