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

[Nicolas JACQUIN]

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.

 

[dysorthographie]

Bonjour,
pour ceux que ça pourrais intéresser, voici un l'onglet des ville avec le Code postaux.

j'avais déjà ajouté une macro pou le CP Insee. pour les données météo je suis pas a votre niveau mais je récupère casi tout je suis encore qu'a l'ébauche et je n'aurais peut-être pas fini quand ce poste sera flagué à résolu mais si ce que j'ai déjà fait peut être utile à quelqu'un ...

 

[Nicolas JACQUIN]

Re

Avec cette requête PQ, j'obtiens les mêmes infos qu'en VBA
EDITION: Un code M plus concis

let
Source = Json.Document(Web.Contents("https://geo.api.gouv.fr/communes?nom=Rennes")),
vTable = Table.FromRecords(Source),
Fin = Table.ExpandListColumn(vTable, "codesPostaux")
in
Fin

Spoiler: code initial -> moins concis

let
    Source = Json.Document(Web.Contents("https://geo.api.gouv.fr/communes?nom=Rennes")),
    #"Converti en table" = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    #"Column1 développé" = Table.ExpandRecordColumn(#"Converti en table", "Column1", {"nom", "code", "codeDepartement", "siren", "codeEpci", "codeRegion", "codesPostaux", "population", "_score"}, {"Column1.nom", "Column1.code", "Column1.codeDepartement", "Column1.siren", "Column1.codeEpci", "Column1.codeRegion", "Column1.codesPostaux", "Column1.population", "Column1._score"}),
    #"Column1.codesPostaux développé" = Table.ExpandListColumn(#"Column1 développé", "Column1.codesPostaux")
in
    #"Column1.codesPostaux développé"

Mais effectivement, le résultat s'affiche sur une feuille.
Mais c'est déjà le cas si ma mémoire est bonne pour d'autres infos dans le classeur de Nicolas.

@Nicolas JACQUIN
je continue par curiosité d'explorer la piste PQ
En espérant que d'autres tenteront aussi l'aventure.
Si cela t'intéresse, je publierai mes résultats dans don fil
Sinon comme indiqué par @jurassic pork , utilise le parser JSON en VBA..

Bonjour Staple1600,

PQ c'est pas du tout dans mais compétence, mais je suis à l'écoute de toutes améliorations

Merci

 

[TooFatBoy]

Merci pour vos retours

De rien. D'autant que, l'erreur sautant aux yeux, ça ne m'a pris que quelques instant pour la trouver.

 

[Staple1600]

Re

@Nicolas JACQUIN
Je n'ai pas dit que PQ était dans tes compétences
Mais qu'il y avait plein de PQ dans ton classeur
(Ce qu'on voit à droite de la copie d'écran ci-dessous)

Et comme tu disais dans ton premier message

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

 

[Nicolas JACQUIN]

De rien. D'autant que, l'erreur sautant aux yeux, ça ne m'a pris que quelques instant pour la trouver.

Bonjour TooFatBoy,
Là quelle ??

 

[Nicolas JACQUIN]

Re

@Nicolas JACQUIN
Je n'ai pas dit que PQ était dans tes compétences
Mais qu'il y avait plein de PQ dans ton classeur
(Ce qu'on voit à droite de la copie d'écran ci-dessous)
Regarde la pièce jointe 1204597
Et comme tu disais dans ton premier message

Re,
C'est à supprimer je pense, je vais refaire le tour

 

[TooFatBoy]

Là quelle ??

Là aucune, mais là-bas oui.

 

[jurassic pork]

Sinon j'ai toujours l'erreur 424.
Je comprends pas où j'ai fait une erreur.

Tu as l'erreur 424 avec quel code ?
Sinon dans ta requête powerquery , il y a un petit souci . Il peut y avoir plusieurs codes postaux pour la même commune et dans ce cas les lignes sont répétées. Dans mon code VBA je ne prend que le premier code postal

 

[Staple1600]

Re

@jurassic pork
L'erreur survenait quand j'utilisais le parser de Daniel FERRY
Mais comme plus tard, tu as dit qu'il fallait reprendre l'ancien parser (celui de Tim HALL)
Je suis parti sur la piste PQ, et je m'y embourbe un chouia
(J'essaie de créé une fonction pour passer le nom d'une ville en paramètre)
J'en suis là

let
Ville=Choix_Ville,
Source = Json.Document(Web.Contents("https://geo.api.gouv.fr/communes?nom=" & Ville)),
vTable = Table.FromRecords(Source),
Fin = Table.ExpandListColumn(vTable, "codesPostaux")
in
Fin

