Problème chargement image Macro IE

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

Grâce à l'excellent tuto de qwazerty (http://qwazerty.developpez.com/tutor...-et-vba-excel/) j'ai fait une petite macro qui permet de remplir le formulaire pour mettre une annonce sur leboncoin.
J'arrive à remplir tout les champs sans problème. Ensuite il faut mettre les 3 photos pour la 1ère aucun souci avec ce petit bout de code:
Code:

1 2 3 4 5 6 7 8 9 10 IE.document.getElementById("image0").Focus SendKeys (Chr$(32)) Sleep 400 SendKeys "^v" SendKeys "{ENTER}" Application.Wait Now + TimeValue("00:00:01") SendKeys "{ENTER}" Application.Wait Now + TimeValue("00:00:03") WaitIE IE
Puis j'ai fait la même chose pour les 2 autres et ça ne marche pas, j'ai essayer de remplacer image0 par image1 et image2 et malheureusement ça ne change rien.
En faite j'ai l'impression qu'une fois la page à charger la 1ere photo le "Set IEDoc = IE.document" ne fonctionne plus, j'ai fait des tests par exemple j'ai essayer de changer le champ titre après que la 1ère photo a était charger et effectivement ça ne marche pas alors qu'avant de mettre la 1ère photo ça marcher nickel.

C'est pour ce problème que je demande votre aide. Merci ;)

08/01/2016, 19h24
Marc-L

Bonjour !

Comme cette discussion est un doublon inutile, je dirais juste de ne pas utiliser SendKeys
car il n'en est pas question dans le tutoriel, à lire donc !

______________________________________________________________________________________________________
Je suis Paris, Charlie, …
08/01/2016, 19h33
Invité

Bonsoir,
En ce qui concerne le SendKeys, je suis d'accord pour le proscrire, mai vu que le contrôle est protégé en écriture, je vois pas mieux!
08/01/2016, 19h34
Marc-L

Dans ce cas il doit espérer qu'un bidouilleur HTML / VBA connaissant le bon coin vienne à la rescousse !

Sinon regarder du côté des évènements des éléments …
08/01/2016, 21h03
fa4it0

Le 1er sendkeys permet de faire "ok" dans la fenêtre explorateur de fichier qui s'ouvre pour choisir la photo et le 2ème permet de valider la photo sur le site.

J'ai aussi oublier de dire que quand j'étais sur windows 7 ça marchais parfaitement, j'ai ce problème depuis que je suis passer à windows 10. J'ai penser que ça pourrait venir de options internet dans l'onglet sécurité mais ça n'a rien changer :/
08/01/2016, 23h21
Marc-L

Apparemment la page est reconstruite après la validation d'une photo, donc le IEDoc serait effectivement caduque.

Il faut attendre le ReadyState de IE.Document à "complete" avant de pointer sur IE.Document.image1 …
08/01/2016, 23h41
fa4it0
J'ai fait ça après et avant chaque chargement de photo
Code:

1 2 3 4 5 6 7 8 Sub WaitIE(IE As InternetExplorer) Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop End Sub
et pour être bien sur que la page entière se charge j'ai mit un application.wait de 10sec, mais toujours le même résultat. Ça ne fait même pas d'erreur, ça fait comme si il n'y avait pas de code.
Je comprend pas sur Win7 c'était nickel
08/01/2016, 23h49
Marc-L

Celui là ce n'est pas pour la page mais pour l'ouverture primale du site ! Pourtant j'ai été clair … Voir aussi tutoriel …

Mais bon si tu as testé avec une pause de 10 secondes, à moins que l'élément suivant n'est pas bien pointé
mais ce n'est pas avec le pauvre bout de code posté que l'on peut vérifier !

Quand Patrick passera par là ou Robert de nouveau, quelqu'un jettera bien un œil …

Voici le code qui fonctionner avec win7:

