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.

 

[Nicolas JACQUIN]

Je sais pas si c'est la meilleur des solutions mais bon,

Si vous avez une meilleur idée, n'hésitez pas

 

[jurassic pork]

Hello,
voici ce que je te propose :
Le bouton Prévision Météo est désactivé tant qu'il n'y a pas un code de 5 chiffres dans le textbox TB_Ville
On fait le test dans l'événement Change du TextBox :

Private Sub TB_Ville_Change()
  If Len(TB_Ville) = 5 And IsNumeric(TB_Ville) Then
     Me.CommandButton1.Enabled = True
  Else
     Me.CommandButton1.Enabled = False
  End If
End Sub

Il faudrait changer le nom de tes boutons parce que CommandButton1 et CommandButton2 c'est pas terrible.
Il faut que le bouton de prévision météo soit désactivé dans la conception.
Il faudrait peut-être aussi que dans tu sauvegardes le code INSEE de la commune choisie dans le formulaire de position et que tu charges ce code au démarrage dans TB_Ville.
Si on rentre un code postal , le bouton prévision est activé.

Ami calmant, J.P

 

[Nicolas JACQUIN]

Hello,
voici ce que je te propose :
Le bouton Prévision Météo est désactivé tant qu'il n'y a pas un code de 5 chiffres dans le textbox TB_Ville
On fait le test dans l'événement Change du TextBox :

Private Sub TB_Ville_Change()
  If Len(TB_Ville) = 5 And IsNumeric(TB_Ville) Then
     Me.CommandButton1.Enabled = True
  Else
     Me.CommandButton1.Enabled = False
  End If
End Sub

Il faudrait changer le nom de tes boutons parce que CommandButton1 et CommandButton2 c'est pas terrible.
Il faut que le bouton de prévision météo soit désactivé dans la conception.
Il faudrait peut-être aussi que dans tu sauvegardes le code INSEE de la commune choisie dans le formulaire de position et que tu charges ce code au démarrage dans TB_Ville.
Si on rentre un code postal , le bouton prévision est activé.

Ami calmant, J.P

Bonjour,
je vais regarder ça, merci à toi
Nico

 

[jm.andryszak]

Bonjour à tous
La fonction InfosMeteo de Jurassic pork est géniale, je me la suis appropriée même si je ne la comprends qu'à moitié, pas trouvé de doc jusqu'à présent.
Question : Est-il possible de dimensionner les infos dans le WebBrowser (height,width) pour améliorer la lisibilité, je ne vois pas où ça se trouve dans le code source de la page.
Merci

 

[jurassic pork]

Question : Est-il possible de dimensionner les infos dans le WebBrowser (height,width) pour améliorer la lisibilité, je ne vois pas où ça se trouve dans le code source de la page.

Hello,
tu peux zoomer le contenu de l'activeX Browser . Exemple pour un zoom de 200 :

Private Sub CommandButton1_Click()
    Const OLECMDID_OPTICAL_ZOOM = 63
    Const OLECMDEXECOPT_DONTPROMPTUSER = 2
    Me.WebBrowser1.Navigate "about:blank"
    Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
        Sleep 50 ' tempo 50 ms
        DoEvents
    Loop
    Me.WebBrowser1.Document.Body.InnerHtml = InfosMeteo(Me.TB_Ville)
    Me.WebBrowser1.ExecWB OLECMDID_OPTICAL_ZOOM, _
        OLECMDEXECOPT_DONTPROMPTUSER, CLng(200), vbNull
End Sub

Ami calmant, JP

 

[Nicolas JACQUIN]

Hello,
voici ce que je te propose :
Le bouton Prévision Météo est désactivé tant qu'il n'y a pas un code de 5 chiffres dans le textbox TB_Ville
On fait le test dans l'événement Change du TextBox :

Private Sub TB_Ville_Change()
  If Len(TB_Ville) = 5 And IsNumeric(TB_Ville) Then
     Me.CommandButton1.Enabled = True
  Else
     Me.CommandButton1.Enabled = False
  End If
End Sub

Il faudrait changer le nom de tes boutons parce que CommandButton1 et CommandButton2 c'est pas terrible.
Il faut que le bouton de prévision météo soit désactivé dans la conception.
Il faudrait peut-être aussi que dans tu sauvegardes le code INSEE de la commune choisie dans le formulaire de position et que tu charges ce code au démarrage dans TB_Ville.
Si on rentre un code postal , le bouton prévision est activé.

