XL 2013 Excel et API google

[chasseur44]

Bonjour à tous
J'utilise cette macro afin de recupérer des distances et des temps entre une Adresse A et B
cetta macro me rapatrie des kilomètres ou mètres ainsi que des heures et des minutes (colonne D et E)
Je souhaite la modifier pour ne récupérer que des heures centièmes à la place des heures minutes et c'est la que je bloque !
Je ne sais pas comment modifier la variable Temps en fonction de ce que me ramène la macro ! car des mois c'est "heure", "heure", "minute", "min" ...
Merci pour votre appui

 

[pierrejean]

Bonjour Chasseur

Un essai

 

[chasseur44]

Merci Pierre Jean
Effectivement ca marche deja bcp mieux mais si le temps initial ramène : 2 heures 50 minutes (par exemple) cela ne fonctionne plus ! la difficulté étant la gestion des heures, minutes, min au singulier au pluriel et Cie

 

[pierrejean]

Re

A tester
NB Si toujours pb poster fichier exemple S T P

 

[chasseur44]

Merci
En fait ca ne marche pas, j'ai rajouté des lignes d'exemple
cela plante a cette instruction :
minutes = CDbl(Replace(Mid(Temps, InStr(Temps, "heure") + 6), "min", ""))
la variable Temps est = 5 heures 18 minutes mais minutes est vide ?

 

[pierrejean]

Re

Pour ces distances cela fonctionne
Si autre Pb poster fichier S T P

 

[job75]

Bonjour chasseur44, Pierre, le forum,

Temps = IIf(InStr(LCase(Temps), "h"), "", "0 h ") & Temps & " 0"
Temps = Split(Application.Trim(Temps)) 'SUPPRESPACE
Temps = Application.Round(Val(Temps(0)) + Val(Temps(2)) / 60, 2)
If Temps = 0 Then Temps = "Aucun résultat"
'---
Distance = Val(Replace(Distance, ",", "."))
If Distance = 0 Then Distance = "Aucun résultat"

LCase pour le cas où il prendrait fantaisie à Google de mettre des majuscules...

Les variables Temps et Distance sont déclarées As Variant.

Fichier joint.

Bonne journée.

 

[job75]

Re,

Il est quand même plus logique d'inscrire de vraies heures, fichier (2).

A+

 

[job75]

Re,

Pour info, sur un fichier de plusieurs milliers de lignes :

https://www.excel-downloads.com/threads/distancier-km.20020812/#post-20154188

Bonne nuit.

 

[job75]

Bonjour le forum,

Pour les distances, Google sépare les milliers par l'espace insécable de code 160, donc :

Distance = Val(Replace(Replace(Distance, Chr(160), ""), ",", "."))
If Distance = 0 Then Distance = "Aucun résultat"

Fichier (3).

A+

 

[job75]

Bonjour le forum,

En utilisant une variable tableau on divise par 2 le nombre des calculs :

Dim Résultat(1 To 2)
Résultat(1) = Distance
Résultat(2) = Temps
Calculer = Résultat 'vecteur ligne

Fichier (4).

Bonne journée.

 

[job75]

Re,

Quand il y a "Aucun résultat" avec des adresses valides le responseText de l'API Google contient :

<status>OVER_QUERY_LIMIT</status> <error_message>You have exceeded your daily request quota for this API. We recommend registering for a key at the Google Developers Console:
https://console.developers.google.com/apis/credentials?project=_</error_message>

Je ne vois pas comment l'obtention d'une clé sur un compte Google permettrait d'améliorer la situation.

A+

 

[job75]

Bonjour le forum,

D'après ce que je comprends les quotas sont remis à zéro à minuit heure PST (heure de la Californie).

J'ai lancé la macro à 09:01 soit 00:01 heure PST et j'ai obtenu une seule ligne avec "Aucun résultat".

Bonne journée.

 

[Modeste geedee]

Bonsour®

Bonjour le forum,
D'après ce que je comprends les quotas sont remis à zéro à minuit heure PST (heure de la Californie).

https://developers.google.com/analytics/devguides/config/mgmt/v3/limits-quotas
https://developers.google.com/maps/documentation/distance-matrix/usage-limits?hl=fr

Je ne vois pas comment l'obtention d'une clé sur un compte Google permettrait d'améliorer la situation.

La limite gratuite de 2 500 par jour est appliquée aux projets tant que vous n'avez pas activer la facturation pour ces projets. Une fois la facturation activée, si vous dépassez les 2 500 éléments par jour, vous serez facturé 0,50 USD pour 1 000 éléments supplémentaires, jusqu'à 100 000 par jour.
https://cloud.google.com/billing/do...visit_id=1-636467707889651198-2351980270&rd=1

Bizness is Bizness...

 

[job75]

Bonjour Modeste geedee,

Bien sûr j'avais fait des recherches sur les limites et quotas des API Google.

Et j'avoue ne pas y comprendre grand-chose.

Car pour les fichiers de ce fil et de l'autre mis en lien au post #9 je pense que les quotas s'appliquent par adresse et non pas par utilisateur : j'ai 2 ordis et les 2 me donnent les mêmes résultats.

A+