Code:

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
116
117
 
                    IE.Navigate ("http://www2.leboncoin.fr/ai/form/2?ca=2_s")
                    IE.Visible = True
                    IE.Toolbar = False
                    IE.Top = 0
                    IE.Width = 850
                    IE.Left = 0
                    IE.Height = 2000
    WaitIE IE
    Set IEDoc = IE.document
    WaitDoc IEDoc
 
                    'DEPARTEMENT
                    Set reg = IEDoc.all("region")
                    reg.selectedIndex = ComboBox1.Value
 
                    'CODE POSTALE
                    Set codepostale = IEDoc.all("zipcode")
                    codepostale.Value = cp.Text
 
                    'CATEGORIE
                    Set cate = IEDoc.all("category")
                    cate.selectedIndex = categorie.Value
 
                    'TITRE
                    Set lbctitre = IEDoc.all("subject")
                    lbctitre.Value = titre.Text
 
                    'NOM
                    Set nom = IEDoc.all("name")
                    nom.Value = pseudo.Text
 
                    'EMAIL
                    Set gmail = IEDoc.all("email")
                    gmail.Value = email.Text
 
                    'TELEPHONE
                    Set phone = IEDoc.all("phone")
                    phone.Value = telephone.Text
 
                    'TEXTE D'ANNONCE
                    Set annonce = IEDoc.all("body")
                    annonce.Value = body.Text
 
                    'PRIX
                    Set oseille = IEDoc.all("price")
                    oseille.Value = prix.Text
 
                    'DEPARTEMENT
                    Set depart = IEDoc.all("dpt_code")
                    depart.selectedIndex = departement.Value
 
                    Application.Wait Now + TimeValue("00:00:01")
 
                                            'PHOTOS
                                             Sheets("Feuil1").Select
                                             [A80] = TextBox1
                                             [A81] = TextBox2
                                             [A82] = TextBox3
 
                                             '1
                                            Range("A80:A80").Copy
                                            IE.document.getElementById("image0").Focus
                                            SendKeys (Chr$(32))
                                            Sleep 400
                                            SendKeys "^v"
                                            SendKeys "{ENTER}"
                                            Application.Wait Now + TimeValue("00:00:01")
                                            SendKeys "{ENTER}"
                                            Application.Wait Now + TimeValue("00:00:03")
                                            WaitIE IE
                                            WaitDoc IEDoc
 
                                            '2
                                            Range("A81:A81").Copy
                                            IE.document.getElementById("image1").Focus
                                            SendKeys (Chr$(32))
                                            Sleep 400
                                            SendKeys "^v"
                                            SendKeys "{ENTER}"
                                            Application.Wait Now + TimeValue("00:00:01")
                                            SendKeys "{ENTER}"
                                            Application.Wait Now + TimeValue("00:00:03")
                                            WaitIE IE
                                            WaitDoc IEDoc
 
                                            '3
                                            Range("A82:A82").Copy
                                            IE.document.getElementById("image2").Focus
                                            SendKeys (Chr$(32))
                                            Sleep 400
                                            SendKeys "^v"
                                            SendKeys "{ENTER}"
                                            Application.Wait Now + TimeValue("00:00:01")
                                            SendKeys "{ENTER}"
                                            Application.Wait Now + TimeValue("00:00:03")
                                            WaitIE IE
                                            WaitDoc IEDoc
 
                                            'VALIDATION
                                            IE.document.all("validate").Focus
                                            SendKeys (Chr$(32))
                                            Application.Wait Now + TimeValue("00:00:02")
 
 
 
'MDP
Set mdp = IEDoc.all("passwd")
mdp.Value = "xxxxxxx"
 
'COCHE CASE
Set caserules = IEDoc.all("accept_rule")
caserules.setAttribute "checked", True
 
'VALIDATION FIN
IE.document.all("lbc_submit").Focus
SendKeys (Chr$(32))

Marc-L : Je suis aller voir le tutorial et je pense c'est ça pour la page :

Code:

1
2
3
4
5
6
 
Sub WaitDoc(IEDoc As HTMLDocument)
  Do While Not IEDoc.readyState = "complete"
    DoEvents
  Loop
End Sub

09/01/2016, 02h38
clementmarcotte

Bonjour,

Il s'est passé quoi depuis que le code fonctionnait sur Windows 7

Mises à jour ?
Nouvelle version de iE ?
Windows 8 ?
Windows 10 ?
Nouvelle version d'Excel ?

Peut-être que ce serait utile de le savoir, non ?
09/01/2016, 05h12
fa4it0

clementmarcotte:
J'ai installer Windows 10, c'est la même version d'excel. Le code n'a pas était modifier depuis, c'est exactement le même fichier. Après pour Internet Explorer je ne pourrais pas dire si c'est la même version que quand j'étais sur Windows 7, peut être qu'en installant windows 10 ça a changer de version pour IE.
Je viens de vérifier et j'ai la dernière version d'IE, je ne sais pas si c'était le cas lorsque j'étais sur Windows 7.
10/01/2016, 00h50
Marc-L

Avec l'obligation d'une temporisation (Wait ou Sleep), la procédure WaitDoc n'est pas utile …

De mon côté sous Seven ton code n'insère rien du tout, pas même la première photo !
Pas surprenant car j'ai déjà constaté des codes fonctionnant bien sous Seven et IE9 ne passant pas avec IE10
mais sous Windows 8 et IE10 ils ne posaient aucun souci …
Ne sachant donc pas de quelles versions auparavant et maintenant il est question …

