Récupéré l'adresse web de la page internet ouverte

Bonjour,

Je recherche une macro pour faire un bouton sur excel qui permet de récupéré l'adresse web de la page internet ouverte .

Je suis sur google chrome.

Auriez vous des pistes?

Bonjour

Une solution, via une extention chrome, petit programme à installer sur le navigateur, qui lui ajoute des fonctionnalités

puis récupérer le contenu du presse papier dans excel

en faisant la recherche , "add on chrome recup url", il y a d'autre solutions

ou

"add on chrome recup url excel"

ceci-dit, je ne pense pas aller, dans le sens contraire de la chartre

On pourrais pas faire ca avec une macro sur excel?

Quel navigateur utilises-tu ?

Il y a peut-être encore plus simple ! Attention : peut ne pas convenir aux plateformes 64bits.

Sub quelle_url()

    Cells(1, 1).Select
    Application.CutCopyMode = False

    Set oShell = CreateObject("wscript.shell")
    For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process")
        If UCase(Process.Name) = UCase("chrome.exe") Then
            oShell.AppActivate (Process.processID)
            SendKeys "%d"
            SendKeys "^c"
        End If
    Next

    For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process")
        If UCase(Process.Name) = UCase("excel.exe") Then
            oShell.AppActivate (Process.processID)
            ActiveSheet.Paste
        End If
    Next

End Sub

C'est ce qu'il me fallait, par contre est il possible que le lien se met sur la cellule active dans excel au lieu de Cells(1, 1).Select ?

J'ai la touche verr num ( pavé numerique ) qui se désactive quan j'utilise cette macro

Merci

jeromechant a écrit :

J'ai la touche verr num ( pavé numerique ) qui se désactive quan j'utilise cette macro

je ne peux pas y faire grand chose, j'avais déjà rencontré ce point, mais je n'ai pas pour ma part de pavé numérique

regarde ceci si cela peut t'aider https://forum.excel-pratique.com/excel/touche-moins-etendre-la-selection-107884#p639631, voire poste un nouveau sujet car je ne pourrai pas t'aider

jeromechant a écrit :

C'est ce qu'il me fallait, par contre est il possible que le lien se met sur la cellule active dans excel au lieu de Cells(1, 1).Select ?

supprime alors

    Cells(1, 1).Select

Merci, je vais faire un nouveau post pour le Verr Num