Et par exemple pour Nantes, j'obtiens

versus ceci en VBA (avec ton code)

 

[jurassic pork]

C'est ce que je disais : il y a plusieurs lignes quand il y a plusieurs codes postaux pour la même commune, il faut prendre que la première. Un spécialiste PowerQuery va te régler cela en moins de 2 et il va aussi te récupérer la ville dans une cellule nommée du classeur.

 

[Staple1600]

Re

@jurassic pork

et il va aussi te récupérer la ville dans une cellule nommée du classeur.

Ca je sais faire
Mais comme tu disais que l'inconvénient de PQ c'est de passer par le chargement des données dans une feuille
J'essaie de voir si on peut ne pas passer par une feuille
(mais récupérer le résultat de la requête dans un string que l'on pourra ensuite manier en VBA)
Pour le moment, je patauge
(et je vais sans doute patauger longtemps si PQ ne renvoie ses résultats que sur des feuilles

 

[jurassic pork]

Re

@jurassic pork
Mais comme tu disais que l'inconvénient de PQ c'est de passer par le chargement des données dans une feuille
J'essaie de voir si on peut ne pas passer par une feuille

J'ai aussi regardé ce problème et j'ai trouvé une possibilité. Il faut passer par un Data Model. Il faut charger la requête Powerquery dans le Data Model. J'y suis arrivé mais je maîtrise pas trop pour l'instant alors je ne met pas de code.
Par contre une fois que cela est fait j'arrive à lire les données qui sont dedans. Voici par exemple pour ta requête PowerQuery chargée dans le DataModel (CodeINSEE est la connexion au Data Model) :

Sub GetPowerQueryResult()
    Dim oConn As WorkbookConnection, oRS As Object ' Recordset
    Dim oCnn As Object, sTabName As String
    Set oConn = ThisWorkbook.Connections("CodeINSEE")
    sTabName = oConn.ModelTables(1).Name
    Set oCnn = ThisWorkbook.Model.DataModelConnection.modelConnection.ADOConnection
    Set oRS = CreateObject("ADODB.RecordSet")
    oRS.Open "EVALUATE '" & sTabName & "'", oCnn
    Do While Not oRS.EOF
        Debug.Print oRS.Fields(0) & " -> Code INSEE: " & oRS.Fields(1) & _
                               " - Dep: " & oRS.Fields(2) & _
                               " - Cp: " & oRS.Fields(6) & _
                               " - Pop: " & oRS.Fields(7)
        oRS.MoveNext
    Loop
End Sub

voici ce que j'obtiens comme résultat :

Rennes -> Code INSEE: 35238 - Dep: 35 - Cp: 35000 - Pop: 225081
Rennes -> Code INSEE: 35238 - Dep: 35 - Cp: 35200 - Pop: 225081
Rennes -> Code INSEE: 35238 - Dep: 35 - Cp: 35700 - Pop: 225081
Rennes-le-Château -> Code INSEE: 11309 - Dep: 11 - Cp: 11190 - Pop: 89
Rennes-les-Bains -> Code INSEE: 11310 - Dep: 11 - Cp: 11190 - Pop: 210
Rennes-sur-Loue -> Code INSEE: 25488 - Dep: 25 - Cp: 25440 - Pop: 108
Rennes-en-Grenouilles -> Code INSEE: 53189 - Dep: 53 - Cp: 53110 - Pop: 108

 

[Staple1600]

Re

@jurassic pork
Bravo pour ta persévérance
Mais là, en te lisant, je viens de me péter une veine dans le lobe droit.

J'y suis arrivé mais je maîtrise pas trop pour l'instant alors je ne met pas de code.

PS: n'hésites pas à m'envoyer ton code en MP (histoire que mon lobe gauche ne soit pas en reste )

 

[jurassic pork]

Re

@jurassic pork
PS: n'hésites pas à m'envoyer ton code en MP (histoire que mon lobe gauche ne soit pas en reste )

A mon avis il est préférable d'attendre l'intervention de gourous du PowerQuery parce que mon code n'a marché qu'une fois et ne fonctionne plus maintenant

 

[Staple1600]

Re

@jurassic pork
J'incante depuis hier les dieux PQ pour faire venir ces gourous
Mais j'ai du perdre mon mojo, car je ne voie que le soleil qui poudroie comme disait Anne (ou sa sa sœur, je sais plus )

En désespoir de cause, je vais peut-être ouvert un fil à ce sujet (quoique quand je vois ce que je vois)