Par contre si je tente d'insérer la première photo comme manuellement + temporisation
la première fois cela échoue mais ensuite toutes les photos sont bien chargées et sans Copier / Coller !

Si cela ne fonctionne toujours pas de ton côté, espère qu'un intervenant disposant de la même configuration
(enfin quand tu l'auras précisée ! :roll:) puisse tester …
10/01/2016, 13h16
patricktoulon

heui
"Bonjour a tous
Allons donc le boncoin qui resiste !!!!:mouarf:

pourrais ton m'expliquer le soucis car je pense peut etre avoir deja eu ce soucis et j'ai été obligé de passer par ma fonction getobjectIE dans les contributions pour repointer la fenetre IE etait caduque

et pluto qu'utiliser les sendkeys ^c et ^V essayez un peu copy tout simplement et
Code:

1 2 document.getelement.by.......(x).focus'la ou on veut coller Document.execcommand "paste", false, null 'command javascript valable pour tout les navigateur
ca change la vie hein!!!!! Robert;)
a mediter
10/01/2016, 15h49
Marc-L

Citation:

Envoyé par patricktoulon

Allons donc le boncoin qui resiste !!!!:mouarf:

N'a pas résisté avec moi et sans Copier / Coller ! Soit en full temporisation
soit en attendant la mise à jour d'un élément, il suffit juste d'un peu d'observation …

Je ne vois pas comment son code aurait pu fonctionner même sous Seven !

Bonjour,

Je suis sous Windows avec la dernière version de IE c'est à la dire IE11.

Comme je l'est déjà dit ça fonctionner parfaitement bien, aucun souci avec windows 7.

Comme la dit Marc-L c'est peut être à cause de la version de IE, j'ai donc essayer de downgrade IE11 à IE10, mais je pense que c'est impossible de désinstaller IE11, je peut juste le désactiver. Et quand j'essaye d'installer IE10, ça me dit que IE10 est déjà présent sur ce système, même chose pour IE9.

En gros le souci c'est que une fois que la 1ère photo est chargée, je ne peut plus rien faire, par exemple une fois que toute les cases sont remplies et que la 1ere photo est chargée, j'ai essayer de changer la case titre et aussi de rajouter d'autre photos mais ça ne fonctionne pas. C'est comme si le Ie.document ne fonctionner plus, mais ce que je ne comprend pas non plus c'est que ça ne fait pas d'erreur.

Et le petit code j'ai fait comme ça:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Range("A80:A80").Copy IE.document.getElementById("image0").Focus SendKeys (Chr$(32)) Sleep 400 Document.execcommand "paste", false, null SendKeys "{ENTER}" Application.Wait Now + TimeValue("00:00:01") SendKeys "{ENTER}" Application.Wait Now + TimeValue("00:00:03") WaitIE IE WaitDoc IEDoc
Mais je ne pense pas que c'est ça ,car ça ne colle pas dans la fenêtre qui s'ouvre.

10/01/2016, 16h06
Marc-L

Dans mon test, après l'ouverture de la page, j'ai directement chargé les trois photos sans tenter de modifier la case titre,
essaye dans une nouvelle procédure …
10/01/2016, 16h17
fa4it0

Même résultat, 1ère photo OK après plus rien.

J'ai aussi rajouter une tempo de 10sec après l'ouverture de la page et le chargement de la 1ère photo, histoire d'être sûr que la page est complètement chargée.
10/01/2016, 16h28
Marc-L

Je viens de voir qu'il ne faut changer les titres qu'une fois toutes les photos chargées, sinon aucun souci !
Mais comme ce n'est pas possible manuellement, je doute de l'utilité de la manœuvre et des possibles conséquences …
10/01/2016, 20h13
fa4it0

Marc-L: Est ce que c'est possible de voir le code avec lequel ta charger les photos ?

Je viens d'essayer sur le pc d'un ami qui a windows 7 avec IE9, est ça fonctionne. Donc à mon avis le problème viendrais de IE11, j'ai suivis plusieurs tutoriel pour désinstaller IE11 et installer IE8 mais aucun n'a fonctionner. Avez vous des solutions ?
10/01/2016, 20h26
patricktoulon

re

re
bon j'ai ouvert un compte pour essayer et en fait c'est le sendkeys qui s'applique mais dans l'application pas dans la boite de dialogue
alors la solution utiliser les api pour simuler les touche elles s'appliqueront sur la fenetre qui a le focus en l'occurence la boite de dialogue

windows 7 avec IE10

Voir 40 message(s) de cette discussion en une page