Fonction VBA pour récupérer l'URL d'une page web marche pas Fermé

Question

Bonjour, 

J'ai besoin de votre aide pour un souci :

mon objectif : je veux récupérer les coordonnées gps à l'aide d'une fonction vba avec en entrée une adresse quelconque, pour ça j'essaie accéder à l'URL de la page open street map, ouverte à partir d'une adresse donnée en paramètre, dans le but d'extraire les coordonnées gps de cette adresse qui sont contenues dans l'URL de la page

mon problème : j'ai trouvé un programme sur internet qui permet à peu près de faire ça, je l'ai un peu modifié , mais ça ne marche mais quand j'appelle ma fonction en étant dans une feuille excel.

le code :
Option Explicit
Function AdresseToCoordonnesGPS(URL As String)
    'URL contient la recherche qu'on veut faire par, par exemple : URL="https://www.openstreetmap.org/search?query="&A2
    'où la cellule A2 contient l'adresse du lieu,
    'voici la partie qui lance l'adresse dans le navigateur
    Dim navigateur As Object
    Set navigateur = CreateObject("Shell.Application").ShellExecute("microsoft-edge:" & URL) 'CreateObject("MicrosoftEdge.Application")
    navigateur.Visible = True
    Do While navigateur.busy And navigateur.ReadyState <> 4
       DoEvents
    Loop
    pause (3)
 
    Dim redirection As String 'cette variable contiendra la partie intéressante du lien passé en argument càd les coordonnées gps N,E
    redirection = navigateur.locationUrl
    redirection = Right(redirection, Len(redirection) - InStr(redirection, "#"))    'les coordonnées gps se trouvent à droite du sigle # dans l'url
    redirection = Right(redirection, Len(redirection) - InStr(redirection, "/"))
    AdresseToCoordonnesGPS = redirection
End Function
le retour :

ce code m'ouvre bien la page microsoft edge mais ne récupère pas l'adresse de la page, ce qui m'intéresse, j'ai le msg ""#VALEUR!" dans la cellule où j'ai entré la fonction AdresseToCoordonnesGPS



MERCI de votre aide


Configuration: Windows / Edge 101.0.1210.39

yg_be · Answer

bonjour,
pour comprendre, tu dois tester ta fonction hors d'une feuille excel:
Private Sub tt()
Dim result As String
result = AdresseToCoordonnesGPS("url")
Debug.Print result
End Sub

hamza-arif · Answer

j'avais trouvé ça sur un forum, mais effectivement si tu dis que ShellExecute() renvoie un nombre alors je ne suis pas cohérent (au passage  j'ai pas trouvé bcp de docu sur cette commande en cherchant sur internet)

en fait, j'avais pensé à ShellExecute() pour ouvrir un autre navigateur que Internet-Explorer (navigateur par défaut utilisé dans vba)

pour utiliser internet explorer, je peux remplacer la ligne contenant le ShellExecute() par
ShellExecute
le code final devient :

Function AdresseToCoordonnesGPS(URL As String)    Dim navigateur As Object    'Set navigateur = CreateObject("InternetExplorer.Application")    'navigateur = CreateObject("Shell.Application").ShellExecute("microsoft-edge:" & URL) '        navigateur = CreateObject("InternetExplorer.Application")    navigateur.navigate URL    navigateur.Visible = True    Do While navigateur.busy And navigateur.readyState <> 4       DoEvents    Loop    pause (3)        Dim redirection As String    redirection = navigateur.locationUrl    redirection = Right(redirection, Len(redirection) - InStr(redirection, "#"))    redirection = Right(redirection, Len(redirection) - InStr(redirection, "/"))    AdresseToCoordonnesGPS3 = redirection        'penser à fermer la fenêtre avec quand ça marche :    'navigateur.Quit    'Set navigateur = NothingEnd FunctionPrivate Sub tt()    Dim result As String    result = AdresseToCoordonnesGPS("url")    Debug.Print resultEnd Sub

et quand je fais appel avec 
Private Sub tt()    Dim result As String    result = AdresseToCoordonnesGPS("url")    Debug.Print resultEnd Sub
l'erreur se trouve sur la ligne :
navigateur = CreateObject("InternetExplorer.Application")
ps : ce code je l'ai trouvé ici : https://www.youtube.com/watch?v=DcIrj0U_8HM

hamza-arif · Answer

là l'erreur vient de 
redirection = navigateur.locationUrl


le message d'erreur est :

yg_be · Answer

Tu as vraiment testé en laissant "url"?  Pour que cela fonctionne, il faut mettre l'adresse d'un site.

hamza-arif · Answer

d'autre part, quand je teste ma fonction AdresseToCoordonnesGPS3 directement dans la feuille excel, je n'ai plus l'erreur "#VALEUR!", mais je n'ai toujours pas ce que je cherche.
par exemple, dans la colonne B2, j'ai posé = =AdresseToCoordonnesGPS3("https://www.openstreetmap.org/search?query="&A2)
où A2 = 5 rue victor Hugo 95140 garges-lès-gonesse
ce qui fait que URL = "https://www.openstreetmap.org/search?query=5 rue victor Hugo 95140 garges-lès-gonesse"

et ce la me renvoie juste "https://www.openstreetmap.org/search?query=5 rue victor Hugo 95140 garges-lès-gonesse"
au lieu de me renvoyer "https://www.openstreetmap.org/search?query=5%20rue%20victor%20Hugo%2095140%20garges-l%C3%A8s-gonesse#map=18/48.97210/2.38848"
lien dans lequel sont contenues les coordonnées gps, ce qui m'intéresse

j'espère que c'est à peu près clair comme demande

Fonction VBA pour récupérer l'URL d'une page web marche pas

5 réponses

Discussions similaires