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 :
    17
    "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
    XL 2010 Excel VBA, copier données dans feuilles en inserant ligne Forum Excel Aujourd'hui à 14:57
    XL 2010 consolider les donnees de deux fichiers excel en un seul: macro? RechercheV? Forum Excel Aujourd'hui à 09:04
    transférer des données sur une autre feuille Forum Excel Aujourd'hui à 00:00
    XL 2010 Copie données de textbox vers plusieurs feuilles Forum Excel Lundi à 23:39
    XL 2010 Export données textbox userfom Forum Excel Dimanche à 09:54

  3. Lolote83

    Lolote83 XLDnaute Accro

    Inscrit depuis le :
    6 Février 2010
    Messages :
    1102
    "J'aime" reçus :
    84
    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 :
    1102
    "J'aime" reçus :
    84
    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 :
    17
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
     
  6. Lolote83

    Lolote83 XLDnaute Accro

    Inscrit depuis le :
    6 Février 2010
    Messages :
    1102
    "J'aime" reçus :
    84
    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 :
    17
    "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 :
    17
    "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 :
    1884
    "J'aime" reçus :
    277
    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 :
    17
    "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 :
    17
    "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 :
    1884
    "J'aime" reçus :
    277
    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 :
    17
    "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 :
    1884
    "J'aime" reçus :
    277
    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 :
    17
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
    Merci pierre .
     
  16. rdaniel

    rdaniel XLDnaute Nouveau

    Inscrit depuis le :
    30 Novembre 2011
    Messages :
    17
    "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 :
    1884
    "J'aime" reçus :
    277
    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 :
    17
    "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 :
    1884
    "J'aime" reçus :
    277
    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 :
    17
    "J'aime" reçus :
    0
    Utilise:
    Excel 2007 (PC)
    Bonjour Pierre; :)
    Merci ça fonctionne bien.:D
    cordialement
    Daniel
     

Partager cette page