IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Connexion VBA Google


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Consultant en Business Intelligence
    Inscrit en
    Août 2015
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Consultant en Business Intelligence

    Informations forums :
    Inscription : Août 2015
    Messages : 14
    Par défaut Connexion VBA Google
    Bonjour, j'ai rigoureusement suivi un tutoriel qui explique comment lancer une recherche Google depuis Excel. Seul probleme, cela ne fonctionne pas sur mon pc.

    Voici le code, lorsque je le lance, le programme bugg au niveau du texte en rouge dans le programme ci-dessous. "Le message d'erreur est le suivant, erreur automation L'objet invoqué s'est déconnecté de ses clients".

    Si vous pouviez m'aider ce serait génial.

    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
    Sub WaitIE(IE As InternetExplorer)
       'On boucle tant que la page n'est pas totalement chargée
       Do Until IE.ReadyState = 4
          DoEvents
       Loop
    End Sub
     
    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

  2. #2
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut heu
    bonjour
    voila la correction pour ton premier essaie

    je t'ai donné les deux possibilité
    1 bouton recherche google
    2 bouton j'ai de la chance
    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
    Sub WaitIE(IE As Object)
     'On boucle tant que la page n'est pas totalement chargée
     Do Until IE.ReadyState = 4
     DoEvents
     Loop
     End Sub
     Sub RechercheVBAExcel()
     'Déclaration des variables en tant qu'object !!!!!!
     Dim IE As Object
     Dim IEDoc As Object
     Dim InputGoogleZoneTexte As Object
     Dim InputGoogleBouton As Object
    'definition de ie en late binding (pas de refrences a activer)
    Set IE = CreateObject("internetexplorer.application")
     '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"
     'BOUTON " recherche google")
     Set InputGoogleBouton = IEDoc.all("btnK")
     'OU
    'Bouton " J'AI DE LA CHANCE"
     'Set InputGoogleBouton = IEDoc.all("btnI")
    ' click sur le bouton choisi
    InputGoogleBouton.Click
     'On attend la fin de la recherche
     WaitIE IE
     'On libère les variables
     Set IE = Nothing
     Set IEDoc = Nothing
     End Sub
    maintenant google acecptant la metode "POST" ou "GET"
    on directement inclure l'object de la reherche dans l'url

    tu en conviendra c'est bien plus pratique :pas d'object (bouton ,inputtext) a gérer
    en voici un exemple

    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
    Sub recherche_Google_with_arguments()
    'Déclaration des variables en tant qu'object !!!!!!
        Dim IE As Object
        Dim IEDoc As Object
        Dim InputGoogleZoneTexte As Object
        Dim InputGoogleBouton As Object
        Dim motrecherché As String
        motrecherché = "VBA EXCEL"
        'definition de ie en late binding (pas de refrences a activer)
        Set IE = CreateObject("internetexplorer.application")
        'Chargement d'une page Web Google avec directement la recherche intégré dans l'url
        IE.Navigate "https://www.google.fr/?gws_rd=ssl#q=" & motrecherché
        'Affichage de la fenêtre IE
        IE.Visible = True
        'On attend le chargement complet de la page
        WaitIE IE
    End Sub
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  3. #3
    Membre averti
    Homme Profil pro
    Consultant en Business Intelligence
    Inscrit en
    Août 2015
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Consultant en Business Intelligence

    Informations forums :
    Inscription : Août 2015
    Messages : 14
    Par défaut
    Nom : message d'erreur.jpg
Affichages : 596
Taille : 20,7 Ko

    Ton second code fonctionne merci, cependant, il m'affiche tout de même ce message d'erreur.

  4. #4
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    re
    bizare voir parefeu ou antivirus sinon je n'ai pas d'explication

    le 1 er fonctionne aussi?
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  5. #5
    Membre averti
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Février 2015
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2015
    Messages : 46
    Par défaut
    Ça vient pas de la condition dans le waitIE?

    On m'avait préconisé ce genre de déclaration :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Do:  DoEvents: Loop While .readyState <> 4 Or IE.Busy
    Après, je suis loin d'être un expert comme Patrick

  6. #6
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    re

    bonjour
    non ourstortue ca ne viens pas de la
    le gestion d'attente est la pour faire une pause dans le code afin que la page soit bien chargée l'ors de la manipulation d'elements
    comme dans la version 1 ou on determine les entrées text et les boutons

    tandis qu'a ici en l'occurence en 2 eme version on ne manipule rien donc meme sans ca devrait fonctionner
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

Discussions similaires

  1. [XL-2007] Connexion VBA et mysql ?
    Par sousou94 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 20/09/2010, 18h50
  2. Connexion a google agenda via javascript
    Par bylka dans le forum Général JavaScript
    Réponses: 0
    Dernier message: 12/02/2010, 14h22
  3. connexion vba avec sql server2000
    Par l_achraf dans le forum Général VBA
    Réponses: 1
    Dernier message: 28/04/2009, 06h40
  4. chaine de connexion vba excel
    Par yucf_miagiste dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 12/02/2008, 13h22
  5. Connexion VBA / ORACLE
    Par filipbou dans le forum Général VBA
    Réponses: 0
    Dernier message: 08/02/2008, 17h43

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo