Discussion :

[licpegpon]

Bonjour,

Mon besoin : récupérer un lien hypertexte (très long : 560 caractères !! --> https://...) situé dans le fichier "Input_Mask.xlsm" (onglet "ADD_INFOS", cellule K24) et le coller dans le fichier "FOLLOW-UP.xlsm" (onglet "Feuil1", cellule Y6).


Ce que j'ai fait : Dans la procedure située dans le fichier "FOLLOW_UP..." j'ouvre le fichier "input_mask", je vais dans l'onglet "ADD_INFOS" et je mets la valeur de la cellule K24 dans la variable "Hyperlink" (variable déclarée comme String : Dim Hyperlink as String). Pour cela :

Code :

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

Hyperlink = Range("K24").Value

Ensuite :

Je reviens dans le fichier "FOLLOW-UP", je me positionne dans l'onglet "Feuil1" et je mets en cellule Y6 la valeur de Hyperlink. Pour cela :

Code :

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

Range("Y6").Value = Hyperlink

Cela fonctionne sauf que le résultat n'est pas un lien hypertexte mais seulement le texte. Que dois-je faire pour récupérer le lien hypertexte en cellule Y6 ?

Merci par avance.


Cdlt.
Jérôme.

[mercatog]

Avec l'enregistreur de macro

Code :

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

ActiveSheet.Hyperlinks.Add Anchor:=Range("Y6"), Address:=Hyperlink, TextToDisplay:="Texte_à_afficher"

[licpegpon]

Avec l'enregistreur de macro

Code :

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

ActiveSheet.Hyperlinks.Add Anchor:=Range("Y6"), Address:=Hyperlink, TextToDisplay:="Texte_à_afficher"

J'ai testé et ça fonctionne !! Merci beaucoup...


En fait je veux avoir à la place de "Texte à afficher" la valeur de la cellule B6, je modifie donc la formule de la façon suivante :

Code :

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

ActiveSheet.Hyperlinks.Add Anchor:=Range("Y6"), Address:=Hyperlink, TextToDisplay:=Range("B6").value

De plus, ce que je voudrais c'est que la cellule où se trouve le lien hypertexte soit vide si Hyperlink est vide. Le pb c'est que si je mets un test juste avant la ligne de commande que vous me proposez, la valeur de la cellule B6 va être effacée et remplacée par un vide, ce que je ne veux pas ... Comment m'y prendre ?

Je voyais quelque chose comme :

Code :

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

1
2
3
4
if Hyperlink = "" then
Range("B6") = ""
Else
Endif

Cdlt.
Jérôme.

[Patrice740]

Bonjour,

Essaies :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Sub RecupereLien()
Dim hy0 As Hyperlink
Dim hy1 As Hyperlink
  Set hy0 = Workbooks("Input_Mask.xlsm").Worksheets("ADD_INFOS").Range("K24").Hyperlinks(1)
  With Workbooks("FOLLOW-UP.xlsm").Worksheets("Feuil1")
    Set hy1 = .Hyperlinks.Add(Anchor:=.Range("Y6"), Address:=hy0.Address)
    hy1.SubAddress = hy0.SubAddress
    hy1.ScreenTip = hy0.ScreenTip
    hy1.TextToDisplay = hy0.TextToDisplay
  End With
End Sub

[licpegpon]

Bonjour,

Essaies :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Sub RecupereLien()
Dim hy0 As Hyperlink
Dim hy1 As Hyperlink
  Set hy0 = Workbooks("Input_Mask.xlsm").Worksheets("ADD_INFOS").Range("K24").Hyperlinks(1)
  With Workbooks("FOLLOW-UP.xlsm").Worksheets("Feuil1")
    Set hy1 = .Hyperlinks.Add(Anchor:=.Range("Y6"), Address:=hy0.Address)
    hy1.SubAddress = hy0.SubAddress
    hy1.ScreenTip = hy0.ScreenTip
    hy1.TextToDisplay = hy0.TextToDisplay
  End With
End Sub

Merci Patrice740.....

Cdlt.
Jérôme