lien vers maps.goolgle.com
Le
Daniel
Bonjour à tous
J'ai une liste de Waypoints dans un fichier excel
AL1 N45.48807 W73.53991
AL2 N45.48807 W73.53991
AL3 N45.46988 W73.59675
AL4 N45.44813 W73.68912
je voudrait pouvoir avec un double clic sur un waypoint
ouvrire Maps.google.com pour voire l'endroit de ce waypoint .
Voici en exemple
http://
maps.google.com/maps?q=N45.48807 W73.53991&t=h&hl=fr
comment faire cette macro ??
Merci
J'ai une liste de Waypoints dans un fichier excel
AL1 N45.48807 W73.53991
AL2 N45.48807 W73.53991
AL3 N45.46988 W73.59675
AL4 N45.44813 W73.68912
je voudrait pouvoir avec un double clic sur un waypoint
ouvrire Maps.google.com pour voire l'endroit de ce waypoint .
Voici en exemple
http://
maps.google.com/maps?q=N45.48807 W73.53991&t=h&hl=fr
comment faire cette macro ??
Merci
Poser une question
Copie ce code dans la feuille module où l'action se déroule :
'----------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim adresse As String
If Not Intersect(Target, Range("al1:Al4")) Is Nothing Then
If Target.Cells.Count = 1 And Target.Value <> "" Then
adresse = "http://maps.google.com/maps?q=" & Target & "&t=h&hl=fr"
Internet adresse
End If
End If
End Sub
'----------------------------------
Sub Internet(adresse As String)
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True: IE.Top = 0: IE.Left = 0
IE.Navigate adresse
End Sub
'----------------------------------
Salutations!
"Daniel" Bonjour à tous
J'ai une liste de Waypoints dans un fichier excel
AL1 N45.48807 W73.53991
AL2 N45.48807 W73.53991
AL3 N45.46988 W73.59675
AL4 N45.44813 W73.68912
je voudrait pouvoir avec un double clic sur un waypoint
ouvrire Maps.google.com pour voire l'endroit de ce waypoint .
Voici en exemple
http://
maps.google.com/maps?q=N45.48807 W73.53991&t=h&hl=fr
comment faire cette macro ??
Merci
Très bien cela marche.
Je voudrait pouvoir faire le double clic sur la cellule H2:H4
mais le waypoint est dans la colonne J2:J4
(à la place de"al1:Al4").
Merci
"michdenis" %
'----------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim adresse As String
If Not Intersect(Target, Range("H2:H4")) Is Nothing Then
If Target.Cells.Count = 1 And Target.Value <> "" Then
adresse = "http://maps.google.com/maps?q=" & Target .offset(,2)& "&t=h&hl=fr"
Internet adresse
End If
End If
End Sub
'----------------------------------
Sub Internet(adresse As String)
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True: IE.Top = 0: IE.Left = 0
IE.Navigate adresse
End Sub
'----------------------------------
Salutations!
"Daniel" Bonjour michdenis
Très bien cela marche.
Je voudrait pouvoir faire le double clic sur la cellule H2:H4
mais le waypoint est dans la colonne J2:J4
(à la place de"al1:Al4").
Merci
"michdenis" %
Je trouve cela très intéressant comme possibilité mais une question plus sur
Google maps,
Est-ce qu'on peut faire la même chose mais avec des coordonnées géodésiques
aussi ?
J'ai regardé sur l'aide de map et rien trouvé
Merci
"Daniel" news:
Super , que de belle chose on peut faire (avec des amis).
Gros merci :-))))))))
"michdenis"