1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Données temperatures Jour+1 de méteo-france

Discussion dans 'Forum Excel' démarrée par rdaniel, 3 Décembre 2018.

  1. rdaniel

    rdaniel XLDnaute Nouveau

    Inscrit depuis le :
    30 Novembre 2011
    Messages :
    20
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
    Bonjour,:)
    Sur le site de météo France de sa ville on a les températures prévisionnelles à J+n
    j'aimerais pourvoir chaque, jour disons vers 12h00, récupérer les températures de J+1. de 7h a 22h
    Je pense qu'elles sont publiques puisque largement diffusées sur de nombreux médias
    Le but est de les compiler pour déduire la position d'un thermostat de charge d'un radiateur a accumulation chargeant la nuit. Ci joint un exemple:
    upload_2018-12-2_23-56-4.png

    Pouvoir importe les valeurs 12-12-13-13-13-12 dans des cellules différentes afin d'applique une formule
    Actuellement je fais ça manuellement , je voudrait l'automatiser en toutes légalité.
    Je n'ai pas besoin de stocker ces mesures ,seul j+1 m’intéresse.
    Merci de vous intéresse a mon projet:D
    Cordialement
    Daniel
     
  2. Chargement...

    Discussions similaires - Données temperatures Jour+1 Forum Date
    VBA Copier données sans mise en forme? Forum Excel Hier à 23:06
    Mise en forme d'étiquettes de données avec MsoAutoShapeType Forum Excel Hier à 17:50
    XL 2007 base de donnees relié a plusieurs feuille et graphique Forum Excel Mardi à 19:27
    Concaténation de données Forum Excel Mardi à 13:59
    XL 2013 Aide sur projet perso / combo box, base de données et document a imprimer Forum Excel Samedi à 21:47

  3. Lolote83

    Lolote83 XLDnaute Accro

    Inscrit depuis le :
    6 Février 2010
    Messages :
    1116
    "J'aime" reçus :
    86
    Sexe :
    Masculin
    Habite à:
    Draguignan
    Utilise:
    Excel 2010 (PC)
    Salut RDANIEL,
    En retour un fichier avec la météo de ma ville
    Les données sont récupérées dans l'onglet RECUP.
    Les températures sont a/c de la ligne 93 pour aujourd'hui, 99 pour demain, 105 pour après demain ....
    A toi de récupérer l'URL de ta ville et de la remplacer dans le code TEST
    @+ Lolote83
     

    Pièces jointes:

  4. Lolote83

    Lolote83 XLDnaute Accro

    Inscrit depuis le :
    6 Février 2010
    Messages :
    1116
    "J'aime" reçus :
    86
    Sexe :
    Masculin
    Habite à:
    Draguignan
    Utilise:
    Excel 2010 (PC)
    Re salut RDANIEL,
    Voici en retour ton fichier.
    Le résultat des températures d'aujourd'hui, de demain et d'après demain sont inscrites dans l'onglet demande a/c de la cellule C31
    @+ Lolote83
     

    Pièces jointes:

  5. rdaniel

    rdaniel XLDnaute Nouveau

    Inscrit depuis le :
    30 Novembre 2011
    Messages :
    20
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
     
  6. Lolote83

    Lolote83 XLDnaute Accro

    Inscrit depuis le :
    6 Février 2010
    Messages :
    1116
    "J'aime" reçus :
    86
    Sexe :
    Masculin
    Habite à:
    Draguignan
    Utilise:
    Excel 2010 (PC)
    Re salut,
    Est-ce que cela te convient ?
    @+ Lolote83
     
  7. rdaniel

    rdaniel XLDnaute Nouveau

    Inscrit depuis le :
    30 Novembre 2011
    Messages :
    20
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
    :DBonjour

    Merci pour votre réponse qui s'approche très prés de mon projet.
    n'étant oublier les9/10iem de mon VBA , je ne sais pas trop comment modifier votre macro pour avoir toutes les températures proposées par Météo-France de j+1, concrètement se 1h a 1h... il y en a 9 mesures à priori
    (Avec ces 9 températures j'appliquerai un coefficient pour déterminer les besoin d'accumulation pour la journée suivante.
     
  8. rdaniel

    rdaniel XLDnaute Nouveau

    Inscrit depuis le :
    30 Novembre 2011
    Messages :
    20
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
    Bonjour, je patine un peu avec la manipulation de ce forum, manque d'habitude, merci pour vos tableurs , j'avais oublier de faire répondre pour t'envoyer ma réponse précédente.
    Très cordialement Daniel
     
  9. tatiak

    tatiak XLDnaute Accro

    Inscrit depuis le :
    25 Février 2005
    Messages :
    1973
    "J'aime" reçus :
    295
    Habite à:
    Morbihan
    Page d'accueil :
    Utilise:
    Excel 2016 (PC)
    Bonsoir à tous,

    Voici une autre méthode pour récupérer les prévisions météo de sa ville.
    La méthode est basée sur l'API de "prevision-meteo.ch" (valable pour la France).

    Dans le fichier, on saisit sa ville en A1 ; le bouton "Go" récupère les info :
    * première ligne = observation actuelle
    * lignes suivantes prévisions sur les 5 jours suivants, toutes les 3 heures.

    Pour cette démo, je n'ai sélectionné que la température, le vent et les conditions générales, mais on peut afficher d'autres indicateurs (humidité par exemple)

    Bonne soirée
    Pierre
     

    Pièces jointes:

  10. rdaniel

    rdaniel XLDnaute Nouveau

    Inscrit depuis le :
    30 Novembre 2011
    Messages :
    20
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
    Bonjour Pierre et merci de t’intéresser a mon projet
    ais-je bien compris le code de la macro
    si je veux que j+1 je modifie la ligne For i = 0 to 4 en For i = 1
    si je veux que les température je garde que .Range("D" & lg).Value = VBA.CallByName(Dta, "TMP2m", VbGet)
    dans :
    .Range("A" & 2).Value = "Observé"
    .Range("B" & 2).Value = DT_US2FR(VBA.CallByName(Fcst, "date", VbGet))
    .Range("C" & 2).Value = VBA.CallByName(Fcst, "hour", VbGet)
    .Range("D" & 2).Value = VBA.CallByName(Fcst, "tmp", VbGet)
    .Range("E" & 2).Value = VBA.CallByName(Fcst, "wnd_spd", VbGet)
    .Range("F" & 2).Value = VBA.CallByName(Fcst, "wnd_gust", VbGet)
    .Range("G" & 2).Value = VBA.CallByName(Fcst, "wnd_dir", VbGet)
    idem dans la déclaration des variable.
    Du coup pas besoin de boucle non plus ?(Il y a longtemps que je n'ai pas codé)
    Cordialement
     
  11. rdaniel

    rdaniel XLDnaute Nouveau

    Inscrit depuis le :
    30 Novembre 2011
    Messages :
    20
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
    --------------------------
    finalement j'ai pu adapter la macro pour obtenir les température de 8h a 22h (heures de restitution de l'énergie heure creuse d'un accumulateur-encore merci:):):)
     

    Pièces jointes:

  12. tatiak

    tatiak XLDnaute Accro

    Inscrit depuis le :
    25 Février 2005
    Messages :
    1973
    "J'aime" reçus :
    295
    Habite à:
    Morbihan
    Page d'accueil :
    Utilise:
    Excel 2016 (PC)
    [​IMG]
    Ok, c'est cool si tu as ce que tu veux.

    Juste pour le fun, voici une version plus complète, avec pression atmosphérique, précipitations, + icônes météo + flèches de direction du vent
    Rq : ici la vitesse du vent est en nœuds (je fais de la voile ...)

    Plus d'info sur => http://tatiak.canalblog.com/archives/2018/12/04/36918388.html
    Pierre
     

    Pièces jointes:

  13. rdaniel

    rdaniel XLDnaute Nouveau

    Inscrit depuis le :
    30 Novembre 2011
    Messages :
    20
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
    Bonjour Pierre,
    je sais lancer un fichier Excel au démarrage de Windows, mais je ne me souvient plus du code pour que la macro s’exécute automatiquement à l'ouverture du fichier Excel et uniquement entre 8h et 20h
    Si tu as quelques pistes
    Merci
    Daniel
     
  14. tatiak

    tatiak XLDnaute Accro

    Inscrit depuis le :
    25 Février 2005
    Messages :
    1973
    "J'aime" reçus :
    295
    Habite à:
    Morbihan
    Page d'accueil :
    Utilise:
    Excel 2016 (PC)
    C'est pas dur, dans Thisworkbook :
    Code (Visual Basic):

    Private Sub Workbook_Open()
           If Time >= (1 / 24 * 8) And Time <= (1 / 24 * 20) Then
                procédure_à_exécuter_entre_8h00_et_20h00
           End If
    End Sub
     
     
  15. rdaniel

    rdaniel XLDnaute Nouveau

    Inscrit depuis le :
    30 Novembre 2011
    Messages :
    20
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
    Merci pierre .
     
  16. rdaniel

    rdaniel XLDnaute Nouveau

    Inscrit depuis le :
    30 Novembre 2011
    Messages :
    20
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
    bonjour Pierre, c'est vrai que le code est simple (en tout cas pour moi quand il est écrit, mais je ne sais pas, (je ne sais plus) comment l’intégrer dans la macro que tu m'as créer avant sur les données météo.
    j'ai copier coller cette macro "Workbook_Open() "au début d la précédente en remplaçant "procédure_à_exécuter_entre_8h00_et_20h00" par "Sub Prev_Meteo()"
    et ça ne fonctionne pas en me demandant un signe = .....
    Si tu peux m'aider
    Cordialement et merci
    Daniel
     
  17. tatiak

    tatiak XLDnaute Accro

    Inscrit depuis le :
    25 Février 2005
    Messages :
    1973
    "J'aime" reçus :
    295
    Habite à:
    Morbihan
    Page d'accueil :
    Utilise:
    Excel 2016 (PC)
    Code (Visual Basic):
    Private Sub Workbook_Open()
           If Time >= (8 / 24 ) And Time <= (20 / 24) Then
                Prev_Meteo
           End If
    End Sub
     
  18. rdaniel

    rdaniel XLDnaute Nouveau

    Inscrit depuis le :
    30 Novembre 2011
    Messages :
    20
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
    Merci , mais je n'y arrive pas après plusieurs essais un peu à tâtons, j'ai une erreur suite à ma faible connaissance du VBA.:(
    Cordialement,
    Daniel
     
  19. tatiak

    tatiak XLDnaute Accro

    Inscrit depuis le :
    25 Février 2005
    Messages :
    1973
    "J'aime" reçus :
    295
    Habite à:
    Morbihan
    Page d'accueil :
    Utilise:
    Excel 2016 (PC)
    voir fichier démo
     

    Pièces jointes:

  20. rdaniel

    rdaniel XLDnaute Nouveau

    Inscrit depuis le :
    30 Novembre 2011
    Messages :
    20
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
    Bonjour Pierre; :)
    Merci ça fonctionne bien.:D
    cordialement
    Daniel
     
  21. rdaniel

    rdaniel XLDnaute Nouveau

    Inscrit depuis le :
    30 Novembre 2011
    Messages :
    20
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
    Bonjour Pierre :)
    Si la (ta) macro fonctionne toujours bien , j'ai un doute sur les données sources, en effet et sauf erreur de ma part, les données températures fournies par https://www.prevision-meteo.ch/services/json/solignac sont différentes de celle de
    http://www.meteofrance.com/previsions-meteo-france/solignac/87110
    Exemple a 7h de matin pour le 25/12/2018 on a 0.3 °c d'un coté (json) et 4-5°c sur météo France....
    Celles de météo France m'apparaissent plus réalistes.
    Je sais qu' Excel peut récupérer des données internet (sur 2010) Onglet Données -->Données Externes --> a partir du Web ; Le traitement après est hors de mes compétences
    Peut être existe t il d'autres sources plus cohérentes avec météo France
    Peut être j"ai fait une erreur d'interprétation.
    si tu peux m'aider merci et bonne fête de fin d'année.:D
    Daniel
     

Partager cette page