XL 2013 Excel et API google

pierrejean

XLDnaute Barbatruc

• 14 Novembre 2017

• #2

Bonjour Chasseur

Un essai

 

Pièces jointes

• test Distance_temps.xlsm

  41.7 KB · Affichages: 44

Vote positif 0 Vote négatif

chasseur44

XLDnaute Occasionnel

• 15 Novembre 2017

• #3

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Novembre 2017

• #4

Re

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

 

Pièces jointes

• test Distance_temps.xlsm

  42 KB · Affichages: 37

Vote positif 0 Vote négatif

chasseur44

XLDnaute Occasionnel

• 15 Novembre 2017

• #5

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 ?

 

Pièces jointes

• test Distance_temps.xlsm

  41.6 KB · Affichages: 33

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Novembre 2017

• #6

Re

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

 

Pièces jointes

• test Distance_temps (1).xlsm

  42 KB · Affichages: 40

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Novembre 2017

• #7

Bonjour chasseur44, Pierre, le forum,

Code:

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.

 

Pièces jointes

• API Google(1).xlsm

  47.7 KB · Affichages: 55

Dernière édition: 16 Novembre 2017

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Novembre 2017

• #8

Re,

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

A+

 

Pièces jointes

• API Google(2).xlsm

  47.7 KB · Affichages: 67

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Novembre 2017

• #9

Re,

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

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

Bonne nuit.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Novembre 2017

• #10

Bonjour le forum,

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

Code:

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

Fichier (3).

A+

 

Pièces jointes

• API Google(3).xlsm

  48.2 KB · Affichages: 50

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Novembre 2017

• #11

Bonjour le forum,

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

Code:

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

Fichier (4).

Bonne journée.

 

Pièces jointes

• API Google(4).xlsm

  48.3 KB · Affichages: 74

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Novembre 2017

• #12

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>

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Novembre 2017

• #13

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.

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 20 Novembre 2017

• #14

Bonsour®

job75 à dit:

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

Cliquez pour agrandir...

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

job75 à dit:

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

Cliquez pour agrandir...

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...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Novembre 2017

• #15

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+

 

Vote positif 0 Vote négatif