Ami calmant, J.P

Re,

Je viens de reprendre le fichier pour que se soit plus compréhensible pour l'utilisateur,
dis moi ce que tu en pense.
Je n'avais pas pensé à la solution ".Enabled = True / False"

Et j'en profite pour te redemander comment tu fais pour récupérer les données du web (ligne par ligne) comme je t'avais demandé il y a quelque jour mais sans réponse, apparemment tu ne regarde pas tes MP.
(Sinon je poserai une discussion sur le sujet)

Merci à toi
Nico

 

[jurassic pork]

comment tu fais pour récupérer les données du web (ligne par ligne)

Je ne comprend pas trop bien la question ?? Dans quel cas de figure ? un exemple de ce que tu veux récupérer ?

 

[jcf6464]

bonjour a vous tous et le forum

Très bon travail bravo,

Juste une info dans la phase des lunes il manque une lune nouvelle en décembre le 01/12 et le 30/12/2024 cette année nous avons 13 lunes nouvelles au lieux de 12,

https://www.calendrier-365.fr/lune/phases-de-la-lune.html

une autre info
Quand on ouvre le formulaire on n'a pas la main il faut cliquer sur la page et cela produit (voir photo)

je suis sous firefox et windows 10 en 64 bits

bonne continuation jcf

 

[Nicolas JACQUIN]

Je ne comprend pas trop bien la question ?? Dans quel cas de figure ? un exemple de ce que tu veux récupérer ?

Pour récupérer la météo par exemple, comment tu fais ??
ou alors une autre info

 

[Nicolas JACQUIN]

bonjour a vous tous et le forum

Très bon travail bravo,

Juste une info dans la phase des lunes il manque une lune nouvelle en décembre le 01/12 et le 30/12/2024 cette année nous avons 13 lunes nouvelles au lieux de 12,

une autre info
Quand on ouvre le formulaire on n'a pas la main il faut cliquer sur la page et cela produit (voir photo)

je suis sous firefox et windows 10 en 64 bits

bonne continuation jcf

Bonjour,
oui j'avais vu ton message pour la lune mais je sais pas je vais essayé de comprendre pourquoi.
( c'est pas moi qui avais codé ça)

Quand au phénomène que tu as, je ne sais pas du tout, je travaille pas avec firefox,
tu n'as rien touché au code ?

 

[jcf6464]

re non pas touché au code

 

[jurassic pork]

Pour récupérer la météo par exemple, comment tu fais ??
ou alors une autre info

le pilotage d'un navigateur ?

 

[Nicolas JACQUIN]

le pilotage d'un navigateur ?

Oui par exemple ou pour récupérer les données

 

[jurassic pork]

il y a un tutoriel ici :
tutoriel sur l’interaction entre Excel VBA et Internet Explorer.
Les sujets développés sont :
la déclaration des variables
la navigation dans le code source d'une page
récupérer et saisir des données, agir sur des boutons, des liens, des cases à cocher...
le téléchargement de fichiers
adapter ses méthodes d'interaction en fonction du contenu de la page
un rappel sur l'utilisation des espions et des point d'arrêt

On peut maintenant piloter en VBA les autres navigateurs comme edge, chrome , firefox avec le protocole CDP :
Pilotage de navigateurs Web (Chrome, Edge, Firefox) en VBA en utilisant le protocole CDP

 

[Nicolas JACQUIN]

il y a un tutoriel ici :
tutoriel sur l’interaction entre Excel VBA et Internet Explorer.
Les sujets développés sont :
la déclaration des variables
la navigation dans le code source d'une page
récupérer et saisir des données, agir sur des boutons, des liens, des cases à cocher...
le téléchargement de fichiers
adapter ses méthodes d'interaction en fonction du contenu de la page
un rappel sur l'utilisation des espions et des point d'arrêt

On peut maintenant piloter en VBA les autres navigateurs comme edge, chrome , firefox avec le protocole CDP :
Pilotage de navigateurs Web (Chrome, Edge, Firefox) en VBA en utilisant le protocole CDP

Bonjour à tous,

Est ce que tu aurais moyen lignes par lignes ton code quand même, ça me travaille j'aimerai bien comprendre le procédé ainsi que l'interrogation, en te remerciant.

Nicolas