Scrabble carlvb

Bonjour à tous,

Je reviens à nouveau vers vous, surement que vous pouvez m'aider?

A propos du scrambble carlvb,

J'essaie de connaitre la signification des mots que propose l'ordi en jouant. J'ai mis un Web Browser(qui apparait sur la grille) dans le userform avec bouton de commande pour avoir la définition du mot via le site

j'arrive sur le site sans pbl, et je dois taper le mot puis double cliquer pour avoir sa définition.

J'essaie aussi en ce moment de rendre le mot proposé visible dans une cellule pour pouvoir faire un cop - col par la suite.

Ma question : existe t-il un code en vba qui me permet de faire un copier-coller du mot que je cherche directement dans la zone de recherche du site et d'avoir sa signification automatiquement ? Je n'arrive pas à trouver une réponse satisfaisante sur internet.

Merci par avance et bon déconfinement.

Bonjour Horihori974,

En fait le site que tu consultes appelle une page une fois que tu as renseigné un mot puis cliqué.

Exemple:

ou

te renverra directement sur la page adéquate.

Tu iras beaucoup plus vite sans passer par le site Ortograf.

Bonne continuation.

Merci x Cellus pour ta réponse,

mais je voudrais un lien qui me donnerait ceci par exemple

mot à définir".

J'ai pu, sur un autre onglet, mettre en A1 le mot à rechercher et j'essaie de trouver une formule qui me reverra directement sur le site à la page du mot.

Je cherche de mon coté en attendant, dés que j'ai la réponse je la poste.

@+

bonjour X Cellus,

Avec

c'est possible d'accéder directement à la recherche avec sa définition, mais je préfère

