XL 2021 Récupérer info météo

#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If
Function InfosMeteo(ville) As String
 'Déclaration des variables
  Dim IE As New InternetExplorer
  Dim IEDoc As HTMLDocument, Elem As HTMLGenericElement, id
   IE.Navigate2 "https://www.infoclimat.fr/previsions-meteo/details/3013521/hennebont.html"
   IE.Top = 0
   IE.Height = 1
   IE.Visible = True
    Do Until IE.ReadyState = READYSTATE_COMPLETE
        Sleep 50: DoEvents   ' tempo 50 ms
    Loop
    Set IEDoc = IE.Document
    IEDoc.querySelector("a[href=""#city""]").Click
    Sleep 1000: DoEvents
    IEDoc.querySelector("#city-name-autocomp").Value = ville
    IEDoc.querySelector("#city-name-autocomp").Focus
    'Sleep 50
    Application.SendKeys "{DOWN}"
    Sleep 1000
    Set Elem = IEDoc.querySelector("#ul-response-autocomp > li > a")
    Debug.Print Elem.innerText
    Debug.Print Elem.getAttribute("href")
    id = Split(Elem.getAttribute("href"), "/")(5)
    Debug.Print id
    'Sleep 50
    IE.Navigate "https://www.infoclimat.fr/api-previsions-meteo.html?id=" _
                & id & "&cntry=FR"
    Do Until IE.ReadyState = READYSTATE_COMPLETE
        Sleep 50: DoEvents   ' tempo 50 ms
    Loop
    Set Elem = IEDoc.querySelector("textarea.better-inputs")
    InfosMeteo = Elem.innerText
    IE.Quit
End Function
Sub TestInfosMeteo()
Debug.Print InfosMeteo("Vannes")
End Sub

Vannes (10)

http://h**ps://www.infoclimat.fr/previsions-meteo/details/2970776/vannes.html

2970776
<iframe seamless width="888" height="336" frameborder="0" src="h**ps://www.infoclimat.fr/public-api/mixed/iframeSLIDE?_ll=48.35738,4.04808&_inc=WyJWYW5uZXMiLCIxMDEiLCIyOTcwNzc2IiwiRlIiXQ==&_auth=VE4EEw5wVXcALVRjDngKIwNrBzINewcgBXkFZglsVisIaFc2D2tRMFQzWidVelJiUn9SMl5lUmIKaQtkWCpVKVQ1BGkOalU3AGhUMQ44CiEDLwd6DTMHIAV5BWoJZVYrCGpXOw9pUS1UOlo+VWNSeFJgUjdeYFJ1CnYLbVgyVTRUMARpDmtVNgBoVD8OPwohAy8HYQ00B2kFMwVrCTVWZwg9VzoPOlFmVDJaaVVtUnhSZ1I7XmFSagpgC29YMVUxVCgEfw4UVUQAclR2DnwKawN2B3oNZwdhBTI=&_c=66aec7436d3e9842af55a298a8a02130"></iframe>

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
   Me.WebBrowser1.Navigate2 "about:blank"
    Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
        Sleep 50: DoEvents ' tempo 50 ms
    Loop
   Me.WebBrowser1.Document.Body.InnerHtml = InfosMeteo(Me.TB_Ville)
End Sub
Private Sub MultiPage1_Change()
If MultiPage1.SelectedItem.Name = "Page3" Then
  Me.WebBrowser1.Visible = True
Else
  Me.WebBrowser1.Visible = False
End If
End Sub

jurassic pork à dit:

Hello,
bon j'ai trouvé pourquoi le code de mon message précédent ne fonctionnait pas , c'est le sleep (pas kangourou) qui ne fonctionnait pas en utilisant ExecuteExcel4macro sachant que j'utilise un Excel 64 bits. Je suis revenu à la déclaration du Sleep par Api.
Voici la fonction qui va cherche la chaîne iframe html en fonction de la ville pour afficher les prévisions météo.
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If

VB:

