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 : Sélectionner tout - Visualiser dans une fenêtre à part
Set IEDoc = IE.document.
Erreur d'exécution '-2147417878 (80010108)':
Erreur automation
J'ai trouvé un post avec ce code mais dans un autre contexte.


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
 
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