Discussion :

[Benjycool]

Bonjour,

Je voudrais copier le texte d'une cellule pour le copier dans un autre classeur mais en y ajoutant un lien hypertexte vers le premier classeur.

Je m'explique :
J'ai un classeur Classeur1 avec une feuille feuil1. Je copie la valeur ("Bonjour") de la cellule "B5".
J'ai un second classeur Classeur2 avec une feuille feuil2. Je colle le contenue de la case "B5" dans la case "A4".

Mais en même temps je voudrais mettre un lien hypertexte qui, lorsque je cliquerais sur "Bonjour" de la case "A4" du Classeur2, me ramenrai vers Classeur1 et feuil1.

J'espere être asser clair.
Merci pour votre aide.

Benjycool

[ouskel'n'or]

Si j'ai bien compris...

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub TesteÇa()
'Colle la donnée de la cellule E8 de la feuil1 de classeur2.xls ds...
'... la cellule B2 de feuil1 de classeur1.xls
    Workbooks("Classeur1").Worksheets("feuil1").Range("B2").Formula = _
        "='D:\xls\[Classeur2.xls]Feuil1'!$E$8"
'Insère dans la cellule contenant la donnée (B2) de la feuil1 du classeur1.xls...
'... le lien hypertexte avec la feuil1 du Classeur2.xls
    Workbooks("Classeur1").Worksheets("feuil1").Hyperlinks.Add _
        Anchor:=Worksheets("feuil1").Range("B2"), Address:="D:\xls\Classeur2.xls"
End Sub

Bon app'

[Benjycool]

Ok mais lorsque tu écris ça :

Code :

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

1
2
 
Workbooks("Classeur1").Worksheets("feuil1").Hyperlinks.Add _

Ne faut-il pas que je précise la case où l'on ajoute le lien???
Si oui comment ???

Merci de m'aider.

Benjycool

[Benjycool]

Ok c'est bon j'ai trouver je n'avais pas reflechie.

Code :

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

1
2
 
Workbooks("Classeur1").Worksheets("feuil").Range("...").Hyperlinks.Add _

Merci.

Benjycool