Discussion :

[sharox]

Bonjour a tous,

j'ai un petit soucis et après multiple recherche sur internet je n'arrive pas à trouver ce que je veux ^^'
j’espère que je sais rechercher car sinon je vais me faire engueuler !

Donc en gros j’aimerais aller chercher sur internet des informations
en particulier google,

j'ai déjà un code qui récupérer les info sauf que cela ne marche par quand je met l'URL d'une recherche google :
Voici le code

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
        sadr = "URL;" & "https://fr.wikipedia.org/wiki/" & Recherche
 
        With Sheets("TEMP").QueryTables.Add(Connection:=sadr _
            , Destination:=Sheets("TEMP").Range("$A$1"))
            .Name = ""
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = False
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlEntirePage
            .WebFormatting = xlWebFormattingAll
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
 
        End With

Merci de votre aide

[weed]

Le code que tu as mis fonctionne en précisant une url wikipedia mais lorsqu'il s'agit d'une url provenant d'une recherche Google, cela fonctionne plus. C'est bien cela?

Sinon il y a une vidéo ultra intéressante pour toi, je pense :

Le gars veut essayer de récupérer les annonces d'un site d'emploi.
Avant d'obtenir les infos, il a besoin de simuler la recherche sur le site, de simuler la saisie d'un formulaire de 2 champs :
- le type d'emploi
- la localisation
Donc je pense que cela correspond à un peu à ton besoin sinon, simuler une saisie sur Google puis après par la suite récupérer des infos sur une page Web.

Je t'invites à la regarder, je pense que cela va t'aider et t'éviter de te faire engueuler

[sharox]

Salut,

Exactement cela, URL d'une recherche google cane fonctionne plus, alors qu'une URL d'un site normal fonctionne (en gros tout les moteur de recherche ne fonctionnes pas)

je vais regarder plus tard car je suis occupé en ce moment, mais je te tiens au jus pour te dire si c'est cela

Merci pour ta réponse

[sharox]

Bonjour,
je reviens vers toi pour la vidéo !

Effectivement il fait a peu prêt ce que je veux !
j'ai juste quelques question.

Pourquoi presque tout le monde utilise IE avec VBA ? est-ce car c’était le browser le plus utilisé ? le plus simple à utilisé ?

Ensuite dans la vidéo il utilise..IE
personnellement j'utilise le navigateur par défaut.
mais, je ne sais pas comment faire pour choper l'application dans un variable pour que je puisse me balader dedans.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Public Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Sub Ouvrir()
    Dim Fichier As String
    Fichier = "https://www.google.fr/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=le+transporteur+2"
    ShellExecute 0, "", Fichier, "", "", 0
End Sub

Voici ce que je voudrait faire, mais avec un navigateur par défaut:

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
Sub test_ie()
'Récupère un texte brut contenu dans une page Web
 
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim er As HTMLText
 
Dim HtmlElementStandard As HTMLGenericElement
Dim LeTexteExtrait As String
 
   'Chargement d'une page Web
   IE.Navigate "https://www.google.fr/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=le+transporteur+2"
 
   'Affichage de la fenêtre IE
   IE.Visible = True
 
   'On attend le chargement complet de la page
   WaitIE IE
 
   'On pointe le document
   Set IEDoc = IE.document

J'avoue que VBA avec d'autre application j'ai pas trop fait, du coup mes compétence dans ce domaine sont limité.
mais bon il n'est jamais trop tard pour apprendre (dixit le mec de 21 ans ^^)

[patricktoulon]

bonsoir

Voici ce que je voudrait faire, mais avec un navigateur par défaut:

a non tout du moins pas si facilement

pour manimpuler le navigateur par defaut faut il encore savoir le quel c'est

si c'est fire fox c'est avec selenium que l'on manipule (pas convainquant pour ma part trop de bugs )

pour chrome avec les apis de chrome (usine a gaz :api difficile a gerer avec office 64 bits )

pour IE c'est librairie IE installée je te conseille donc de rester avec ie

d'autant plus qu l'instantiation d'une variable IE ne modifie en rien les parametres de navigateur par defaut

[sharox]

Bonjour,

D'accord, merci, c'est une des réponses que je voulais ^^

Mais j'en ai une autre ^^
Il y a des rumeurs (je ne me suis pas renseigné la dessus) qui disent que IE va disparaître pour un autre Moteur de recherche dont j'ai bouffé le nom
Et puis utilisant Internet très souvent, j'utilise rarement IE ou FireFox, il me paraissait donc logique d'utiliser Chrome
FireFox étant pour moi un moteur de recherche pas très convaincant ^^

Vue que je veux faire une appli optimisé, que me conseillerais-tu (avec les éléments du dessus) ?