Ouvrir microsoft edge avec google map + coordonnées

Bonjour.

J'ai un code qui me permet d'ouvrir microsoft Edge et aussi google map.

Je cherche à indiquer à google map la localisation exacte (valeur contenu dans une cellule pour x et une celllule pour Y) ainsi qu'un zoom prédéfini

Voici mon code:

Sub OuvertureGooglemap()
Dim edge As String

CreateObject("Shell.Application").ShellExecute "microsoft-edge:http:/www.google.com/maps/@44.104268,-70.2021159,15z"

End Sub

Merci de votre support

Bonjour,

Essayez ceci

Sub OuvertureGooglemap()
    Dim edge As String
    Dim Latitude As String, Longitude As String
    Latitude = Range("A2").Value
    Longitude = Range("B2").Value
    CreateObject("Shell.Application").ShellExecute "microsoft-edge:https:/www.google.com/maps/@" & Latitude & "," & Longitude
End Sub

Pour le Zoom, mettez les valeurs suivantes dans

A2: 44.104268 (inchangée)

B2: '-70.2021159,19z

ici le zoom est approché de 3 xfois

il suffit de jouer sur les derniers chiffres de la latitude et longitude pour modifier le zoom.

Cdlt

Merci Arturo83

Ca fonctionne presque.

Le changement apporté ouvre bien au coordonnées des cellules.

À l'ouverture de google map les coordonnées sont les bonnes. Après quelques secondes il y a un rafraichissement de la page et la page dans gooogle map affiche url suivante: https://www.google.com/maps/@56,-96,3z. (Google Maps

J'ai modifié le code pour que les valeurs soit un nombre et non le résultat d'une formule.

Voici mes valeurs:

H30 = 51.3377

I30 = -68.812958

C'est au Québec

Voici le code que j'utilise:

Sub OuvertureGooglemap()
    Dim edge As String
    Dim Latitude As String, Longitude As String
    Latitude = Range("h30").Value 'Définition de la cellule contenant la latitude
    Longitude = Range("i30").Value 'Définition de la cellule contenant la longitude

   CreateObject("Shell.Application").ShellExecute "microsoft-edge:https:/www.google.com/maps/@" & Latitude & "," & Longitude & ",15Z"
   'CreateObject("Shell.Application").ShellExecute "microsoft-edge:http:/www.google.com/maps/@44.104268,-70.2021159,15z"  - Version ori
End Sub

Merci pour le support et bonne journée