En complément de mon "Calendrier, éphéméride, lunaison et marée V2.2", je pensais rajouter un module météo dans le style
ou au mieux ça
J'ai trouvé beaucoup de chose mais j'y arrive pas du tout
J'ai essayé sur ChatGPT mais ça me renvois systématiquement sur "api.openweathermap" qui demande une inscription obligatoirement pour avoir une clé d'enregistrement, mais pour moi ce n'est pas le but.
Je suis loin d'êtres un champion, très loin même, mais je n'arrive pas à trouver une solution satisfaisante à ce que je souhaite.
Je joint un fichier qui ne sert pas trop à grand chose, mais c'est loin d'être le résultat voulu, juste pour dire que j'ai quand même cherché
Si vous avez de meilleurs solutions, merci à vous tous.
Hello,
avec l'API Infoclimat on peut récupérer les prévisions météos d'une ville sous forme html, xml, json.
Voici par exemple ce que l'on peut récupérer pour le HTML en utilisant un contrôle ActiveX webBrowser dans un formulaire :
Il y a un message d'avertissement quand on affiche la page et je ne pense pas que l'on puisse utiliser le contrôle activeX webbrowser dans une feuille (à confirmer)
Ami calmant, J.P
Hello,
avec l'API Infoclimat on peut récupérer les prévisions météos d'une ville sous forme html, xml, json.
Voici par exemple ce que l'on peut récupérer pour le HTML en utilisant un contrôle ActiveX webBrowser dans un formulaire : Regarde la pièce jointe 1204360
Il y a un message d'avertissement quand on affiche la page et je ne pense pas que l'on puisse utiliser le contrôle activeX webbrowser dans une feuille (à confirmer)
Ami calmant, J.P
Il faut aller sur cette page changer la ville si nécessaire dans le bandeau bleu puis cliquer sur API. Dans la fenêtre qui s'ouvre il faut récupérer le code iFrame et le mettre dans la procédure qui va afficher les prévisions dans un activeX Web Browser (attention il faut doubler les guillemets internes :
VB:
Private Sub CommandButton1_Click()
Const MeteoHennebont = "<iframe seamless width=""888"" height=""336"" frameborder=""0"" src=""https://www.infoclimat.fr/public-api/mixed/iframeSLIDE?_ll=47.80512,-3.27337&_inc=WyJIZW5uZWJvbnQiLCIyMiIsIjMwMTM1MjEiLCJGUiJd&_auth=U0lXQFUrXX8EKQQzD3lWf1E5ATQJf1J1An5XNFgyBHlSOV46DmhcPwNuVShXeAEoVmZQLgs2BDsBYQRgD2VUKFMvVzBVNl0%2BBGgEYw89VmNRfQF%2BCStSawJ%2BVy9YPQRmUi9eOw5lXDsDclU2V2ABN1Z7UDcLPAQjAX0EYg9lVDVTN1c7VTNdPwRtBGAPPVZ9UX0BZwkwUjwCMldlWD0ENlI3XmgOPlw3A2pVMFdnAStWYVA5CzQEOgFkBGYPZVQ%2FUy9XLFVPXUwEdgQmD31WN1EkAXwJY1I0AjU%3D&_c=dfd17f0f948fa6a147d55390a8272cd8""></iframe>"
'WebBrowser1.Navigate "file:///D:/Temp/meteo.html"
Me.WebBrowser1.Navigate "about:blank"
Me.WebBrowser1.Document.Body.InnerHtml = MeteoHennebont
End Sub
là c'est plus difficile à faire car il va falloir piloter Internet Explorer pour choisir sa ville dans la page dont j'ai mis le lien, cliquer sur API et dans la page qui s'ouvre récupérer le code HTML de la iFrame.
En ce qui concerne les deux problèmes que j'ai soulevé dans mon premier message :
A - On peut enlever le message d'avertissement comme ceci en accédant aux paramètres options internet d'Internet Explorer.
1 Dans la barre de recherche de windows 11 tapez Options Internet
2 Dans le menu de démarrage cliquez alors sur Options Internet
3 Dans la fenêtre qui s'ouvre cliquez sur l'onglet programme et cliquez alors sur le bouton Gérer les modules complémentaires.
4 Tout en bas de la fenêtre qui s'ouvre cliquez sur En savoir plus sur les barres d'outils et les extensions
5 Et voilà Internet Explorer s'ouvre. Cliquez sur la roue crantée en haut à droite et choisir Options Internet.
6 Cliquez sur l'onglet Sécurité et cliquez sur le bouton Personnaliser le niveau
7 Cherchez Afficher un contenu Mixte et choisir Activer
B Pour pouvoir incorporer un contrôle ActiveX Web Browser (Internet Explorer) dans une feuille Excel il faut modifier un paramètre dans la base de registre :
Cela semble être un comportement intentionnel à partir d'Excel 2013.
Ce problème se produit car certains contrôles scriptables sont rendus obsolètes dans Office 2013 pour des raisons de sécurité. C'est par conception, et ceux-ci erreurs sont attendues.
Il y a une solution de contournement qui consiste à modifier le registre pour que ces contrôles fonctionnent à nouveau.
pour le paramètre Compatibility Flags il faut mettre 0 au lieu de 400
Attention la clé de registre peut être différente suivant l'O.S et la version d'Office.
B Pour pouvoir incorporer un contrôle ActiveX Web Browser (Internet Explorer) dans une feuille Excel il faut modifier un paramètre dans la base de registre :
Tu n'arrives pas à quoi ? Parce que pour ajouter la météo HTML dans ton formulaire, tu rajoutes un onglet et dedans tu mets un contrôle Activex WebBrowser et un bouton de commande et tu mets le code de mon message #5 pour la commande du bouton.
Private Sub CommandButton1_Click()
Const MeteoHennebont = "<iframe seamless width=""888"" height=""336"" frameborder=""0"" src=""https://www.infoclimat.fr/public-api/mixed/iframeSLIDE?_ll=47.80512,-3.27337&_inc=WyJIZW5uZWJvbnQiLCIyMiIsIjMwMTM1MjEiLCJGUiJd&_auth=U0lXQFUrXX8EKQQzD3lWf1E5ATQJf1J1An5XNFgyBHlSOV46DmhcPwNuVShXeAEoVmZQLgs2BDsBYQRgD2VUKFMvVzBVNl0%2BBGgEYw89VmNRfQF%2BCStSawJ%2BVy9YPQRmUi9eOw5lXDsDclU2V2ABN1Z7UDcLPAQjAX0EYg9lVDVTN1c7VTNdPwRtBGAPPVZ9UX0BZwkwUjwCMldlWD0ENlI3XmgOPlw3A2pVMFdnAStWYVA5CzQEOgFkBGYPZVQ%2FUy9XLFVPXUwEdgQmD31WN1EkAXwJY1I0AjU%3D&_c=dfd17f0f948fa6a147d55390a8272cd8""></iframe>"
'WebBrowser1.Navigate "file:///D:/Temp/meteo.html"
WebBrowser1.Navigate2 "about:blank"
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
ExecuteExcel4Macro ("CALL(""kernel32"",""Sleep"",50)"): DoEvents ' tempo 50 ms
Loop
Me.WebBrowser1.Document.Body.InnerHtml = MeteoHennebont
End Sub
Non
je viens de vérifier , chez moi ça coince si dans Outils/Références , Microsoft Internet Controls n'est pas coché ( sous Windows 11) . Sous d'autres O.S cela peut être Microsoft Web Browser
Ben désolé alors je ne vois pas d'où cela peut venir car la page about:blank c'est une page blanche et on ne va rien chercher sur Internet. Peut être un problème de droits ou de version d'Internet Explorer?Tu peux essayer de mettre https://google.com à la place de about:blank pour voir
Tu as fait la première manip pour afficher internet explorer et modifier les options (manip A) ?
là tu pourras voir la version d'Internet Explorer et essayer about:blank
Ben désolé alors je ne vois pas d'où cela peut venir car la page about:blank c'est une page blanche et on ne va rien chercher sur Internet. Peut être un problème de droits ou de version d'Internet Explorer?Tu peux essayer de mettre https://google.com à la place de about:blank pour voir
Tu as fait la première manip pour afficher internet explorer et modifier les options (manip A) ?
là tu pourras voir la version d'Internet Explorer et essayer about:blank