Se connecter sur un site avec IE en VBA

Version imprimable

Bonjour, ***************Bonne ANNEE 2019 à tous ******************

J'aimerais me connecter sur un site intranet.
J'ai suivi le tuto de qwazerty
https://qwazerty.developpez.com/tuto...-et-vba-excel/

J'ai bâti ma requête mais je n'arrive pas à passer les erreurs automations.
Je suis donc revenu au début et je n'arrive même pas à faire fonctionner l'exemple du tuto

Je précise que je suis sur IE11

Si je laisse le waitIE j'ai carrément une erreur de compilation sub ou fonction non définie.

Si je le commente je passe mais bloque sur

Code:

Set IEDoc = IE.document.

Citation:

Erreur d'exécution '-2147417878 (80010108)':
Erreur automation

J'ai trouvé un post avec ce code mais dans un autre contexte.
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 Sub RechercheVBAExcel() 'Déclaration des variables Dim IE As New InternetExplorer Dim IEDoc As HTMLDocument Dim InputGoogleZoneTexte As HTMLInputElement Dim InputGoogleBouton As HTMLInputElement 'Chargement d'une page Web Google IE.navigate "www.google.fr" 'Affichage de la fenêtre IE IE.Visible = True 'On attend le chargement complet de la page ' WaitIE IE 'On pointe le membre Document Set IEDoc = IE.document 'On pointe notre Zone de texte Set InputGoogleZoneTexte = IEDoc.all("q") 'On définit le texte que l'on souhaite placer à l'intérieur InputGoogleZoneTexte.Value = "VBA Excel" 'On attend la fin de la recherche ' WaitIE IE 'On libère les variables Set IE = Nothing Set IEDoc = Nothing End Sub
J'ai testé quelques sujets mais j'ai le même souci
J'ai vérifié les librairy bien que perso je n'aime pas les activer car le code doit être utilisable partout.
https://www.developpez.net/forums/d1...n-ie-document/
https://www.developpez.net/forums/d1...05-automation/

Bref je tourne en rond !

Une idée un conseil ?
Merci
Denis

Bonsoir,

Laisse WaitIE en l'état.

tu as oublié :

Code:

1
2
3
4
5
6
Sub WaitIE(IE As InternetExplorer)
   'On boucle tant que la page n'est pas totalement chargée
   Do Until IE.ReadyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub

Curt

04/01/2019, 20h32
Denis_67

Tu as raison Curt,

Je n'avais pas réalisé que waitIE n'était pas une commande :oops:

Je l'ai donc ajouté, mais il me renvoie toujours une erreur automation sur

Code:

Do Until IE.ReadyState = READYSTATE_COMPLETE

cette fois c'est -2147023179 (800706b5)':

en plus ce code utilise des librairies
je préfèrerais un solution sans.

Merci
Denis
04/01/2019, 21h33
curt

Tu n'aurais pas oublié d'enlevé l'apostrophe du WaitIE ?
Chez moi ça fonctionne.

Pour ce qui est de la non-utilisation des librairies, regardes du côté du EARLY et LATE BINDING. Tu sais faire ?

Curt

salut
en late binding dans un object anonyme et sans variable
pas de refrences a activer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub RechercheVBAExcel()
 
    With CreateObject("internetexplorer.application")    'creationde l'object internet explorer
        .navigate "www.google.fr"    'Chargement d'une page Web Google
        .Visible = True    'Affichage de la fenêtre IE
         Do: DoEvents: Loop While .readystate <> 4    'On attend le chargement complet de la page
 
        'On pointe notre Zone de texte
        .document.all("q").Value = "VBA EXCEL"
        'appuie sur la touche enter
        With CreateObject("wscript.shell"): .SendKeys "{enter}": End With
        Do: DoEvents: Loop While InStr(.Locationurl, "search") = 0 Or .busy  'gestion de l'attente de redirection url
        With .document
            'annalyse de ta page ici
            '...
            '.....
        End With
 
    End With
End Sub

