Aidez moi !!!!

Bonjour David,

Range("D2") , D2 reprsésente l'adresse de la cellule où tu inscris tes adresses.

la méthode Follow contient des paramêtres que tu peux vouloir utiliser. consulte l'aide d'excel sur le sujet.

'-----------------------
Sub ExecuteLienHypertexte()

On Error Resume Next
With Worksheets("Feuil1")
.Range(.Range("D2")).Hyperlinks(1).Follow
On Error GoTo 0
End With

End Sub
'-----------------------


Salutations!



"David" <David@discussions.microsoft.com> a écrit dans le message de news: A96EF04A-DD27-46FA-992B-2BB3931D74E7@microsoft.com...
Bonjour à tous...

J'aimerai pouvoir activer un lien hypertexte contenu ds une cellule au moyen
d'un bouton mais par l'intermediaire d'une autre cellule contenant l'adresse
de la cellule contenant le lien. (je suis pas sur d'etre clair). Donc ,j'ai
plusieurs cellule contenant chacune un lien hypertexte, puis une cellule
variable contenant l'adresse de la cellule que j'aimerai activer afin de
lancer le lien.
Helas je suis nul en script donc je galere...

Merci d'avance à tous ceux qui pourront m'aider,
David

Bonjour David,

Range("D2") , D2 reprsésente l'adresse de la cellule où tu inscris tes adresses.

la méthode Follow contient des paramêtres que tu peux vouloir utiliser. consulte l'aide d'excel sur le sujet.

'-----------------------
Sub ExecuteLienHypertexte()

On Error Resume Next
With Worksheets("Feuil1")
.Range(.Range("D2")).Hyperlinks(1).Follow
On Error GoTo 0
End With

End Sub
'-----------------------


Salutations!



Merci pour ta reponse, donc en D2 j'ai l'adresse type $K$1 correpondant à l'adresse de la cellule contenant le lien hypertexte à activer. Je souhaiterai activer ce lien par un bouton qui activerait le lien en K1 en lui donnant seulement en reference la cellule D2 contenant l'adresse K1.....

Je te remercie encore pour ta reponse et espere trouver la solution......

Bonjour David,

Un clic droit sur l'onglet de ladite feuille, commande "Visualiser le code" et colle ceci :
Dans cette feuille, dès que tu va entrer l'adresse d'une cellule contenant un lien hypertexte, ce dernier va s'exécuter
automatiquement dès que tu vas valider le contenu de la cellle D2

'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D2").Address Then
If Target <> "" Then
On Error Resume Next
Range(Range("D2")).Hyperlinks(1).Follow
On Error GoTo 0
End If

End Sub
'---------------------------


Salutations!

Merci pour ta reponse, donc en D2 j'ai l'adresse type $K$1 correpondant à l'adresse de la cellule contenant le lien hypertexte à
activer. Je souhaiterai activer ce lien par un bouton qui activerait le lien en K1 en lui donnant seulement en reference la cellule
D2 contenant l'adresse K1.....

Je te remercie encore pour ta reponse et espere trouver la solution......

Bonjour David,

Un clic droit sur l'onglet de ladite feuille, commande "Visualiser le code" et colle ceci :
Dans cette feuille, dès que tu va entrer l'adresse d'une cellule contenant un lien hypertexte, ce dernier va s'exécuter
automatiquement dès que tu vas valider le contenu de la cellle D2

'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D2").Address Then
If Target <> "" Then
On Error Resume Next
Range(Range("D2")).Hyperlinks(1).Follow
On Error GoTo 0
End If

End Sub
'---------------------------


Salutations!

Merci pour ta reponse, donc en D2 j'ai l'adresse type $K$1 correpondant à l'adresse de la cellule contenant le lien hypertexte à
activer. Je souhaiterai activer ce lien par un bouton qui activerait le lien en K1 en lui donnant seulement en reference la cellule
D2 contenant l'adresse K1.....

Je te remercie encore pour ta reponse et espere trouver la solution......

Mille merci encore,
Mais probleme, erreur de compil avec message : "Bloc if sans end if !!"

Et je souhaiterai autoriser le lien uniquement par le clic sur un bouton de
formulaire.
Nous sommes bien d'accord qu'en cellule D2 il y a l'adresse de la cellule
contenant l'adresse du lien hypertexte. De type $K$1....

Ne craquez pas SVP....

Merci David

Bonjour David,

Tu copies ce qui suit dans un module standard,
et tu attaches cette macro à ton bouton.

P.S. Ne pas oublier d'adapter le nom de la Feuille
dans la procédure.

'--------------------------------
Sub ExecuterLienHypertexte()
With Worksheets("Feuil1") 'Nom Feuille à déterminer
If .Range("D2") <> "" Then
On Error Resume Next
.Range(.Range("D2")).Hyperlinks(1).Follow
On Error GoTo 0
End If
End With
End Sub
'--------------------------------



Salutations!



"David" <David@discussions.microsoft.com> a écrit dans le message de news: 8D2CD23E-F640-40F8-93F5-56B33F639297@microsoft.com...

Bonjour David,

Un clic droit sur l'onglet de ladite feuille, commande "Visualiser le code" et colle ceci :
Dans cette feuille, dès que tu va entrer l'adresse d'une cellule contenant un lien hypertexte, ce dernier va s'exécuter
automatiquement dès que tu vas valider le contenu de la cellle D2

'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D2").Address Then
If Target <> "" Then
On Error Resume Next
Range(Range("D2")).Hyperlinks(1).Follow
On Error GoTo 0
End If

End Sub
'---------------------------


Salutations!

Merci pour ta reponse, donc en D2 j'ai l'adresse type $K$1 correpondant à l'adresse de la cellule contenant le lien hypertexte à
activer. Je souhaiterai activer ce lien par un bouton qui activerait le lien en K1 en lui donnant seulement en reference la
cellule
D2 contenant l'adresse K1.....

Je te remercie encore pour ta reponse et espere trouver la solution......

Mille merci encore,
Mais probleme, erreur de compil avec message : "Bloc if sans end if !!"

Et je souhaiterai autoriser le lien uniquement par le clic sur un bouton de
formulaire.
Nous sommes bien d'accord qu'en cellule D2 il y a l'adresse de la cellule
contenant l'adresse du lien hypertexte. De type $K$1....

Ne craquez pas SVP....

Merci David

Bonjour et bon dimanche,

Et bien tout simplement un grand merci à Michdenis pour sa reponse, ET CA
FONCTIONNE super,

Merci encore