Discussion :

[Narge]

Bonjour à toutes et tous.

Je me permets de venir vous demander de l'aide car je viens de perdre la totalité de mes cheveux sur mon problème (Novice en VBA et tous autres codages).

Pour une de mes études concurrentiels et clients, je souhaite pouvoir intégrer dans mon fichier excel des liens internet de différentes pages par un simple raccourci clavier (afin de gagner un temps considérable, plus de 1000 liens enfin si on ne compte pas le temps que j'ai passé à chercher une solution).

Je dois faire un copier de l'adresse internet directement sur le site (jusque là pas de problème).

Ensuite j'aimerai que dans la cellule active (différente à chaque fois) de mon fichier excel, le raccourci Ctrl+m fasse afficher le mot "Lien" et que le lien hypertexte de site internet préalablement copié y soit appliqué.


J'espère avoir été claire dans ma demande et mon problème

[jeangoisse]

Salut

Enregistreur de macro... remplacer l'URL par celle souhaitée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
'
' Macro1 Macro
'
 
'
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "https://www.developpez.net/forums/d1864190/logiciels/microsoft-office/excel/macros-vba-excel/coller-lien-internet-excel/" _
        , TextToDisplay:="lien"
End Sub

[Narge]

Si je ne dis pas de bêtises, on suivant ton code j'utilise en permanence le même lien internet.
Hors je souhaite changer à chaque fois via mon copier du début

[jeangoisse]

Oui exact... il doit y avoir moyen de variabiliser le champ d'adresse URL pour qu'il copie le presse-papier mais je passe la main !

[Transitoire]

Bonjour, Code légèrement modifié, ou le Lien est remplacé par une variable, dans laquelle on charge le lien Internet.
Il n'y a qua changer sous VBA le lien internet pour accéder à un autre site. Plus besoin de raccourci clavier, le click sur la cellule déclenche l'ouverture.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub TestWeb()
Dim Lien As String
Lien = "https://www.developpez.net/forums/d1864190/logiciels/microsoft-office/excel/macros-vba-excel/coller-lien-internet-excel/"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Lien, TextToDisplay:="lien"
End Sub

Cordialement

[Narge]

Je pense qu'il y a un souci de compréhension.
Ton code permet d'ouvrir un lien internet en cliquant sur une cellule. C'est bien ça ?

[Transitoire]

En effet! Que voulez vous exactement? essayez d'être clair.