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]

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]

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 :

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

 

[Nicolas JACQUIN]

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 :

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:

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:

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

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

Merci
Nico

 

[Nicolas JACQUIN]

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

 

[jurassic pork]

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]

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]

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

 

[Nicolas JACQUIN]

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

 

[jurassic pork]

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]

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

 

[Nicolas JACQUIN]

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é

Bonjour à tous,

C'est bon, j'ai compris l'erreur, ça bug plus, j'avais mal compris le faites qu'il faille que ce soit sur le userform et non le multipage

Merci

 

[Staple1600]

Bonjour le fil

=> Question à tous <=
Avec O365 64bits (W10)
J'ai à chaque fois ce message quand je clique sur le CommandButton

Vous n'avez pas ce message sur vos PC ?

 

[Nicolas JACQUIN]

Bonjour le fil

=> Question à tous <=
Avec O365 64bits (W10)
J'ai à chaque fois ce message quand je clique sur le CommandButton
Regarde la pièce jointe 1204539
Vous n'avez pas ce message sur vos PC ?

Bonjour Staple1600,
Moi je n'est pas le soucis, sur Microsoft® Excel® LTSC MSO (Version 2304 Build 16.0.16327.20262) 32 bits
Je sui tombé la dessus:

Tutorial : le mode d'emploi de Comment désactiver un Avertissement de sécurité d'une connexion HTTPS sécurisé

A voir
Nico

 

[jurassic pork]

Bonjour le fil

=> Question à tous <=
Avec O365 64bits (W10)
J'ai à chaque fois ce message quand je clique sur le CommandButton
Regarde la pièce jointe 1204539
Vous n'avez pas ce message sur vos PC ?

Hello,
Moi aussi j'avais ce message.
Il faut modifier une option d'internet explorer , regarde le message #5 solution A pour ne plus avoir le message.

Ami calmant, J.P

 

[Staple1600]

Re

@NicolasJACQUIN
Merci pour le lien -> problème résolu
Pour Edge, il faut faire
Paramètres->Navigateur par défaut->Options internet

@jurassic pork
Etant sous W10, j'avais lu le message#5 en tranversal
En passant par ce bon vieux IE (avec le tuto cité par @NicolasJACQUIN), ca été plus simple

Sinon, question existentielle
Est-ce prudent ou pas cette bidouille dans la Registry ?
Ca laisse la porte ouverte à d'éventuels soucis de sécurité, non ?
(activeX vérolés et tutti quanti)