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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Septembre 2024

• #2

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.

VB:

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

 

Pièces jointes

• PosIP.xlsm

  15.4 KB · Affichages: 5

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué

Supporter XLD

• 1 Septembre 2024

• #3

Bonjour sylvanu,

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

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué

Supporter XLD

• 1 Septembre 2024

• #4

sylvanu à dit:

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

Cliquez pour agrandir...

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

 

Dernière édition: 1 Septembre 2024

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué

Supporter XLD

• 1 Septembre 2024

• #5

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 )

 

Dernière édition: 1 Septembre 2024

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué

Supporter XLD

• 1 Septembre 2024

• #6

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 1 Septembre 2024

• #7

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.

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué

Supporter XLD

• 1 Septembre 2024

• #8

vgendron à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué

Supporter XLD

• 1 Septembre 2024

• #9

Re,

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

VB:

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

Merci de vos retours

 

Pièces jointes

• New Calendrier v2.xlsm

  213.9 KB · Affichages: 7

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 1 Septembre 2024

• #10

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 1 Septembre 2024

• #11

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

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué

Supporter XLD

• 1 Septembre 2024

• #12

vgendron à dit:

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

Cliquez pour agrandir...

Ca te donne pas le nom de ta ville ??

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 1 Septembre 2024

• #13

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

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué

Supporter XLD

• 1 Septembre 2024

• #14

Oui, donc pas bonne solution

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 1 Septembre 2024

• #15

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

 

Vote positif 0 Vote négatif