Importer Données site WEB Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
l
letruite
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 13 septembre 2019

Message par letruite » 19 septembre 2019, 11:01

Bonjour à tous,

Je souhaiterais un coup de main pour effectuer une importation WEB en VBA, car je ne sais pas trop par où commencer...

Voici mon projet:
Je souhaite à partir du site internet "https://dicocitations.lemonde.fr/dictionnaire-definitions-littre.php", importer des définitions de mots du dictionnaire dans une feuille Excel.

Exemple pour la définition du mot "Sandale":
- Etape 1: J'écris le mot "Sandale" dans la cellule A1 de la "feuil1"
- Etape 2: Je lance la macro
- Etape 3: Celle ci va sur le site "https://dicocitations.lemonde.fr/dictionnaire-definitions-littre.php?lettre=S"
- Etape 4: Clique sur le mot "Sandale" du site
- Etape 5: Importe la définition en cellule B1 de la "feuil2" soit: "Espèce de chaussure ne couvrant le dessus du pied qu'avec les cordons, dont on se servait dans l'antiquité."

Dans ma tête c'est plutôt clair mais j'ai vraiment du mal à retranscrire ce que je souhaite en VBA.

Merci d'avance pour votre coup de main!
Avatar du membre
et1000lio
Membre dévoué
Membre dévoué
Messages : 631
Appréciations reçues : 6
Inscrit le : 7 mars 2013
Version d'Excel : 365
Contact :

Message par et1000lio » 19 septembre 2019, 12:44

bonjour LETRUITE

Une solution:
1) copie le mot de la cellule A1
2) ouvre le site dédié
3) Coller le mot dans recherche
Code à inserer dans un module
Option Explicit

Sub RECHERCHE()
Dim ACCES_dicocitation_lemonde
Range("A1").Copy
    
ACCES_dicocitation_lemonde = "https://dicocitations.lemonde.fr/recherche.php"""
Shell ("C:\Program Files (x86)\Mozilla Firefox\firefox.exe -url " & ACCES_dicocitation_lemonde) 'ou votre navigateur préféré
End Sub
Avatar du membre
et1000lio
Membre dévoué
Membre dévoué
Messages : 631
Appréciations reçues : 6
Inscrit le : 7 mars 2013
Version d'Excel : 365
Contact :

Message par et1000lio » 19 septembre 2019, 12:52

Une autre approche via Google
Sub RECHERCHE()
Dim mavar As String
mavar = [A1] & " dicocitations.lemonde.fr"
Range("A1").Select
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _
        "http://www.google.fr/search?hl=fr&source=hp&q=" & mavar & "&meta=&aq=f&oq="
ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

End Sub
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'208
Appréciations reçues : 651
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR

Message par Steelson » 19 septembre 2019, 13:14

Bonjour le truite, bonjour emilio,
Sub interroger()
    raz True
    definition True
End Sub

Sub raz(ok As Boolean)
    Range("A1").CurrentRegion.Offset(1, 1).ClearContents
End Sub

Sub definition(ok As Boolean)
Dim tbl() As String, URL$
On Error Resume Next
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

    Page = ExtraireSourceHTML("https://dicocitations.lemonde.fr/dictionnaire-definitions-littre.php?lettre=" & Left(Cells(i, 1), 1))
    URL = Split(Page, "Définition " & Cells(i, 1))(0)
    tbl = Split(URL, "<a class=""lv8bk"" href=")
    URL = tbl(UBound(tbl))
    URL = "https://dicocitations.lemonde.fr" & Split(Split(URL, """")(1), """")(0)
    Cells(i, 2) = URL
    Page = ExtraireSourceHTML(URL)
    Cells(i, 3) = Split(Split(Page, "<br/>Etymologie : ")(1), "<br/>")(0)
    
Next
End Sub
dicocitations.xlsm
(23.72 Kio) Téléchargé 7 fois

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
l
letruite
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 13 septembre 2019

Message par letruite » 19 septembre 2019, 19:26

Merci pour vos retours!
N'étant pas chez moi ce soir, je regarde ça demain matin (au travail ::B. ) et vous fais un retour!
Bonne soirée !
l
letruite
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 13 septembre 2019

Message par letruite » 21 septembre 2019, 11:06

Super Steelson, après quelques adaptations de ton code j'ai réussi à avoir ce que je voulais.
Merci beaucoup et bon weekend!
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'208
Appréciations reçues : 651
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR

Message par Steelson » 21 septembre 2019, 11:38

Parfait !

:btres:

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message