Prévision de la météo avec exportation de données web

[anthoYS]

Bonjour,

Le premier onglet doit importer des données d'Internet, et faire apparaître les horaires, avec le temps et les C° attendu.
Non loin un logo, m'indiquant quelle tenu devrait-je porter (court ou long).

Le second onglet, lui vise à colorer en fond vert une cellule si l'heure actuelle est compris dans les tranches indiqués.

Merci par avance.

 

[anthoYS]

Re : Prévision de la météo avec exportation de données web

re,

Par exemple voici ce qui est annoncé pour demain comment le transposer sur Excel (même si les logos n'y sont pas tant pis mais au moins la température)?



En outre pour les MEFC de l'onglet N°2, personne n'a idée?

En attente de réponse ;

Cordialement, j'espère à bientôt !

Pour l'heure, bon appétit pour ce qui mangent ou vont y aller !

 

[anthoYS]

Re : Prévision de la météo avec exportation de données web

Re,

exemple de ce qui est attendu à l'heure actuelle (9:57).

Merci par avance

 

[job75]

Re : Prévision de la météo avec exportation de données web

Bonjour anthoYS, le fil, le forum,

Voici une solution facile avec SendKeys et Application.OnTime.

Je n'ai pas de problème chez moi (Excel 2003).

Si problème chez vous, voyez en modifiant le nombre (10) de tabulations (code en rouge).

Dans le code de la feuille contenant les liens hypertextes :

Dim app$, n As Byte 'mémorise les variables

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
app = Application.Name
[10:250].Clear
Copier
End Sub

Private Sub Copier()
If n = 30 Then MsgBox "Copie impossible !": n = 0: Exit Sub 'sécurité
n = n + 1
SendKeys "{[COLOR="Red"]TAB 10[/COLOR]}^a^c" 'tabulations + sélectionne tout + copie
Application.OnTime Now + 1 / 86400, "Feuil1.Coller" 'essai chaque seconde
End Sub

Private Sub Coller()
Dim i As Integer, p As Boolean
[A10].Select
Application.ScreenUpdating = False
On Error Resume Next
Me.Paste
If Selection.Count = 1 Then Copier: Exit Sub 'en attente de l'ouverture effective
AppActivate app 'active Excel
Me.DrawingObjects.Delete 'supprime tous les objets
[A10].Select
For i = 250 To 10 Step -1
  If Cells(i, 1) = "Perpignan" Then
    p = True
  Else
    If p Or Application.CountIf(Rows(i).Resize(3), "*°*") = 0 Then Rows(i).Delete
  End If
Next
Rows(11).Delete '[Edit] car il y a un lien hypertexte sur cette ligne...
n = 0
End Sub

Bien sûr on peut ensuite continuer en analysant le tableau et les températures, c'est du classique.

Là je vous laisse faire.

Edit 1 : Resize(3) au lieu de Resize(2) pour avoir les jours avec le 2ème lien.

Edit 2 : télécharger le fichier avant de tester.

A+

 

[anthoYS]

Re : Prévision de la météo avec exportation de données web

Bonjour job75, masterdisco

Merci à toi (Job75).

Si problème chez vous, voyez en modifiant le nombre (10) de tabulations (code en rouge).

Je ne parviens pas à comprendre ce qui a été fait, en tout cas je constate tout votre travail, mais je n'arrive pas à exécuter cela.

Merci de me préciser comment faire pour que ça fonctionne.

Voici les résultats après clic sur liens hypertexte que j'avais joint premier et second respectivement dans l'ordre ;





le second a donc créer une image. 😕

@+

 

[anthoYS]

Re : Prévision de la météo avec exportation de données web

Re,

J'ai retenté, voilà, après clic sur le lien, il m'a selectionné toute la feuille, j'ai fait entré, et ça m'a afficher cela.

Pas mal.

Est-ce bien cela?



Or, est-il possible maintenant d'afficher des conditions et en fonction de cela, afficher la tenue adéquate à la journée.

Encore mieux pour celle-ci.



Formule à adapter selon actualisation.

Merci par avance.

 

[job75]

Re : Prévision de la météo avec exportation de données web

Re,

Quand on clic sur un lien, les macros copient la feuille Internet entre les lignes 10 et 250, un point c'est tout.

Maintenant pour ceci :

Or, est-il possible maintenant d'afficher des conditions et en fonction de cela, afficher la tenue adéquate à la journée.

j'avais écrit à l'avance :

Bien sûr on peut ensuite continuer en analysant le tableau et les températures, c'est du classique.

Là je vous laisse faire.

Sur du classique, après 973 posts, vous devriez commencer à vous débrouiller tout seul, sans attendre chaque fois que tout vous arrive tout cuit, vous ne croyez pas ?

A+

 

[anthoYS]

Re : Prévision de la météo avec exportation de données web

Re,

Sur du classique, après 973 posts, vous devriez commencer à vous débrouiller tout seul, sans attendre chaque fois que tout vous arrive tout cuit, vous ne croyez pas ?

Oui, je suis d'accord job75 je ne voulait pas créer de malentendu, tant pis ; Merci beaucoup (malgré tout et) pour toute votre aide généreuse encore une fois.