MAIS ENTRE NOUS c'est tellement plus simple d'incure la recherche dans l'url surtout avec google

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub RechercheVBAExcel()
 
    With CreateObject("internetexplorer.application")    'creationde l'object internet explorer
        .navigate "https://www.google.fr/search?&q=VBA EXCEL"    'Chargement d'une page Web Google
        .Visible = True    'Affichage de la fenêtre IE
          Do: DoEvents: Loop While .readystate <> 4 Or .busy   'On attend le chargement complet de la page
 
        With .document
            'annalyse de ta page ici
            '...
            '.....
        End With
 
    End With
End Sub

;)

05/01/2019, 11h28
Denis_67

Merci Curt et merci Patrick

Bon je progresse... grâce à vous !

Le code N1 de Patrick il faut que je fasse "entrée" pour valider la requête
puis j'arrive sur la page de redirection,

Citation:

Cliquez ici si, d'ici quelques secondes, vous n'avez pas été redirigé.

je clique ici et ça fonctionne.

Dans le code 2 j'ai directement la page de redirection et je clique ici et ça fonctionne.

Citation:

Cliquez ici si, d'ici quelques secondes, vous n'avez pas été redirigé.

Là je viens de tester sur mon environnement personnel, je vais transposer cela dans mon appli professionnelle tout à l'heure.

Vous tiens au courant
encore merci
Denis
05/01/2019, 21h52
curt

Bonsoir Denis_67,

le code N°1 que t'a transmis Patrick (:ccool: ) est parfaitement fonctionnel.
Inutile de faire "ENTREE" pour valider

Code:

.SendKeys "{enter}":

est là pour ça.

Curt
06/01/2019, 06h47
patricktoulon

re

Bonjour Curt et bonne année a toi

comme je l'ai dis c'est tellement plus simple d'intégrer la recherche dans l'url ca te dispense du sendkeys
j'aurais du mal a comprendre pourquoi denis_67 ne choisirais pas cette version (la 2d)

peut etre et encore une fois avec 2016 ca se gere différement pour le wscriptshell.sendkeys
je teste meme plus 2016 tellement des trucs bizarres se produisent
06/01/2019, 20h06
Denis_67

Merci Crut et Patrick.

donc bon alors

Sur Win10 + Offfice 2016 IE11

La requete de la solution 2 de Patrick fonctionne partiellement
LA page s'ouvre la requete Google est faite et la réponse s'affcihe sur IE
Par contre dans le VBA j'ai ensuite une erreur d'exécution -2147467259 (80004005)
La méhode 'Busy' de l'objet'IwebBrowser 2' a echoué.

Comme je l'ai dit je ne veux pas faire un query google, c'est pour apprendre.
Donc j'ai mis l'adresse de mon site intranet sur lequel je souhaite naviguer.
cela fonctionne de la même manière la page s'affiche, mais le VBA me renvoie l'erreur sur le Busy.

Denis
06/01/2019, 20h58
patricktoulon

re

re
supprime le "or .busy"
07/01/2019, 09h18
Denis_67

1 pièce(s) jointe(s)

Merci Patrick,

Si le busy est effecitvement pas reconnu, j'ai quand même un encore une erreur.
Le site s'ouvre mais ça ne vas pas plus loin il bloque qur le do events.

Pièce jointe 439265
07/01/2019, 10h31
patricktoulon

re

Bonjour
ah!! tu a donc une erreur bien avant la manipulation des le navigate
tu est peut etre en face de la protection antirobots(VBA et autre) il va te faloir astucer
effectivement aussi avec IE11 tant qu'une session n'est pas completement fermée tu a droit a ce message d'erreur de temps en temps
essaie de faire un taskkill avant pour voir tu devrait trouver ca facilement tu a des exemples partout
si meme avec une seule session de ie , tu a toujours ce probleme et des le navigate ou doevents ca veut dire que la protection est costaud et la ben..... byebye,au revoir,adios,Walouih!!.......
07/01/2019, 11h05
Denis_67

Merci Patrick,

J'ai l'impression que c'est mort !

Bon j'ai fermé toutes les instances IE (gestionnaire de taches)
Si je lance la connexion vers google ça marche, et pas d'erreur.

Si je lance vers mon application intranet après avoir supprimé les taches ça bloque.

donc effectivement il doit y avoir une protection.

MERCI pour m'avoir aidé à faire le bilan avant de me lancer dans des développements hasardeux !

Donc je laisse tomber le sujet; je pose résolu puisque la soultion est fonctionnelle par rapport à la question du début.
bonne journée
Denis