Météo image sur cellule

[Schludo]

Bonjour,

Je suis responsable de planification dans une entreprise qui intervient régulièrement à l'extérieur pour la pose de verre ou autre élément de la construction.
J'ai crée un ficher excel pour l'organisation de la semaine et j'aimerai avoir dans ce fichier dans les cellules correspondantes, les images correspondante à la météo de la semaine.
Soit le lundi : C3 + K3
le mardi : D3 + L3
mercredi ect ...

Nous sommes en Suisse donc l'idéal serait de pouvoir tirer les infos d'un site comme météosuisse.ch ou landi.ch ou encore météoblue.

S'il n'est pas possible d'avoir les images correspondant à la météo, il faudrait au moins les thermes : pluie, soleil, nuageux, neige, et la température.

Merci pour votre aide.

Ludo

 

[BOISGONTIER]

Bonsoir,

Exemple en PJ

Boisgontier

 

[Schludo]

Bonjour à tous,
Les prev météo en temps réel via Api diverses dont Meteo.ch
Pierre

Merci Tatiak,

C'est exactement ça que je recherche.
J'ai d'ailleurs sur ce fichier que j'ai essayé de travaillé mais j'ai un fichier erreur à l'exécution et je ne vois pas comment intégrer cela à mon fichier.

Merci pour votre retour.

Schludo

 

[Schludo]

Mon fichier n'est pas compatible Mac

Je suis sur PC. Win 7 Pro & Win10 Pro

 

[Schludo]

Ok tant mieux!
Est-ce que mon fichier 'out-of-box' tourne sans bug sur votre PC?
(votre PC tourne avec Office 32bits?)

La feuille Agate-France ne génère aucun soucis et s'actualise de manière parfaite.
Que voulez-vous dire par fichier out-of-box ?

 

[Schludo]

Ok, en effet la méthode pour Agate et celle pour Meteo.ch ne sont pas identiques.

Probablement un souci avec MSScriptControl.ScriptControl ou avec WINHTTP.WinHTTPRequest.5.1

Votre Office est en 32 ou 64 bits? (si 64 je ne sais pas faire)

Effectivemement je suis en 64 bits. Et oui le soucis vient de Set Script

Je vous mets en annexe la ligne posant problème.
je vous remercie pour votre collaboration, je trouve très poussé votre travail.

 

[Schludo]

alors essayez de voir cette discussion
=> Compatibility Issues with Microsoft ScriptControl

Merci pour ce lien.

Vous aviez vu juste le soucis vient bien de là.

Je me permet de vous demander où ce code doit être insérer. Car après plusieurs essaye je ne pointe pas sur la solution. Je suis novice en VBA.

 

[herve62]

Bonjour tous , Slt tatiak ,Schludo
Je viens juste de jeter un oeil sur cette appli qui semble intéressante
Mais moi aussi j'ai des bugs avec ,
à l'ouverture le : With Sheets(1).ComboBox1 dans init_combo > erreur 1004
ensuite avec le bouton "meteo ch" :
With HTML
.Open "GET", URL, False
.send
> Pas la ressource necessaire trouvée
Tout cela n'est que pour la Suisse , le reste OK

 

[Staple1600]

Bonjour le fil, Schludo, tatiak, herve62

Test OK sur Excel 2013 32bits - W10 64 bits
(J'ai cliqué sur tous les boutons, sur toutes les feuilles)
Pas de bug

=> Tatiak: Bravo, du très bel ouvrage.
(De la lecture en perspective pour les soirs d'hiver, au près de la cheminée )

 

[herve62]

oubli ! , je suis W7 pro 32b; office pro 2010
Sinon maintenant que j'ai enregistré avec autorisation "activer les modif" , je n'ai donc plus à cliquer
le bug 1 a disparu
reste ci joint au niveau .send

 

[herve62]

J'ai testé mais idem , pour moi c'est pas grave je suis pas Suisse !!!

 

[Staple1600]

Re

herve62
Si tu cliques su Débogage, quelle ligne de code est surlignée en jaune?

 

[herve62]

Dans mon #16 qui reprenait le #14

reste ci joint au niveau .send