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

Nicolas JACQUIN · Mardi à 16:56

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 · Hier à 17:14

Merci de ta correction, il faudrait que tu essais une chose :
Quand tu clic sur un jour, l'userform s'ouvre, tu clic sur météo, tu clic sur marée ou éphéméride et tu reclic sur météo puis prévision météo, il y a un bug ?

Merci
Nico

jurassic pork · Hier à 17:26

Moi je n'ai pas ce problème mais comme le disait patricktoulon remplacer le Navigate2 par Navigate pour voir.
Et sans faire le changement de page cela fonctionne ? tu utilises bien mon classeur ?
[EDIT] D'après ce que je vois le WebBrowser n'est plus visible quand tu reviens sur la page Météo.
Méfies-toi il y avait une erreur dans ton classeur sur le traitement de l'événement changement de page. Page3 Page4 . Dans mon classeur cela a été corrigé et chez moi le WebBrowser est toujours visible quand on active la page Météo. Dans ton classeur la page Météo c'est la Page 4 :

VB:

If MultiPage1.SelectedItem.Name = "Page4" Then
        Me.WebBrowser1.Visible = True
    Else
        Me.WebBrowser1.Visible = False
    End If

Nicolas JACQUIN · Hier à 18:26

jurassic pork à dit:
Moi je n'ai pas ce problème mais comme le disait patricktoulon remplacer le Navigate2 par Navigate pour voir.
Et sans faire le changement de page cela fonctionne ? tu utilises bien mon classeur ?
[EDIT] D'après ce que je vois le WebBrowser n'est plus visible quand tu reviens sur la page Météo.
Méfies-toi il y avait une erreur dans ton classeur sur le traitement de l'événement changement de page. Page3 Page4 . Dans mon classeur cela a été corrigé et chez moi le WebBrowser est toujours visible quand on active la page Météo. Dans ton classeur la page Météo c'est la Page 4 :

VB:

If MultiPage1.SelectedItem.Name = "Page4" Then Me.WebBrowser1.Visible = True Else Me.WebBrowser1.Visible = False End If

Re,
Le Navigate ou Navigate2 ne change rien.

En partant du fichier que tu as modifié,
la seule chose que j'ai modifié, c'est que j'avais mis:

VB:

Private Sub MultiPage1_Change()
    If MultiPage1.Value = 1 Then
        Me.width = 448
        Me.height = 408
    ElseIf MultiPage1.Value = 0 Then
        Me.width = 560
        Me.height = 531
    ElseIf MultiPage1.Value = 2 Then ' 2 pour page Météo
        Me.width = 703
        Me.height = 531
        Me.WebBrowser1.width = 678
    End If
End Sub

Et suite à ta dernière réponse, j'ai mis:

Code:

Private Sub MultiPage1_Change()
    If MultiPage1.Value = 1 Then
        Me.width = 448
        Me.height = 408
    ElseIf MultiPage1.Value = 0 Then
        Me.width = 560
        Me.height = 531
    'ElseIf MultiPage1.Value = 2 Then ' 2 pour page Météo
    '    Me.width = 703
    '    Me.height = 531
    '    Me.WebBrowser1.width = 678
    End If
 
    If MultiPage1.SelectedItem.Name = "Page4" Then
        Me.WebBrowser1.Visible = True
        Me.width = 703
        Me.height = 531
        Me.WebBrowser1.width = 678
    Else
        Me.WebBrowser1.Visible = False
    End If
End Sub

Mais c'est pareil

Edit: si, j'ai juste rajouté ça dans initialyse

Code:

    With Worksheets("MaPosition")
        TB_Ville = .cells(2, 2)
    End With

Merci
Nico

Nicolas JACQUIN · Hier à 18:45

En gros faudrait réinitialiser l'userform si on change de page si on est sur la page Météo ??

jurassic pork · Hier à 18:51

Bon ben tu me fais toujours la même erreur : LE WEBBROWSER DOIT ETRE DANS LE USERFORM PAS DANS LA PAGE METEO ça fait plusieurs fois que je te le dis !
Pour y arriver facilement :
1 - Couper le WebBrowser
2 - Dans les propriétés du Contrôle Multipage1 mettre la propriété Width à 0 (noter la valeur avant le changement)
3 - Maintenant on a plus les pages , on colle le WebBrowser (au bon endroit ) qui va se retrouver directement dans le formulaire
4 - On remet la propriéte Width du Multipage1 à la valeur notée

Nicolas JACQUIN · Hier à 18:56

jurassic pork à dit:
Bon ben tu me fais toujours la même erreur : LE WEBBROWSER DOIT ETRE DANS LE USERFORM PAS DANS LA PAGE METEO ça fait plusieurs fois que je te le dis !

J'y ai pas touché !!

jurassic pork · Hier à 18:59

Ben oui il est pas bon dans ton classeur.
Si tu utilises mon classeur c'est corrigé

Nicolas JACQUIN · Hier à 19:01

Je suis parti de correction que tu as fais du post #45, j'ai rien touché à l'userform ou WebBrowser

jurassic pork · Hier à 19:06

Bon si tu pars pas de mon classeur comme source , il y a des modifs que tu ne vois pas. il n' y a pas que le code qui a été changé

Nicolas JACQUIN · Hier à 19:44

Moi je pars juste de ma dernière mise à jour donné au début, tu as fais une correction dessus comme je disais en post #53, je n'ai rien fais de spécial et ne vais pas retourner sur une version d'il y a 1 mois.
Merci à toi
Nico

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

Nicolas JACQUIN

XLDnaute Impliqué

Pièces jointes

Nicolas JACQUIN

XLDnaute Impliqué

jurassic pork

XLDnaute Occasionnel

Nicolas JACQUIN

XLDnaute Impliqué

Pièces jointes

Nicolas JACQUIN

XLDnaute Impliqué

jurassic pork

XLDnaute Occasionnel

Nicolas JACQUIN

XLDnaute Impliqué

jurassic pork

XLDnaute Occasionnel

Nicolas JACQUIN

XLDnaute Impliqué

jurassic pork

XLDnaute Occasionnel

Nicolas JACQUIN

XLDnaute Impliqué

Discussions similaires