Function InfosMeteo(ville) As String
 'Déclaration des variables
  Dim IE As New InternetExplorer
  Dim IEDoc As HTMLDocument, Elem As HTMLGenericElement, id
   IE.Navigate2 "https://www.infoclimat.fr/previsions-meteo/details/3013521/hennebont.html"
   IE.Top = 0
   IE.Height = 1
   IE.Visible = True
    Do Until IE.ReadyState = READYSTATE_COMPLETE
        Sleep 50: DoEvents   ' tempo 50 ms
    Loop
    Set IEDoc = IE.Document
    IEDoc.querySelector("a[href=""#city""]").Click
    Sleep 1000: DoEvents
    IEDoc.querySelector("#city-name-autocomp").Value = ville
    IEDoc.querySelector("#city-name-autocomp").Focus
    'Sleep 50
    Application.SendKeys "{DOWN}"
    Sleep 1000
    Set Elem = IEDoc.querySelector("#ul-response-autocomp > li > a")
    Debug.Print Elem.innerText
    Debug.Print Elem.getAttribute("href")
    id = Split(Elem.getAttribute("href"), "/")(5)
    Debug.Print id
    'Sleep 50
    IE.Navigate "https://www.infoclimat.fr/api-previsions-meteo.html?id=" _
                & id & "&cntry=FR"
    Do Until IE.ReadyState = READYSTATE_COMPLETE
        Sleep 50: DoEvents   ' tempo 50 ms
    Loop
    Set Elem = IEDoc.querySelector("textarea.better-inputs")
    InfosMeteo = Elem.innerText
    IE.Quit
End Function
Sub TestInfosMeteo()
Debug.Print InfosMeteo("Vannes")
End Sub

Voici ce que j'obtiens pour Vannes :

J'ai mis le contrôle activeX webBrower1 directement dans le formulaire Forme (pas dans une page) et j'ai rajouté une zone de texte pour rentrer la ville (cela pourra se faire par la ville rentrée à l'ouverture du classeur) et un bouton pour demander les prévisions. Une fois obtenue on pourra stocker la chaine iframe dans le classeur pour ne pas avoir à refaire le pilotage pour l'obtenir si on a toujours la même ville.

Code:

Private Sub CommandButton1_Click()
   Me.WebBrowser1.Navigate2 "about:blank"
    Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
        Sleep 50: DoEvents ' tempo 50 ms
    Loop
   Me.WebBrowser1.Document.Body.InnerHtml = InfosMeteo(Me.TB_Ville)
End Sub
Private Sub MultiPage1_Change()
If MultiPage1.SelectedItem.Name = "Page3" Then
  Me.WebBrowser1.Visible = True
Else
  Me.WebBrowser1.Visible = False
End If
End Sub

Regarde la pièce jointe 1204462

Ami calmant, J.P

Cliquez pour agrandir...

jurassic pork à dit:

Bon , tu n'as pas trop suivi toutes mes directives et il y a beaucoup d'erreurs :
1 - le Sleep n'est pas déclaré et InfosMeteo n'est pas dans un module standard
2 - le contrôle activeX webBrowser est dans une page alors qu'il devait être directement dans le formulaire
3 - Dans le bouton de commande de la page principale on ouvre pas le formulaire
4 - etc ....
Le plus simple , je te mets en pièce jointe le classeur à peu près corrigé. A toi d'étudier tous les bouts de code.
Le fonctionnement Quand on clique sur le bouton de commande de la feuille 1 ,je prends la ville qui est en A2 , j'ouvre le formulaire en mode non modal et je vais chercher le code html de la ville , je met ce code dans le webBrower du formulaire.
Ami calmant, J.P

Cliquez pour agrandir...

jurassic pork à dit:

Ce n'est pas clair du tout ce que tu veux exactement. Je met en pièce jointe ta version 2.2 où j'avais ajouté un onglet météo dans le formulaire Forme.

Cliquez pour agrandir...

jurassic pork à dit:

Hello,
voici une version améliorée du classeur du message #36
1 - Affichage de tous les résultats de la recherche dans une ListBox. C'est le premier résultat qui est pris en compte pour aller chercher les prévisions.
2 - Gestion des erreurs dans InfosMeteo en particulier quand il n'y a pas de résultat
3 - Amélioration de l'affichage du formulaire Forme au démarrage -> le Show n'est effectué qu'à la fin de l'Initialize.
Il est à noter que le moyen le plus sûr de tomber sur la commune qu'on recherche c'est de taper son code INSEE (un seul code par commune). Par exemple pour Hennebont c'est 56083
Voici un exemple où il y a plusieurs résultats ( Vannes) :
Regarde la pièce jointe 1204491

Ce n'est pas le Vannes du Morbihan qui a été sélectionné. Alors on tape le code postal ou le code INSEE
et cette fois-ci on a le bon Vannes (le code INSEE est le plus sûr car lui normalement il ne renvoie qu'un seul résultat).
Regarde la pièce jointe 1204493

Ami calmant, J.P

Cliquez pour agrandir...