Coller un lien internet dans Excel

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

Salut

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

Code:

---

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

---

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

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 !

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:

---

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 8-)

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 ?

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

Citation:

---

Envoyé par Transitoire

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

---

Désolé de ne pas avoir été clair, je vais me rattraper.

Je dois créer un fichier répertoriant un certain nombre de produits se trouvant sur des sites internet. Mon fichier doit permettre de retourner sur les pages ciblés rapidement.
Je dois donc avoir une ligne par produit et donc le lien internet du produit doit être disponible via une cellule dédiée à ça.

Pour être plus rapide que, clique droit, lien hypertexte, coller, entrer et modifier le texte de la cellule en "Lien", j'aimerai le faire en un simple Ctrl+m.


Est-ce plus claire ?

Re les codes ci-dessous permettent le raccourci clavier. Je l'ai testé sur mon Mac, il n'est pas sur qu'il ne faille modifier une bricole pour les PC

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub essaiSelonTouche() 'Met en place le Ctrl M et peut être mis dans le Module feuille pour automatisme .Open Application.OnKey "^{m}", "Tessiture" End Sub   Sub essaiSelonToucheAnnulation() 'Enlève le Ctrl M et peut être mis dans le Module feuille pour automatisme .Deactivate Application.OnKey "^{m}" End Sub   Sub Tessiture() 'Vérifie le fonctionnement. Il faut remplacer le MsgBox par le code nécessaire: coller sur la cellule à utiliser plus tard! MsgBox "ouais, ça marche! " End Sub

---

Cordialement 8-)

Re, vous pouvez remplacer le code de tessiture par celui ci dessous, qui fonctionne sur mon Mac .

Code:

---

1 2 3 4 5

Sub Tessiture() 'Faire copier l'adresse internet, Sélectionner la cellule et Ctrl+m ActiveCell.PasteSpecial xlPasteAll Lien = ActiveCell.Value ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Lien, TextToDisplay:="lien" End Sub

---

Il vous faudra sans doute l'adapter

Cordialement 8-)

re
bonjour

et bien moi je te propose de faire tout d'un coup d'un simple click

1. je te propose donc de
2. renifler toutes tes pages web ouverte
3. d'afficher les lien dans un menu popup
4. au clik droite sur cellule afficher ce menu
5. au click sur une des url du menu mettre "lien" et l'url de cette page choisie dans le menu

pour commencer on va considérer pour lexemple que les url doivent aller en "A"
donc l'evenement beforerightclick du sheets concerné

Code:

---

1 2 3 4

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim objShell As Object, obj As Object If Target.Column = 1 Then Cancel = True: barre End Sub

---

allons y
maintenant dans un module standard
on va construire le menu

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub barre() Set bare = CommandBars.Add("RenifleurURL", msoBarPopup, False, True) Set objShell = CreateObject("shell.application") For Each obj In objShell.Windows If TypeName(obj.document) = "HTMLDocument" Then With bare.Controls.Add(msoControlButton, 1, , , True) .Caption = obj.locationURL .FaceId = 1922 .OnAction = "colle" .Tag = obj.locationURL End With End If Next obj CommandBars("RenifleurURL").ShowPopup On Error Resume Next CommandBars("RenifleurURL").Delete End Sub

---

maintenant la sub que le menu appelle pour coller

Code:

---

1 2 3

Private Sub colle() ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=CommandBars.ActionControl.Tag, TextToDisplay:="lien" End Sub

---

et voila tu a ton renifleur

demonstration j'ai 3 onglets d'ouvert dans IE
tu peux controlier les lien sont bien implantés
Pièce jointe 388812

juste en passant comme ca ;)

Apparemment faut adapter car j'ai un message d'erreur.

"Impossible d'exécuter la macro. Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées."

Si je fais une exécution manuelle de "Tessiture" depuis VBA, j'ai bien le mot "lien" qui se met dans la cellule active avec le lien hypertexte (lien hypertexte copier avant et se trouvant dans le presse-papier)

Re
Commençons par le commencement.
1) si j'ai bien compris, Tessiture fonctionne en manuel. c'est une bonne chose
2) Les deux selon touche (Activation et déactivation) présente semble-t-il des problèmes. Ou les avez vous mises? Personnellement, je les mets dans le même module que Tessiture et j'appelle activation ou déactivation par le module de la feuille. Je ne suis pas sur d'être très clair.
essayez comme celà, on verra.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub essaiSelonTouche() Application.OnKey "^{m}", "Tessiture" End Sub   Sub essaiSelonToucheAnnulation() Application.OnKey "^{m}" End Sub   Sub Tessiture() 'Faire copier l'adresse internet, Sélectionner la cellule et Ctrl+m ActiveCell.PasteSpecial xlPasteAll Lien = ActiveCell.Value ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Lien, TextToDisplay:="lien" End Sub

---

Dans le module de la page Feuil1 si c'est la que se passe le collage

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Activate() essaiSelonTouche End Sub   Private Sub Worksheet_Deactivate() essaiSelonToucheAnnulation End Sub

---

Cordialement 8-)

re
ouvrez plein de page internet dans IE minimisez IE ou pas
et testez ces deux modeles
pourquoi s'embeter avec les fenetres hein?

Citation:

---

Envoyé par patricktoulon

re
ouvrez plein de page internet dans IE minimisez IE ou pas
et testez ces deux modeles
pourquoi s'embeter avec les fenetres hein?

---

Bonsoir,

Vos solutions fonctionnent uniquement avec IE ?

re

oui.
pour chrome et firefox il y a selenium mais ca n'a jamais vraiment été au point et moins complet que le com pour IE

Citation:

---

Envoyé par patricktoulon

re

oui.
pour chrome et firefox il y a selenium mais ca n'a jamais vraiment été au point et moins complet que le com pour IE

---

Je me contenterai de IE pour faire mon fichier.

Merci beaucoup à tous pour votre aide, je vais gagner un temps considérable grâce à vous.

Citation:

---

Envoyé par patricktoulon

re

oui.
pour chrome et firefox il y a selenium mais ca n'a jamais vraiment été au point et moins complet que le com pour IE

---

Bonjour,

Merci Patrick ton code est exactement ce que j'ai souhaité mais maintenant je suis passé à MS edge et ça ne fonctionne plus. Peux tu m'indiquer une piste pour modifier ton code initial ?

Hello,
remuer une vieille discussion c'est toujours un peu risqué. En attendant la réponse de Patrick si il passe par ici, tu peux jeter un oeil 8O ici
Ami calmant, J.P