Importer Données site WEB

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!

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

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

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
14dicocitations.xlsm (23.72 Ko)

Merci pour vos retours!

N'étant pas chez moi ce soir, je regarde ça demain matin (au travail ) et vous fais un retour!

Bonne soirée !

Super Steelson, après quelques adaptations de ton code j'ai réussi à avoir ce que je voulais.

Merci beaucoup et bon weekend!

Parfait !

Rechercher des sujets similaires à "importer donnees site web"