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 :

Passer de Internet Explorer à Google Chome - Data Scraping


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
    Enseignant Chercheur
    Inscrit en
    Octobre 2015
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant Chercheur

    Informations forums :
    Inscription : Octobre 2015
    Messages : 16
    Par défaut Passer de Internet Explorer à Google Chome - Data Scraping
    Bonjour,

    Je vous contacte car je m'arrache les cheveux (et j'en ai déjà plus beaucoup sur le caillou).

    J'ai une macro que j'utilise pour aller chercher des données sur le web dans le cadre de mes recherches. Ma macro doit juste aller sur le site et cliquer un bouton. Jusque maintenant, j'utilisais IE pour aller sur le site et j'activais la macro ci-dessous.

    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
     
     
    Sub step3()
     
    Dim IE As New InternetExplorer
        Dim coll_liens As IHTMLElementCollection
        Dim Lien As HTMLGenericElement
        IE.Visible = True
        IE.navigate "https://www.fanvoice.com/cuisine-voix/votre-avis/"
        Do
        DoEvents
        Loop Until IE.readyState = READYSTATE_COMPLETE
        Dim Doc As HTMLDocument
        Set Doc = IE.document
     
        Application.Wait Time + TimeSerial(0, 0, 10)
        Set coll_liens = Doc.getElementsByTagName("span")
            For Each Lien In coll_liens
                If Lien.innerText = "Plus d'idées" Then
                    Lien.Click
                Exit For
                End If
        Next
     
        End Sub
    Je voudrais maintenant passer à Chrome. J'ai trouvé le code qui me permettait d'aller sur le site (ci-dessous) mais après je ne sais pas comment adapter les variables IE, Doc... J'ai besoin d'aide.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
     
    Sub Macro1()
     
     Dim chromePath As String
     
     
      chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
     
      Shell (chromePath & " -url https://www.fanvoice.com/cuisine-voix/votre-avis/")
     
     
    End Sub
    Merci d'avance pour votre aide.

  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 re
    bonsoir
    fait une recherche sur selenium qui a beaucoup progressé mais reste assez succin par rapport a la gestion vb(A) de la librairie IE

    a ma connaissance ,tu n'a que cette solution pour Google et autres navigateurs Mozilla et compagnie (perso j'ai pas accroché)
    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
    Enseignant Chercheur
    Inscrit en
    Octobre 2015
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant Chercheur

    Informations forums :
    Inscription : Octobre 2015
    Messages : 16
    Par défaut Re
    Merci Patrick pour ta réponse rapide.

    C'est ce dont je me doutais. J'avoue ne pas vouloir me lancer dans Selenium. Je vais essayer de me débrouiller avec IE. Je dois juste gérer le problème de chargement de page qui prend très longtemps lorsque que l'on load plusieurs fois les "Plus d'dées".

    Excellente journée,

    Thomas

Discussions similaires

  1. Réponses: 30
    Dernier message: 23/07/2009, 15h27
  2. [IE 8] Internet Explorer 8, plus rapide que Firefox, Google Chrome
    Par Jean-Baptiste Su dans le forum IE
    Réponses: 31
    Dernier message: 19/06/2009, 12h14
  3. Passer une fenetres Internet Explorer au premier plan
    Par Cederic dans le forum VBScript
    Réponses: 0
    Dernier message: 12/06/2008, 10h34
  4. [Google Map] Erreur js sous Internet Explorer 7
    Par korbier dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 02/07/2007, 14h41
  5. Internet Explorer et recherche google
    Par SpaceFrog dans le forum IE
    Réponses: 4
    Dernier message: 29/06/2006, 16h20

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