Macro excel que je souhaite affiner
Résolu
Pimpampoumpoum
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
Pimpampoumpoum Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Pimpampoumpoum Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je travaille sur un fichier excel pour lequel j'utilise une macro qui me permet de chercher des données de km parcourus sur Google Maps.
Elle est du type:
Sub Test()
For Each X In Sheets("Feuil1").Range("A2:" & Sheets("Feuil1").Range("A65536").End(xlUp).Address)
Sheets("Feuil2").Cells.Clear
Depart = X.Value
Arrivee = X.Offset(0, 1).Value
With Sheets("Feuil2").QueryTables.Add(Connection:="URL;http://maps.google.com/maps/api/directions/json?origin=" & Depart & "&destination=" & Arrivee & "&sensor=false", Destination:=Sheets("Feuil2").Range("A22"))
.Name = "itinéraire"
.BackgroundQuery = True
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With
X.Offset(0, 2) = Sheets("Feuil2").Cells(2 ^ 16, 1).End(xlUp).Offset(-23, 0).Value
Next
End Sub
Je souhaite rajouter une commande pour que le temps de parcours me soit également indiqué en nombre d'heures.
Pour l'instant, tout ce que je tente me fais planter ma commande...
Qu'en pensez-vous?
Merci par avance!
Je travaille sur un fichier excel pour lequel j'utilise une macro qui me permet de chercher des données de km parcourus sur Google Maps.
Elle est du type:
Sub Test()
For Each X In Sheets("Feuil1").Range("A2:" & Sheets("Feuil1").Range("A65536").End(xlUp).Address)
Sheets("Feuil2").Cells.Clear
Depart = X.Value
Arrivee = X.Offset(0, 1).Value
With Sheets("Feuil2").QueryTables.Add(Connection:="URL;http://maps.google.com/maps/api/directions/json?origin=" & Depart & "&destination=" & Arrivee & "&sensor=false", Destination:=Sheets("Feuil2").Range("A22"))
.Name = "itinéraire"
.BackgroundQuery = True
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With
X.Offset(0, 2) = Sheets("Feuil2").Cells(2 ^ 16, 1).End(xlUp).Offset(-23, 0).Value
Next
End Sub
Je souhaite rajouter une commande pour que le temps de parcours me soit également indiqué en nombre d'heures.
Pour l'instant, tout ce que je tente me fais planter ma commande...
Qu'en pensez-vous?
Merci par avance!
A voir également:
- Macro excel que je souhaite affiner
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
10 réponses
Bonjour,
Tu a combien de lignes renseignées avec des Départ/Arrivée sur ta Feuil1 ?
J'ai tester avec une seule donnée (Bruxelles/Paris) et ça me renvoi 608 lignes, donc ,risque de dépacement capacité !
Et je ne comprend pas bien ton "X", au départ c'est sur la feuil1 ensuite sur la feuille 2 ?
Autre.. Tu met toujours tes données au même endroit ?
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Tu a combien de lignes renseignées avec des Départ/Arrivée sur ta Feuil1 ?
J'ai tester avec une seule donnée (Bruxelles/Paris) et ça me renvoi 608 lignes, donc ,risque de dépacement capacité !
Et je ne comprend pas bien ton "X", au départ c'est sur la feuil1 ensuite sur la feuille 2 ?
Autre.. Tu met toujours tes données au même endroit ?
Destination:=Sheets("Feuil2").Range("A22"))
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Bonjour,
Vi,
Ce type de calcul m'horripile....
Finalement, si le chauffeur, il est dans les embouteillages, et que Google ne l'a pas vu, ben, il est viré.....
Je sors....
'ai besoin d'un temps de parcours pour pouvoir calculer combien de temps un chauffeur va être mobilisé ( et a terme combien ça va me couter)
Vi,
Ce type de calcul m'horripile....
Finalement, si le chauffeur, il est dans les embouteillages, et que Google ne l'a pas vu, ben, il est viré.....
Je sors....
Une commande directe.. non, du moins je ne l'ai pas trouver mais en faisant la somme des...
Il doit y avoir un moyen d'y arriver.
A+
"duration": {
"value": 11634,
"text": "3 hours 14 mins"
Il doit y avoir un moyen d'y arriver.
A+
Re-,
Ben, juste une dernière...
Sans oublier, que parfois, tu te crois au Nicaragua, mais tu es au Costa Rica....
http://www.lessentiel.lu/fr/news/monde/story/26999167
C'est beau, la technique....
Je sors (de nouveau....)
Ben, juste une dernière...
Sans oublier, que parfois, tu te crois au Nicaragua, mais tu es au Costa Rica....
http://www.lessentiel.lu/fr/news/monde/story/26999167
C'est beau, la technique....
Je sors (de nouveau....)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
En remontant depuis la dernière donnée, Duration donne la durée totale du trajet.
Je pense que les valeurs
représente le TimeSerial .
11634 serait théoriquement 2h 47m 32s
Et ajuster au paramètres de vélocité théorique du trajet serait...
"text": "3 hours 14 mins"
A+
Je pense que les valeurs
"duration": {
"value": 11634,
représente le TimeSerial .
11634 serait théoriquement 2h 47m 32s
Et ajuster au paramètres de vélocité théorique du trajet serait...
"text": "3 hours 14 mins"
A+
Merci Lermite pour ton aide!
Je reviens sur ton premier message dans lequel tu me demandais comment la macro marchait... a vrai dire, la macro me fait qq surprises notamment en calculant des données plus qu'approximatives (un Paris- Marseille = 776km ou un Chalons sur saone-Marseille=3151km)
Aurais tu des conseils qui pourraient m'aider à fiabiliser les données?
Merci par avance
Je reviens sur ton premier message dans lequel tu me demandais comment la macro marchait... a vrai dire, la macro me fait qq surprises notamment en calculant des données plus qu'approximatives (un Paris- Marseille = 776km ou un Chalons sur saone-Marseille=3151km)
Aurais tu des conseils qui pourraient m'aider à fiabiliser les données?
Merci par avance
Non, j'ai pas de réponse, effectivement ça me donne... comme tu dis.
Désolé, voir d'autre renseignements sur Google.map.
A+
Désolé, voir d'autre renseignements sur Google.map.
A+
Rectification,
J'ai les bonnes distances et temps..
Paris- Marseille = "776 km" "7 hours 0 mins"
Chalons sur saone-Marseille = "438 km" - "4 hours 3 mins"
J'ai les bonnes distances et temps..
Paris- Marseille = "776 km" "7 hours 0 mins"
Chalons sur saone-Marseille = "438 km" - "4 hours 3 mins"
Je n'ai pas les mêmes resultats pour les temps de parcours...
Par ailleurs, la macro ne tourne plus et m'indique "erreur1004"...
Par ailleurs, la macro ne tourne plus et m'indique "erreur1004"...
Erreur 1004
Fichier inaccessible. Essayez l'une des opérations suivantes:
- vérifier que le dossier spécifié existe
- vérifier que le dossier dans lequel se trouve le fichier n'est pas en lecture seule
- vérifier que le nom du fichier ne comporte les caractères suivants: <> ? ni *
et ça surligne dans le code:
Code:
.Refresh BackgroundQuery:=False
Tu sais comment y remedier?
Fichier inaccessible. Essayez l'une des opérations suivantes:
- vérifier que le dossier spécifié existe
- vérifier que le dossier dans lequel se trouve le fichier n'est pas en lecture seule
- vérifier que le nom du fichier ne comporte les caractères suivants: <> ? ni *
et ça surligne dans le code:
Code:
.Refresh BackgroundQuery:=False
Tu sais comment y remedier?
J'ai besoin d'un temps de parcours pour pouvoir calculer combien de temps un chauffeur va être mobilisé ( et a terme combien ça va me couter)
l'élément manquant est donc le temps de parcours routier (le fluvial je l'ai déjà intégré).
Aurais tu une idée de commande qui demanderait à google maps de le calculer automatiquement?