Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Bonjour à tous et toutes,

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.

Nicolas.
 

Pièces jointes

  • Météo.xlsm
    77.8 KB · Affichages: 22

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD

Oui, je pensais bien que ça pouvait venir de là (internet explorer), ça fait un moment déjà qu'il est bannit malgré qu'il y soit toujours et ce depuis quelques années déjà.
 

patricktoulon

XLDnaute Barbatruc
Bonjour
juste en passant

regarde si tu peux pecho des informations qui t'interesse
je te le fait sortir en texte dans la console
VB:
Function GetHtmlcode(UrL As String)
    On Error Resume Next
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", UrL, False
        .Send
        If .Status = 200 Then
            GetHtmlcode = .responsetext
        End If
    End With
End Function

Sub test()
   Dim UrL As String
   'UrL = "https://meteofrance.com/previsions-meteo-france/" & ville &"/" & code postal
   UrL = "https://meteofrance.com/previsions-meteo-france/paris/75000"
    Codehtml = GetHtmlcode(UrL)
    With CreateObject("htmlfile")
        .body.innerhtml = Codehtml
        Debug.Print .body.innertext
    End With
End Sub
 

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD

Bonjour Patrick,
Merci de ton intérêt sur le sujet
J'aimerai juste un truc qui présente bien avec le choix à l'utilisation de pouvoir rentrer sa ville (et code postal aussi, parce qu'il peut y avoir plusieurs villes du même nom mais pas le même code).
Après les infos courantes:
Météo, Vent (éventuellement avec le sens), températures, humidité, il y a tellement de chose, tu fais comme tu le sent, un peu dans le style de ce que j'ai mis en post1.

Edit, Par défaut se sera la météo de la ville renseignée dans le programme, mais je veux pouvoir laisser le choix à l'utilisateur de pouvoir saisir une autre ville de son choix.

Merci
Nico
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
re
on c'est la compris là
je te donne un moteur tu en fait ce que tu en veux
c'est pas le genre de projet qui m’intéresse
c'est ton projet à toi de mettre les mains dans le cambouis
Bonne route sous le soleil(elle est facile celle là)
 

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
re, je me doutais de la réponse mais dans le résultat y il a par grand chose à pas les fêtes, je pense

VB:
Menu Bas de page Légende
Mentions Légales
Gestion des Cookies
Politique de Confidentialité
Droits de Reproduction
Consentement
Accessibilité : partiellement conforme
Contact


 
 


© 2024 Copyright - Météo-France
 {"path":{"baseUrl":"\/","scriptPath":null,"pathPrefix":"","currentPath":"node\/443608","currentPathIsAdmin":false,"isFront":false,"currentLanguage":"fr"},"pluralDelimiter":"\u0003","suppressDeprecationErrors":true,"ajaxPageState":{"libraries":"advency_gtm\/advency_gtm,core\/html5shiv,mf_ads_v2\/mf_ads_arche_v2,mf_ads_v2\/mf_ads_v2,mf_atmogramme_v2\/mf_atmogramme,mf_barre_favoris\/mf_barre_favoris,mf_barre_favoris\/mf_barre_favoris_add_btn,mf_breadcrumbs\/mf_breadcrumbs,mf_bulletin_tendance\/mf_bulletin_tendance,mf_contenu_editorial_widget\/mf_contenu_editorial_widget,mf_editorial\/mf_editorial,mf_editorial_paragraphs\/mf_editorial_paragraphs,mf_editorial_paragraphs\/mf_editorial_paragraphs_autopromo,mf_ephemeride\/mf_ephemeride,mf_hour_rain\/mf_hour_rain,mf_informations_speciales\/mf_informations_speciales,mf_logo\/mf_logo,mf_near\/mf_near,mf_normales\/mf_normales,mf_notifications\/mf_notifications,mf_poi_footer\/mf_poi_footer,mf_search_form\/mf_search_form,mf_title_block\/mf_title_block,mf_video_sponso\/mf
_video_sponso,mf_vigilance_header\/mf_vigilance_burger,mf_vigilance_header\/mf_vigilance_header,mf_vigilance_popup\/mf_vigilance_popup,mf_vigilance_widget\/mf_vigilance_widget,mf_weather_caption\/mf_weather_caption,mf_zone_bulletin\/mf_zone_bulletin,mf_zone_bulletin_ville\/mf_zone_bulletin_ville,paragraphs\/drupal.paragraphs.unpublished,public\/global-styling,system\/base","theme":"public","theme_token":null},"ajaxTrustedUrl":[],"mf_poi_footer_pois":[{"title":"METEO PARIS","insee":"750560","lat":"48.859333","lng":"2.340591","path":"\/previsions-meteo-france\/paris\/75000","icon":"","code_postal":"75000","timezone":"Europe\/Paris","rank":1},{"title":"METEO TOULOUSE","insee":"315550","lat":"43.604098","lng":"1.441079","path":"\/previsions-meteo-france\/toulouse\/31000","icon":"","code_postal":"31000","timezone":"Europe\/Paris","rank":5},{"title":"METEO LYON","insee":"691230","lat":"45.758097","lng":"4.8407","path":"\/previsions-meteo-france\/lyon\/69000","icon":"","code_postal":"69000","timezone":"Europe\/Pari
s","rank":10},{"title":"METEO BORDEAUX","insee":"330630","lat":"44.837098","lng":"-0.580433","path":"\/previsions-meteo-france\/bordeaux\/33000","icon":"","code_postal":"33000","timezone":"Europe\/Paris","rank":15},{"title":"METEO NANTES","insee":"441090","lat":"47.2165","lng":"-1.554608","path":"\/previsions-meteo-france\/nantes\/44000","icon":"","code_postal":"44000","timezone":"Europe\/Paris","rank":20},{"title":"METEO MONTPELLIER","insee":"341720","lat":"43.610355","lng":"3.875467","path":"\/previsions-meteo-france\/montpellier\/34000","icon":"","code_postal":"34000","timezone":"Europe\/Paris","rank":25},{"title":"METEO RENNES","insee":"352380","lat":"48.113628","lng":"-1.681487","path":"\/previsions-meteo-france\/rennes\/35000","icon":"","code_postal":"35000","timezone":"Europe\/Paris","rank":30},{"title":"METEO MARSEILLE","insee":"130550","lat":"43.296199","lng":"5.375945","path":"\/previsions-meteo-france\/marseille\/13000","icon":"","code_postal":"13000","timezone":"Europe\/Paris","rank":35},{"title"
:"METEO LILLE","insee":"593500","lat":"50.631573","lng":"3.057161","path":"\/previsions-meteo-france\/lille\/59000","icon":"","code_postal":"59000","timezone":"Europe\/Paris","rank":40},{"title":"METEO ANGERS","insee":"490070","lat":"47.472707","lng":"-0.556177","path":"\/previsions-meteo-france\/angers\/49000","icon":"","code_postal":"49000","timezone":"Europe\/Paris","rank":45},{"title":"METEO GRENOBLE","insee":"381850","lat":"45.186503","lng":"5.725114","path":"\/previsions-meteo-france\/grenoble\/38000","icon":"","code_postal":"38000","timezone":"Europe\/Paris","rank":50},{"title":"METEO TOURS","insee":"372610","lat":"47.391812","lng":"0.687256","path":"\/previsions-meteo-france\/tours\/37000","icon":"","code_postal":"37000","timezone":"Europe\/Paris","rank":55},{"title":"METEO DIJON","insee":"212310","lat":"47.322479","lng":"5.041065","path":"\/previsions-meteo-france\/dijon\/21000","icon":"","code_postal":"21000","timezone":"Europe\/Paris","rank":60},{"title":"METEO LIMOGES","insee":"870850","lat":"45.
833929","lng":"1.260532","path":"\/previsions-meteo-france\/limoges\/87000","icon":"","code_postal":"87000","timezone":"Europe\/Paris","rank":65},{"title":"METEO PAU","insee":"644450","lat":"43.300543","lng":"-0.370622","path":"\/previsions-meteo-france\/pau\/64000","icon":"","code_postal":"64000","timezone":"Europe\/Paris","rank":70},{"title":"METEO STRASBOURG","insee":"674820","lat":"48.583085","lng":"7.746694","path":"\/previsions-meteo-france\/strasbourg\/67000","icon":"","code_postal":"67000","timezone":"Europe\/Paris","rank":75},{"title":"METEO NANCY","insee":"543950","lat":"48.6919","lng":"6.183046","path":"\/previsions-meteo-france\/nancy\/54000","icon":"","code_postal":"54000","timezone":"Europe\/Paris","rank":80},{"title":"METEO BREST","insee":"290190","lat":"48.389778","lng":"-4.487512","path":"\/previsions-meteo-france\/brest\/29200","icon":"","code_postal":"29200","timezone":"Europe\/Paris","rank":85},{"title":"METEO BESANCON","insee":"250560","lat":"47.242262","lng":"6.020591","path":"\/previsi
ons-meteo-france\/besancon\/25000","icon":"","code_postal":"25000","timezone":"Europe\/Paris","rank":90},{"title":"METEO LE MANS","insee":"721810","lat":"48.003684","lng":"0.196303","path":"\/previsions-meteo-france\/le-mans\/72000","icon":"","code_postal":"72000","timezone":"Europe\/Paris","rank":95}],"mf_ads_v2_id":"b-mf-ads-v2nhsiysamkz","mf_ads_v2_default":"mf-ads-v2","mf_ads_v2_provider":{"setting_name":"enabled_provider","setting_value":"google"},"mf_article_details":null,"mf_ads_v2_network_code":{"default":"21643048729,57108064","enable":1,"codes":"21643048729,57108064","urls":["\/meteo-plages"]},"mf_breadcrumbs_path":[{"url":"\/","name":"Accueil"},{"url":"\/previsions-meteo-france\/bretagne\/5","name":"Bretagne"},{"url":"\/previsions-meteo-france\/morbihan\/56","name":"Morbihan"},{"url":"","name":"Hennebont"}],"mf_contenu_editorial_widget_items":[],"mf_video_sponso_admin_videos":[{"pid":"1","title":"Pluie et inondations, ayons les bons r\u00e9flexes","id_youtube":"RUGbTpLT1qc","categories":{"Reco
mmand\u00e9es":"Recommand\u00e9es"}},{"pid":"2","title":"La vigilance m\u00e9t\u00e9orologique","id_youtube":"pT98qCs58h4","categories":{"Recommand\u00e9es":"Recommand\u00e9es"}},{"pid":"3","title":"Les tornades | M\u00c9T\u00c9O-FRANCE","id_youtube":"Bn45bcNXpRc","categories":{"Recommand\u00e9es":"Recommand\u00e9es"}},{"pid":"4","title":"Horizons Climatiques, la BD qui expique le changement climatique","id_youtube":"bWwhSG506dI","categories":{"R\u00e9cents":"R\u00e9cents"}},{"pid":"5","title":"D\u00e9ploiement d\u2019une deuxi\u00e8me bou\u00e9e m\u00e9t\u00e9o au large de la Corse","id_youtube":"w1kuSzYbdIY","categories":{"Populaires":"Populaires"}},{"pid":"7","title":"Quel temps faisait-il pour les JO de Paris de 1924 ?","id_youtube":"5HF7wVNj-F8","categories":{"Populaires":"Populaires"}},{"pid":"8","title":"M\u00c9T\u00c9O-FRANCE EN APPUI \u00c0 LA LUTTE CONTRE LES FEUX","id_youtube":"mYoOoM4Jryo","categories":{"Populaires":"Populaires"}},{"pid":"9","title":"Climadiag Commune : \u00e9valuer pour s\u0027a
dapter","id_youtube":"W6pvZfUHd_E","categories":{"R\u00e9cents":"R\u00e9cents"}},{"pid":"13","title":"DRIAS-Eau : Quel futur pour l\u0027eau en 2050 ?","id_youtube":"21D0o-khZRU","categories":{"R\u00e9cents":"R\u00e9cents"}},{"pid":"25","title":"D-DAY : la m\u00e9t\u00e9o au c\u0153ur du d\u00e9barquement","id_youtube":"GV3LG9nY5h8","categories":{"R\u00e9cents":"R\u00e9cents"}},{"pid":"28","title":"M\u00e9t\u00e9o-France \/ Film institutionnel","id_youtube":"Yc2NlSLk3Tg","categories":{"Populaires":"Populaires"}},{"pid":"31","title":"TOUT SAVOIR : LES \u00c9PISODES M\u00c9DITERRAN\u00c9ENS","id_youtube":"7lTyXgHtjoQ","categories":{"Recommand\u00e9es":"Recommand\u00e9es"}}],"mf_video_sponso_admin_categories":[{"pid":"1","title":"Recommand\u00e9es","icon":"fa fa-heart"},{"pid":"2","title":"R\u00e9cents","icon":"fa fa-clock"},{"pid":"3","title":"Populaires","icon":"fa fa-users"}],"marine_near":{"near_categories":{"0":{"id":"262","machine_name":"villes","title":"Ville"},"1":{"id":"263","machine_name":"beach","tit
le":"Plage"},"3":{"machine_name":"port","title":"Port"}},"near_entities":{"villes":[{"id":"443615","title":"Inzinzac-Lochrist","path":"\/previsions-meteo-france\/inzinzac-lochrist\/56650","distance":"4.46"},{"id":"443561","title":"Caudan","path":"\/previsions-meteo-france\/caudan\/56850","distance":"4.87"},{"id":"443619","title":"Kervignac","path":"\/previsions-meteo-france\/kervignac\/56700","distance":"5.37"},{"id":"443546","title":"Brand\u00e9rion","path":"\/previsions-meteo-france\/branderion\/56700","distance":"6.38"},{"id":"443622","title":"Lanester","path":"\/previsions-meteo-france\/lanester\/56600","distance":"6.44"},{"id":"443654","title":"Merlevenez","path":"\/previsions-meteo-france\/merlevenez\/56700","distance":"8.19"}],"beach":[{"id":"42307","title":"Lorient","path":"\/meteo-plages\/lorient\/5612151","distance":"10.87"}],"port":[{"id":"570397","title":"Hennebont","path":"\/meteo-marine\/hennebont\/570397","distance":"0.00"},{"id":"570370","title":"Lorient","path":"\/meteo-marine\/lorient\/5703
70","distance":"9.28"},{"id":"570385","title":"Port Maria","path":"\/meteo-marine\/port-maria\/570385","distance":"13.47"},{"id":"570349","title":"Etel","path":"\/meteo-marine\/etel\/570349","distance":"17.25"}]}},"mf_ephemeride_poi":{"nid":"443608","id":"560830","id_insee":"560830","name":"Hennebont","id_bmr":null,"id_bms":null,"type":"Point d\u0027int\u00e9r\u00eat","lat":"47.803601","lng":"-3.278913","code_postal":"56700","timezone":"Europe\/Paris","taxonomy":"VILLE_FRANCE","type_poi":"VILLE_FRANCE","path":"\/previsions-meteo-france\/hennebont\/56700","linked_poi":null,"parents":[{"type":"DEPARTEMENT","title":"Morbihan","insee":"56"},{"type":"REGION","title":"Bretagne","insee":"5"},{"type":"PAYS","title":"France","insee":"PAYS007"},{"type":"CONTINENT","title":"Europe"}]},"mf_ephemeride_saint":[{"Date":"01\/01","Saint":"Jour de l\u0027an"},{"Date":"02\/01","Saint":"Basile"},{"Date":"03\/01","Saint":"Genevi\u00e8ve"},{"Date":"04\/01","Saint":"Odilon"},{"Date":"05\/01","Saint":"Edouard"},{"Date":"06\/01","Sa
int":"M\u00e9laine"},{"Date":"07\/01","Saint":"Raymond"},{"Date":"08\/01","Saint":"Lucien"},{"Date":"09\/01","Saint":"Alix"},{"Date":"10\/01","Saint":"Guillaume"},{"Date":"11\/01","Saint":"Pauline"},{"Date":"12\/01","Saint":"Tatiana"},{"Date":"13\/01","Saint":"Yvette"},{"Date":"14\/01","Saint":"Nina"},{"Date":"15\/01","Saint":"R\u00e9mi"},{"Date":"16\/01","Saint":"Marcel"},{"Date":"17\/01","Saint":"Roseline"},{"Date":"18\/01","Saint":"Prisca"},{"Date":"19\/01","Saint":"Marius"},{"Date":"20\/01","Saint":"S\u00e9bastien"},{"Date":"21\/01","Saint":"Agn\u00e8s"},{"Date":"22\/01","Saint":"Vincent"},{"Date":"23\/01","Saint":"Banard"},{"Date":"24\/01","Saint":"Fran\u00e7ois de Sales"},{"Date":"25\/01","Saint":"Conversion de Paul"},{"Date":"26\/01","Saint":"Paule"},{"Date":"27\/01","Saint":"Ang\u00e8le"},{"Date":"28\/01","Saint":"Thomas d\u0027Aquin"},{"Date":"29\/01","Saint":"Gildas"},{"Date":"30\/01","Saint":"Martine"},{"Date":"31\/01","Saint":"Marcelle"},{"Date":"01\/02","Saint":"Ella"},{"Date":"02\/02","Saint":"
Pr\u00e9sentation"},{"Date":"03\/02","Saint":"Blaise"},{"Date":"04\/02","Saint":"V\u00e9ronique"},{"Date":"05\/02","Saint":"Agathe"},{"Date":"06\/02","Saint":"Gaston"},{"Date":"07\/02","Saint":"Eug\u00e8nie"},{"Date":"08\/02","Saint":"Jacqueline"},{"Date":"09\/02","Saint":"Apolline"},{"Date":"10\/02","Saint":"Arnaud"},{"Date":"11\/02","Saint":"Ntr. D. de Lourdes"},{"Date":"12\/02","Saint":"F\u00e9lix"},{"Date":"13\/02","Saint":"B\u00e9atrice"},{"Date":"14\/02","Saint":"Valentin"},{"Date":"15\/02","Saint":"Claude"},{"Date":"16\/02","Saint":"Julienne"},{"Date":"17\/02","Saint":"Alexis"},{"Date":"18\/02","Saint":"Bernadette"},{"Date":"19\/02","Saint":"Gabin"},{"Date":"20\/02","Saint":"Aim\u00e9e"},{"Date":"21\/02","Saint":"Damien"},{"Date":"22\/02","Saint":"Isabelle"},{"Date":"23\/02","Saint":"Lazare"},{"Date":"24\/02","Saint":"Modeste"},{"Date":"25\/02","Saint":"Rom\u00e9o"},{"Date":"26\/02","Saint":"Nestor"},{"Date":"27\/02","Saint":"Honorine"},{"Date":"28\/02","Saint":"Romain"},{"Date":"29\/02","Saint":"Augu
ste"},{"Date":"01\/03","Saint":"Aubin"},{"Date":"02\/03","Saint":"Charles"},{"Date":"03\/03","Saint":"Gu\u00e9nol\u00e9"},{"Date":"04\/03","Saint":"Casimir"},{"Date":"05\/03","Saint":"Olive"},{"Date":"06\/03","Saint":"Colette"},{"Date":"07\/03","Saint":"F\u00e9licit\u00e9"},{"Date":"08\/03","Saint":"Jean"},{"Date":"09\/03","Saint":"Fran\u00e7oise"},{"Date":"10\/03","Saint":"Vivien"},{"Date":"11\/03","Saint":"Rosine"},{"Date":"12\/03","Saint":"Justine"},{"Date":"13\/03","Saint":"Rodrigue"},{"Date":"14\/03","Saint":"Mathilde"},{"Date":"15\/03","Saint":"Louise"},{"Date":"16\/03","Saint":"B\u00e9n\u00e9dicte"},{"Date":"17\/03","Saint":"Patrice"},{"Date":"18\/03","Saint":"Cyrille"},{"Date":"19\/03","Saint":"Joseph"},{"Date":"20\/03","Saint":"Printemps"},{"Date":"21\/03","Saint":"Cl\u00e9mence"},{"Date":"22\/03","Saint":"L\u00e9a"},{"Date":"23\/03","Saint":"Victorien"},{"Date":"24\/03","Saint":"Catherine"},{"Date":"25\/03","Saint":"Annonciation"},{"Date":"26\/03","Saint":"Larissa"},{"Date":"27\/03","Saint":"Habib"
},{"Date":"28\/03","Saint":"Gontran"},{"Date":"29\/03","Saint":"Gwladys"},{"Date":"30\/03","Saint":"Am\u00e9d\u00e9e"},{"Date":"31\/03","Saint":"Benjamin"},{"Date":"01\/04","Saint":"Hugues"},{"Date":"02\/04","Saint":"Sandrine"},{"Date":"03\/04","Saint":"Richard"},{"Date":"04\/04","Saint":"Isidore"},{"Date":"05\/04","Saint":"Ir\u00e8ne"},{"Date":"06\/04","Saint":"Marcellin"},{"Date":"07\/04","Saint":"Jean-Baptiste"},{"Date":"08\/04","Saint":"Julie"},{"Date":"09\/04","Saint":"Gautier"},{"Date":"10\/04","Saint":"Fulbert"},{"Date":"11\/04","Saint":"Stanislas"},{"Date":"12\/04","Saint":"Jules"},{"Date":"13\/04","Saint":"Ida"},{"Date":"14\/04","Saint":"Maxime"},{"Date":"15\/04","Saint":"Paterne"},{"Date":"16\/04","Saint":"Beno\u00eet-Joseph"},{"Date":"17\/04","Saint":"Anicet"},{"Date":"18\/04","Saint":"Parfait"},{"Date":"19\/04","Saint":"Emma"},{"Date":"20\/04","Saint":"Odette"},{"Date":"21\/04","Saint":"Anselme"},{"Date":"22\/04","Saint":"Alexandre"},{"Date":"23\/04","Saint":"Georges"},{"Date":"24\/04","Saint":"F
id\u00e8le"},{"Date":"25\/04","Saint":"Marc"},{"Date":"26\/04","Saint":"Alida"},{"Date":"27\/04","Saint":"Zita"},{"Date":"28\/04","Saint":"Val\u00e9rie"},{"Date":"29\/04","Saint":"Catherine"},{"Date":"30\/04","Saint":"Robert"},{"Date":"01\/05","Saint":"J\u00e9r\u00e9mie"},{"Date":"02\/05","Saint":"Boris"},{"Date":"03\/05","Saint":"Philippe"},{"Date":"04\/05","Saint":"Sylvain"},{"Date":"05\/05","Saint":"Judith"},{"Date":"06\/05","Saint":"Prudence"},{"Date":"07\/05","Saint":"Gis\u00e8le"},{"Date":"08\/05","Saint":"D\u00e9sir\u00e9"},{"Date":"09\/05","Saint":"Pac\u00f4me"},{"Date":"10\/05","Saint":"Solange"},{"Date":"11\/05","Saint":"Estelle"},{"Date":"12\/05","Saint":"Achille"},{"Date":"13\/05","Saint":"Rolande"},{"Date":"14\/05","Saint":"Matthias"},{"Date":"15\/05","Saint":"Denise"},{"Date":"16\/05","Saint":"Honor\u00e9"},{"Date":"17\/05","Saint":"Pascal"},{"Date":"18\/05","Saint":"Eric"},{"Date":"19\/05","Saint":"Yves"},{"Date":"20\/05","Saint":"Bernardin"},{"Date":"21\/05","Saint":"Constantin"},{"Date":"22\
/05","Saint":"Emile"},{"Date":"23\/05","Saint":"Didier"},{"Date":"24\/05","Saint":"Donatien"},{"Date":"25\/05","Saint":"Sophie"},{"Date":"26\/05","Saint":"B\u00e9renger"},{"Date":"27\/05","Saint":"Augustin"},{"Date":"28\/05","Saint":"Germain"},{"Date":"29\/05","Saint":"Aymar"},{"Date":"30\/05","Saint":"Ferdinand"},{"Date":"31\/05","Saint":"Visitation"},{"Date":"01\/06","Saint":"Justin"},{"Date":"02\/06","Saint":"Blandine"},{"Date":"03\/06","Saint":"K\u00e9vin"},{"Date":"04\/06","Saint":"Clotilde"},{"Date":"05\/06","Saint":"Igor"},{"Date":"06\/06","Saint":"Norbert"},{"Date":"07\/06","Saint":"Gilbert"},{"Date":"08\/06","Saint":"M\u00e9dard"},{"Date":"09\/06","Saint":"Diane"},{"Date":"10\/06","Saint":"Landry"},{"Date":"11\/06","Saint":"Barnab\u00e9"},{"Date":"12\/06","Saint":"Guy"},{"Date":"13\/06","Saint":"Antoine"},{"Date":"14\/06","Saint":"Elis\u00e9e"},{"Date":"15\/06","Saint":"Germaine"},{"Date":"16\/06","Saint":"Jean Fran\u00e7ois R\u00e9gis"},{"Date":"17\/06","Saint":"Herv\u00e9"},{"Date":"18\/06","Saint
":"L\u00e9once"},{"Date":"19\/06","Saint":"Romuald"},{"Date":"20\/06","Saint":"Silv\u00e8re"},{"Date":"21\/06","Saint":"Et\u00e9"},{"Date":"22\/06","Saint":"Alban"},{"Date":"23\/06","Saint":"Audrey"},{"Date":"24\/06","Saint":"Jean-Baptiste"},{"Date":"25\/06","Saint":"Prosper"},{"Date":"26\/06","Saint":"Anthelme"},{"Date":"27\/06","Saint":"Fernand"},{"Date":"28\/06","Saint":"Ir\u00e9n\u00e9e"},{"Date":"29\/06","Saint":"Paul"},{"Date":"30\/06","Saint":"Martial"},{"Date":"01\/07","Saint":"Thierry"},{"Date":"02\/07","Saint":"Martinien"},{"Date":"03\/07","Saint":"Thomas"},{"Date":"04\/07","Saint":"Florent"},{"Date":"05\/07","Saint":"Antoine"},{"Date":"06\/07","Saint":"Mariette"},{"Date":"07\/07","Saint":"Raoul"},{"Date":"08\/07","Saint":"Thibault"},{"Date":"09\/07","Saint":"Amandine"},{"Date":"10\/07","Saint":"Ulrich"},{"Date":"11\/07","Saint":"Beno\u00eet"},{"Date":"12\/07","Saint":"Olivier"},{"Date":"13\/07","Saint":"Henri et Jo\u00ebl"},{"Date":"14\/07","Saint":"Camille"},{"Date":"15\/07","Saint":"Donald"},{"D
ate":"16\/07","Saint":"N. D. du Mt Carmel"},{"Date":"17\/07","Saint":"Charlotte"},{"Date":"18\/07","Saint":"Fr\u00e9d\u00e9ric"},{"Date":"19\/07","Saint":"Ars\u00e8ne"},{"Date":"20\/07","Saint":"Marina"},{"Date":"21\/07","Saint":"Victor"},{"Date":"22\/07","Saint":"Marie Madeleine"},{"Date":"23\/07","Saint":"Brigitte"},{"Date":"24\/07","Saint":"Christine"},{"Date":"25\/07","Saint":"Jacques"},{"Date":"26\/07","Saint":"Anne et Joachin"},{"Date":"27\/07","Saint":"Nathalie"},{"Date":"28\/07","Saint":"Samson"},{"Date":"29\/07","Saint":"Marthe"},{"Date":"30\/07","Saint":"Juliette"},{"Date":"31\/07","Saint":"Ignace de Loyola"},{"Date":"01\/08","Saint":"Alphonse"},{"Date":"02\/08","Saint":"Julien Eymard"},{"Date":"03\/08","Saint":"Lydie"},{"Date":"04\/08","Saint":"Jean-Marie Vianney"},{"Date":"05\/08","Saint":"Abel"},{"Date":"06\/08","Saint":"Sauveur"},{"Date":"07\/08","Saint":"Ga\u00e9tan"},{"Date":"08\/08","Saint":"Dominique"},{"Date":"09\/08","Saint":"Amour"},{"Date":"10\/08","Saint":"Laurent"},{"Date":"11\/08","S
aint":"Claire"},{"Date":"12\/08","Saint":"Clarisse"},{"Date":"13\/08","Saint":"Hippolyte"},{"Date":"14\/08","Saint":"Evrard"},{"Date":"15\/08","Saint":"Marie"},{"Date":"16\/08","Saint":"Armel"},{"Date":"17\/08","Saint":"Hyacinthe"},{"Date":"18\/08","Saint":"H\u00e9l\u00e8ne"},{"Date":"19\/08","Saint":"Jean Eudes"},{"Date":"20\/08","Saint":"Bernard"},{"Date":"21\/08","Saint":"Christophe"},{"Date":"22\/08","Saint":"Fabrice"},{"Date":"23\/08","Saint":"Rose de Lima"},{"Date":"24\/08","Saint":"Barth\u00e9l\u00e9my"},{"Date":"25\/08","Saint":"Louis"},{"Date":"26\/08","Saint":"Natacha"},{"Date":"27\/08","Saint":"Monique"},{"Date":"28\/08","Saint":"Augustin"},{"Date":"29\/08","Saint":"Sabine"},{"Date":"30\/08","Saint":"Fiacre"},{"Date":"31\/08","Saint":"Aristide"},{"Date":"01\/09","Saint":"Gilles"},{"Date":"02\/09","Saint":"Ingrid"},{"Date":"03\/09","Saint":"Gr\u00e9goire"},{"Date":"04\/09","Saint":"Rosalie"},{"Date":"05\/09","Saint":"Ra\u00efssa"},{"Date":"06\/09","Saint":"Bertrand"},{"Date":"07\/09","Saint":"Reine
"},{"Date":"08\/09","Saint":"Nativit\u00e9"},{"Date":"09\/09","Saint":"Alain"},{"Date":"10\/09","Saint":"In\u00e8s"},{"Date":"11\/09","Saint":"Adelphe"},{"Date":"12\/09","Saint":"Apollinaire"},{"Date":"13\/09","Saint":"Aim\u00e9"},{"Date":"14\/09","Saint":"Cyprien"},{"Date":"15\/09","Saint":"Roland"},{"Date":"16\/09","Saint":"Edith"},{"Date":"17\/09","Saint":"Renaud"},{"Date":"18\/09","Saint":"Nad\u00e8ge"},{"Date":"19\/09","Saint":"Emilie"},{"Date":"20\/09","Saint":"Davy"},{"Date":"21\/09","Saint":"Matthieu"},{"Date":"22\/09","Saint":"Maurice"},{"Date":"23\/09","Saint":"Constant"},{"Date":"24\/09","Saint":"Th\u00e8cle"},{"Date":"25\/09","Saint":"Hermann"},{"Date":"26\/09","Saint":"C\u00f4me et Damien"},{"Date":"27\/09","Saint":"Vincent de Paul"},{"Date":"28\/09","Saint":"Venceslas"},{"Date":"29\/09","Saint":"Michel"},{"Date":"30\/09","Saint":"J\u00e9r\u00f4me"},{"Date":"01\/10","Saint":"Th\u00e9r\u00e8se"},{"Date":"02\/10","Saint":"L\u00e9ger"},{"Date":"03\/10","Saint":"G\u00e9rard"},{"Date":"04\/10","Saint
":"Fran\u00e7ois d\u0027Assise"},{"Date":"05\/10","Saint":"Fleur"},{"Date":"06\/10","Saint":"Bruno"},{"Date":"07\/10","Saint":"Serge"},{"Date":"08\/10","Saint":"P\u00e9lagie"},{"Date":"09\/10","Saint":"Denis"},{"Date":"10\/10","Saint":"Ghislain"},{"Date":"11\/10","Saint":"Firmin"},{"Date":"12\/10","Saint":"Wilfried"},{"Date":"13\/10","Saint":"G\u00e9raud"},{"Date":"14\/10","Saint":"Juste"},{"Date":"15\/10","Saint":"Th\u00e9r\u00e8se d\u0027Avila"},{"Date":"16\/10","Saint":"Edwige"},{"Date":"17\/10","Saint":"Baudoin"},{"Date":"18\/10","Saint":"Luc"},{"Date":"19\/10","Saint":"Ren\u00e9"},{"Date":"20\/10","Saint":"Adeline"},{"Date":"21\/10","Saint":"C\u00e9line"},{"Date":"22\/10","Saint":"Elodie"},{"Date":"23\/10","Saint":"Jean de Capistran"},{"Date":"24\/10","Saint":"Florentin"},{"Date":"25\/10","Saint":"Cr\u00e9pin"},{"Date":"26\/10","Saint":"Dimitri"},{"Date":"27\/10","Saint":"Emeline"},{"Date":"28\/10","Saint":"Jude"},{"Date":"29\/10","Saint":"Narcisse"},{"Date":"30\/10","Saint":"Bienvenue"},{"Date":"31\/10
","Saint":"Quentin"},{"Date":"01\/11","Saint":"Cassandre"},{"Date":"02\/11","Saint":"D\u00e9funts"},{"Date":"03\/11","Saint":"Hubert"},{"Date":"04\/11","Saint":"Charles"},{"Date":"05\/11","Saint":"Sylvie"},{"Date":"06\/11","Saint":"Bertille"},{"Date":"07\/11","Saint":"Carine"},{"Date":"08\/11","Saint":"Geoffroy"},{"Date":"09\/11","Saint":"Th\u00e9odore"},{"Date":"10\/11","Saint":"L\u00e9on"},{"Date":"11\/11","Saint":"Martin"},{"Date":"12\/11","Saint":"Christian"},{"Date":"13\/11","Saint":"Brice"},{"Date":"14\/11","Saint":"Sidoine"},{"Date":"15\/11","Saint":"Albert"},{"Date":"16\/11","Saint":"Marguerite"},{"Date":"17\/11","Saint":"Elisabeth"},{"Date":"18\/11","Saint":"Aude"},{"Date":"19\/11","Saint":"Tanguy"},{"Date":"20\/11","Saint":"Edmond"},{"Date":"21\/11","Saint":"Dimitri"},{"Date":"22\/11","Saint":"C\u00e9cile"},{"Date":"23\/11","Saint":"Cl\u00e9ment"},{"Date":"24\/11","Saint":"Flora"},{"Date":"25\/11","Saint":"Catherine"},{"Date":"26\/11","Saint":"Delphine"},{"Date":"27\/11","Saint":"S\u00e9vrin"},{"Da
te":"28\/11","Saint":"Jacques"},{"Date":"29\/11","Saint":"Saturnin"},{"Date":"30\/11","Saint":"Andr\u00e9"},{"Date":"01\/12","Saint":"Florence"},{"Date":"02\/12","Saint":"Viviane"},{"Date":"03\/12","Saint":"Fran\u00e7ois Xavier"},{"Date":"04\/12","Saint":"Barbara"},{"Date":"05\/12","Saint":"G\u00e9rald"},{"Date":"06\/12","Saint":"Nicolas"},{"Date":"07\/12","Saint":"Ambroise"},{"Date":"08\/12","Saint":"Thibaud"},{"Date":"09\/12","Saint":"L\u00e9ocadie"},{"Date":"10\/12","Saint":"Romaric"},{"Date":"11\/12","Saint":"Daniel"},{"Date":"12\/12","Saint":"Chantal"},{"Date":"13\/12","Saint":"Lucie"},{"Date":"14\/12","Saint":"Odile"},{"Date":"15\/12","Saint":"Ninon"},{"Date":"16\/12","Saint":"Alice"},{"Date":"17\/12","Saint":"Ga\u00ebl"},{"Date":"18\/12","Saint":"Gatien"},{"Date":"19\/12","Saint":"Urbain"},{"Date":"20\/12","Saint":"Th\u00e9ophile"},{"Date":"21\/12","Saint":"Pierre"},{"Date":"22\/12","Saint":"Fran\u00e7oise Xavi\u00e8re"},{"Date":"23\/12","Saint":"Armand"},{"Date":"24\/12","Saint":"Ad\u00e8le"},{"Date"
:"25\/12","Saint":"No\u00ebl"},{"Date":"26\/12","Saint":"Etienne"},{"Date":"27\/12","Saint":"Jean"},{"Date":"28\/12","Saint":"Innocent"},{"Date":"29\/12","Saint":"David"},{"Date":"30\/12","Saint":"Roger"},{"Date":"31\/12","Saint":"Sylvestre"}],"bulletin-source":"api","id_bulletin_ville":"5603","mf_api_url":"https:\/\/rpcache-aa.meteofrance.com","mf_normales_period":"today","mf_hour_rain_attributes":{"color_1":"#5ec5ed","color_2":"#009ee0","color_3":"#006ab3","rain_icon":"cloud-showers-heavy","rain_title":"PLUIE DANS L\u0027HEURE","rain_subtitle":"Sortez votre parapluie !","no_rain_icon":"cloud-showers-heavy","no_rain_title":"PLUIE DANS L\u0027HEURE","no_rain_subtitle":"Pas de pr\u00e9cipitations"},"mf_atmogramme_settings":{"poi_type":"VILLE_FRANCE","temps_present":{"setting_name":"temps_present","setting_value":"both","setting_details":"simple"},"temperature":{"setting_name":"temperature","setting_value":"both","setting_details":"simple"},"vent":{"setting_name":"vent","setting_value":"details","setting_detai
ls":"simple"},"rafales":{"setting_name":"rafales","setting_value":"details","setting_details":"simple"},"temperatures_ressenties":{"setting_name":"temperatures_ressenties","setting_value":"details","setting_details":"simple"},"indice_uv":{"setting_name":"indice_uv","setting_value":"details","setting_details":"expert"},"probabilites_precipitations":{"setting_name":"probabilites_precipitations","setting_value":"details","setting_details":"expert"},"cperiod":"today"},"mf_atmogramme_node":{"nid":"443608","id":"560830","id_insee":"560830","name":"Hennebont","id_bmr":null,"id_bms":null,"type":"Point d\u0027int\u00e9r\u00eat","lat":"47.803601","lng":"-3.278913","code_postal":"56700","timezone":"Europe\/Paris","taxonomy":"VILLE_FRANCE","type_poi":"VILLE_FRANCE","path":"\/previsions-meteo-france\/hennebont\/56700","linked_poi":null,"parents":[{"type":"DEPARTEMENT","title":"Morbihan","insee":"56"},{"type":"REGION","title":"Bretagne","insee":"5"},{"type":"PAYS","title":"France","insee":"PAYS007"},{"type":"CONTINENT","t
itle":"Europe"}],"is_dom_tom":false},"mf_atmogramme_node2":false,"mf_bulletin_tendance":{"zone":{},"poi":{"nid":"443608","id":"560830","id_insee":"560830","name":"Hennebont","id_bmr":null,"id_bms":null,"type":"Point d\u0027int\u00e9r\u00eat","lat":"47.803601","lng":"-3.278913","code_postal":"56700","timezone":"Europe\/Paris","taxonomy":"VILLE_FRANCE","type_poi":"VILLE_FRANCE","path":"\/previsions-meteo-france\/hennebont\/56700","linked_poi":null,"parents":[{"type":"DEPARTEMENT","title":"Morbihan","insee":"56"},{"type":"REGION","title":"Bretagne","insee":"5"},{"type":"PAYS","title":"France","insee":"PAYS007"},{"type":"CONTINENT","title":"Europe"}]},"canDisplay":true},"mf_site_details":{"title":""},"poi_title":{"lat":"47.80","lng":"-3.28"},"mf_vigilance_widget_poi":{"id":"560830","name":"Hennebont","lat":"47.803601","lng":"-3.278913","dpt":{"name":"Morbihan","cp":"56"}},"mf_vigilance_widget_type":"poi","mf_vigilance_widget_list_dpt":[],"mf_informations_speciales_settings":[{"setting_name":"max_notif","setting_
value":"5"}],"mf_barre_fav_current_poi":{"id":"560830","insee":"560830","name":"Hennebont","lat":"47.803601","lng":"-3.278913","dpt":"56","observation":true,"ref":"Morbihan","type":"VILLE_FRANCE","path":"\/previsions-meteo-france\/hennebont\/56700"},"mf_custom_logo":{"setting_name":"logo","image":"\/sites\/meteofrance.com\/files\/logo\/LOGO_MF.png","title":"M\u00e9t\u00e9o-France \u00e0 vos c\u00f4t\u00e9s, dans un climat qui change","alt":"M\u00e9t\u00e9o-France \u00e0 vos c\u00f4t\u00e9s, dans un climat qui change","href":"https:\/\/meteofrance.com"},"advency_gtm":{"config":{"gtm_id":"GTM-KN7SN62"}},"mf_search_form":{"config_base_urls":{"metropole":"meteofrance.com","reunion":"meteofrance.com","guadeloupe":"meteofrance.com","martinique":"meteofrance.com","nc":"meteofrance.com","pf":"meteofrance.com","mayotte":"meteofrance.com"}},"mf_tools_common":{"alias":"\/previsions-meteo-france\/hennebont\/56700","config":{"base_url":"meteofrance.com\/internet2018client\/2.0","site":"rpcache-aa","domain":"https:\/\/rpc
ache-aa.meteofrance.com"}},"user":{"uid":0,"permissionsHash":"22f2e431bf4a2ac0c5d112d74a677e15faba0202146dbc30ec14418935a3abaa"}}
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
Voila tout ce que je recupère moi "avec l"a requete
 

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Voila tout ce que je recupère moi "avec l"a requete
Bonjour Patrick,

Désolé j'ai pu voir hier soir, petit accident.
Déjà je sais pas comment tu fais pour avoir un rendu propre comme ça mais c'est déjà plus lisible (faudrait que tu m'apprennes ça)

Mais cela ne donne qu'une météo global des régions, tu ne peux pas avoir ta prévision complète pour ta ville souhaité ? si ? c'est ça que je comprends pas.

Merci
Nico
 

jurassic pork

XLDnaute Occasionnel
Hello jm,
Le souci c'est que Nicolas veut mettre cela dans un multipage dans un onglet et que cela ne fonctionne pas à cause du bug qui est évoqué dans un de mes messages précédents. D'ailleurs Nicolas ne s'est pas souvenu qu'il avait évoqué ce problème dans cette discussion. Patricktoulon lui avait donné une solution qui consiste à recréer le contrôle WebBrowser à chaque fois que l'on affiche l'onglet. Léo (L'I.A de Brave) m'a donné une autre solution : créer le contrôle directement dans le UserForm et faire apparaître seulement le WebBrowser quand on sélectionne l'onglet de la météo.
D'autre part je suppose que Nicolas veut que la sélection de la ville soit automatique en fonction de la ville rentrée à l'ouverture du classeur. Il faut alors utiliser le pilotage d'Internet Explorer. J'ai commencé à écrire quelque chose :

VB:
Sub InfosMeteo()
 'Déclaration des variables
  Dim IE As New InternetExplorer
  Dim IEDoc As HTMLDocument, objEvent
   IE.Navigate2 "https://www.infoclimat.fr/previsions-meteo/details/3013521/hennebont.html"
   IE.Visible = True
    Do Until IE.ReadyState = READYSTATE_COMPLETE
        ExecuteExcel4Macro ("CALL(""kernel32"",""Sleep"",50)"): DoEvents  ' tempo 50 ms
    Loop
    Set IEDoc = IE.Document
    IEDoc.querySelector("a[href=""#city""]").Click
    'Set objEvent = IEDoc.createEvent("keyboardEvent")
    'objEvent.initEvent "keypress", True, False
    'IEDoc.querySelector("#city-name-autocomp").dispatchEvent objEvent
    IEDoc.querySelector("#city-name-autocomp").Value = "Lorient"
     ExecuteExcel4Macro ("CALL(""kernel32"",""Sleep"",1000)"): DoEvents
    ' ? que faut-il faire pour faire apparaître la liste des réponses
     End Sub
Tout se passe bien jusqu'au moment où le autocomplete doit faire apparaître une liste.
Cette liste n'apparaît pas. Si quelqu'un a une idée.
D'autre part il faudrait savoir ce que veut exactement Nicolas comme infos. Parce qu'ave InfoClimat il aura les prévisions de la ville sur 8 jours à partir de la date du jour avec possibilité de détails en sélectionnant le jour dans la page web.
Ami calmant, J.P
 

patricktoulon

XLDnaute Barbatruc
re
Bonjour jurassic pork

Ho punaise!! déjà que nicolas est un peu perdu avec le DOM 1 et 2
si tu lui sort du DOM 3 queryselector on est pas arrivé


la liste n'apparait par ce que tu lance le click mais l'element n'apas le focus
ca fait parti des protection basique anti robots
essaie un focus avant peut être
 

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Bonjour à tous,
bonjour
J'ai ça qui fonctionne chez moi :

J'ai juste modifié la ligne "Set ctrl"

VB:
Private Sub MultiPage1_Change()
Dim ctrl
'Set ctrl = Me.Controls.Add("Shell.Explorer.2")
Set ctrl = Me.MultiPage1.Pages(1).Controls.Add("Shell.Explorer.2", "WebBrowser1", True)
With ctrl
.Height = 435
.Width = 760
.Name = "Météo"
.Silent = True
.Navigate _
"https://www.infoclimat.fr/previsions-meteo/details/2970071/" & "landrecies" & ".html"
End With
End Sub

Les seuls trucs,
-c'est que j'arrive pas à changer la ville dans le code depuis un textbox par exemple
-Et ce que je cherche, ce n'est pas forcément une page web mais les infos qu'il est possible d'avoir individuellement comme en post1

Merci à toi, c'est un bon départ qui match quand même.
 

Pièces jointes

  • Météo.xlsm
    84.8 KB · Affichages: 3

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD

Je fais ce que je peux mon Patrick
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…