XL 2021 Récupérer la latitude et longitude de sa position actuelle

[Nicolas JACQUIN]

Bonjour à tous,

Je cherche à récupérer automatiquement ma position, longitude,latitude et ville, à l'ouverture du classeur,
pour les placer en variable et les intégrer dans mon programme

J'ai essayé avec "https://www.google.fr/maps/place/" mais je connais pas
J'ai trouvé des choses en rentrant la ville mais c'est pas ça que je souhaite

Merci d'avance à tous

Nicolas

 

[sylvanu]

Bonjour Nicolas,
A tout hasard, qui n'a rien à voir mais voici une PJ qui donne les infos sur votre IP dont Lat et Long.
Mais je ne sais pas si cette position change avec vos déplacements, ni si cette position est impactée par un potentiel VPN, ni quelle est sa précision.

Sub PositionserveurIP()
    url = "http://ip-api.com/json/"
    On Error Resume Next
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False
        .Send
        Résultat = Split(.responseText, ",")
        For i = 0 To UBound(Résultat)
            Mat = Split(Résultat(i), ":")
            Cells(i + 1, "A") = Replace(Mat(0), """", "")
            Cells(i + 1, "B") = Replace(Mat(1), """", "")
        Next i
    End With
End Sub

 

[Nicolas JACQUIN]

Bonjour sylvanu,

Merci, ça a l'air bon ça, ça récupère la ville, longitude et latitude.

 

[Nicolas JACQUIN]

Mais je ne sais pas si cette position change avec vos déplacement

Le but c'est d'intégrer la position sur mon fichier calendrier, éphéméride automatiquement pour l'utilisateur,
Moi je suis de Lorient mais si l'utilisateur est à Strasbourg ou Marseille, les heures de lever et coucher du soleil de chez moi il s'en fiche un peu, c'est pour mettre la position automatiquement.

Merci beaucoup

 

[Nicolas JACQUIN]

Re tout le monde,

Si vous pouvez tester si votre position est bien la bonne à cette endroit sinon je change de post

Chez moi ça colle à 2 ou 3 minutes prêt

Edit: Fichier 4 messages plus bas ( post9 )

 

[Nicolas JACQUIN]

Si vous pouvez m'afficher le rendu visuel,
merci à tous

 

[vgendron]

Hello
une simple recherche google sur le lien entre IP et adresse GPS indique ceci
La géolocalisation par l'IP est très approximative. Elle est possible du fait que les adresses IP sont fournies par un serveur (serveur DHCP), qui est déployé dans le commutateur ou routeur de proximité, le point d'accès.

 

[Nicolas JACQUIN]

Hello
une simple recherche google sur le lien entre IP et adresse GPS indique ceci
La géolocalisation par l'IP est très approximative. Elle est possible du fait que les adresses IP sont fournies par un serveur (serveur DHCP), qui est déployé dans le commutateur ou routeur de proximité, le point d'accès.

Bonjour,

je me doute que c'est approximatif, c'est juste pour savoir si ma dernière demande colle ou pas,
Après je suis pas à 200 mètres prêt non plus.

Merci

 

[Nicolas JACQUIN]

Re,

J'ai rajouter une option à la fermeture pour rassurer certains,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("MaPosition").Columns("A:B").ClearContents
End Sub

Merci de vos retours

 

[vgendron]

à vol d'oiseau, il me localise à 5km..

 

[vgendron]

ce site, lui est bon, après.. je ne sais pas sur quoi il se base.. adresse postale.., autorisations de localisation.....

Ma Position Actuelle - Ma Localisation GPS

Quelle est ma position actuelle? Trouver la latitude et la longitude de votre position GPS. Meilleure app pour voir votre géolocalisation.

www.coordonnees-gps.fr

 

[Nicolas JACQUIN]

à vol d'oiseau, il me localise à 5km..

Ca te donne pas le nom de ta ville ??

 

[vgendron]

la ville principale d'a coté.. Rennes, alors que je suis à Cesson

 

[Nicolas JACQUIN]

Oui, donc pas bonne solution

 

[vgendron]

j'ai essayé de remplacer l'URL de ta macro par celle que je t'ai mise.. mais .. je ne vois pas où et comment récupérer le résultat..