(c'est plus précis)mais c'est vrai qu'il faut passer par 2 pages pour y accéder. Je continue de chercher. J'ai progressé et j'ai juste à faire Crtl+v pour gagner une étape.

@ +

Bonjour Horihori974,

En effet j'ai testé ensuite seulement une seule page avec le mot recherché.

Or il ne veut plus afficher la page sans que celle d'Ortograph soit ouverte. Cette dernière fournissant des publicités, cela la prive de ces annonces.

Sinon la procédure serait efficace.

Voir aussi ce lien qui présente la recherche de la propriété submit liée à un bouton

https://forum.excel-pratique.com/viewtopic.php?f=2&t=137540&p=844137

A+

Bonjour,

avec ton mot en B2 :

=LIEN_HYPERTEXTE("https://1mot.net/"&B2;"Définition")

eric

bonjour Eriiic,

Merci pour ton fil

J'ai essayé ce code et il est ok dans une feuille excel, mais en vba je n'ai pas encore trouvé le code correspondant avec le WebBroswer.Navigate pour avoir le même résultat.

@+

bonjour X Cellus,

j'ai regardé le lien mais c'est trop compliqué pour mon niveau (pour le moment mais ….)

https://forum.excel-pratique.com/viewt ... &p=844137

j'ai cherché où pouvait être visualisé le mot de l'ordi et je l'ai codé pour le mettre en "feuil1.range "a1"

ensuite dans le userform : formulaire principal j'ai mis un WebBrowser

avec plusieurs essais de codes en utilisant réverso , etc

avec le code ci- dessous je n'ai plus qu'à selectionner la zone de recherche du site et faire crtl+v

Sheets("feuil1").Select

Range("a1").Copy

WebBrowser1.Navigate "

"

WebBrowser1.Visible = True

et là je n'arrive pas à faire le code" coller"

C'est à ce niveau que je suis.

@+

A nouveau,

Voilà le code utilisé pour insérer le mot dans le cadre prévu sur la page Ortograph

Sub AppelWeb()
Dim IE As Object
Dim IEdoc As Object
Dim elem As Object
Range("A1").Select

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.Navigate ("https://ortograf.ws/cherchedebutalpha.htm")

Do Until IE.ReadyState = 4
DoEvents
Loop

Set IEdoc = IE.document

Application.Wait (Now + TimeValue("00:00:01"))

For Each elem In IEdoc.getElementsByTagName("input")
'Ici c'est le ier input qui est sélectionné et qui reçoit le mot cherché
    elem.Select
'On envoie le mot présent dans la case A1 et on se positionne à la fin de ce mot
    SendKeys Range("A1") & "{End}"
    Application.Wait (Now + TimeValue("00:00:03"))
'Normalement en faisant tab puis Enter on bascule sur l'autre page web (mot)
    SendKeys "{TAB}" 
 'Jusque là c'est ok
    Exit For
Next elem
Sendkeys "{ENTER}"
Stop
End Sub

Si cela fonctionne avant le Enter, cela ne veut pas lancer l'autre page, suite au Enter?

Sans doute il demande plus un Click qu'un Enter.

Je vais tester plus en soirée.

A suivre...

Bonjour Horihori974,

En retour le code macro présenté hier et modifié qui permet de passer sur la page du mot recherché.

Mettre dans la cellule le mot cherché en minuscule.

Sub AppelWeb()

Dim IE, IEdoc, elem As Object
Dim Flag As Boolean
Range("A1").Select
Flag = False
Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.Navigate ("https://ortograf.ws/cherchedebutalpha.htm")

Do Until IE.ReadyState = 4 
DoEvents
Loop

Set IEdoc = IE.document

Application.Wait (Now + TimeValue("00:00:01"))

For Each elem In IEdoc.getElementsByTagName("input")
'Ici c'est le 1ier input qui est sélectionné et qui reçoit le mot cherché
    elem.Select
'On envoie le mot présent dans la case A1 dans cet input et on se positionne à la fin de ce mot
    SendKeys Range("A1") '& "{End}"
    Application.Wait (Now + TimeValue("00:00:02"))
'Sortie pour bascule sur l'autre page web (1mot)
    Exit For
Next elem
'Ici c'est la recherche du lien ouvrant l'autre page puis son activation
For Each lien In IEdoc.getElementsByTagName("a")
        URL = lien.getAttribute("href")
        If InStr(1, URL, Range("A1")) > 0 Then
        Application.Wait (Now + TimeValue("00:00:01"))
            Flag = True
            lien.Click
        End If
        If Flag = True Then Exit For
    Next lien
End Sub

Bons tests, bonne continuation.

bonjour X Cellus,

Tout d'abord merci de prendre de ton temps pour ce code.

pour ce dernier code

j'ai fait un pas à pas avec F8 et arrivé au code SendKeys Range("A1") le mot recherché se colle juste avant le code ci-dessous

Application.Wait (Now + TimeValue("00:00:02"))

et évidement ça bloque. message d'alerte.

autre élément il n'est pas, comme je souhaite, à l'intérieur de mon WebBrowser mis en superposition à la grille de scrabble mais en page web à part de l'application scrabble.

@ +

Bonjour Horihori974,

N'ayant pas le contrôle WebBrowser je ne peux pas te proposer un code en rapport avec celui-ci.

De plus le code donné ne doit pas être suivi avec F8. Puisqu'il travaille directement jusqu'à fournir la page voulue.

Si tu est en Pas à pas détaillé, tu ralentis la procédure or les pages Web n'attendent pas!

Je te rappelle ta demande.

J'ai pu, sur un autre onglet, mettre en A1 le mot à rechercher et j'essaie de trouver une formule qui me reverra directement sur le site à la page du mot.

C'est ce que fait le programme. Après tu peux récupérer ce qui t’intéresse une fois la page web 1mot ouverte. Exemple: Reprendre du texte de cette page web dans un TextBox à plusieurs lignes sur l'userform.

Bonne continuation.

Bonjour X Cellus,

Je suis arrivé de mon coté à a peu près le même résultat avec un click de sélection ds la zone de recherche et un coller (ctrl V) pour accéder à la page souhaitée à l'intérieur de mon userform.

Encore merci pour ton aide.

Amicalement.