Discussion :

[Benjycool]

Bonjour,

J'ai un petit soucis avec ma feuille.
Je voudrais copier une cellule du classeur "classeur1" dans un autre classeur "classeur2".
En la copiant je voudrais transformer le texte qu'il y a en lien hypertexte pouvant ramener vers "classeur1".
Sa me donnerai :

Classeur1 :aaaaaaaaaaaaaaaaaaaaaClasseur2 :
cellule B2 : "Bonjour" -------> cellule A1 : "Bonjour"

Mais en le copiant rajouter un lien qui pourait le ramener vers Classeur1.

Classeur1 :aaaaaaaaaaaaaaaaaaaaaaClasseur2 :
cellule B2 : "Bonjour" <------- cellule A1 : "Bonjour"


Voici mon code mais le lien ne fonctionne pas.

Code :

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

1
2
3
4
5
 
nom_lien = f1.Range("B2")
lien = f1.Range("B1")
f2.Hyperlinks.Add Anchor:=f2.Range("A1"), _
Address:=lien, TextToDisplay:=nom_lien

Merci de bien vouloir m'aider.

Benjycool

[ouskel'n'or]

Tu as un exemple ici qui pourrait te servir.
Sinon, tu tapes "Hypertexte" en recherche sur ce forum, tu as une foultitude de réponses.
Tu peux également essayer avec "HyperLink" (3 réponses ok) ou lien... etc
Bonne chasse