OVH Cloud OVH Cloud

Lien Hypertexte

3 réponses
Avatar
Nico
Bonjour à tous...

J'ai un petit problème/obstacle sous Excel 2003...
J'ai un fichier Excel, dans lequel j'ai créé un lien hypertexte vers une
adresse Internet.
Lorsque j'enregistre mon fichier Excel en format .htm, le lien fonctionne
sans problème.

Par contre, je souhaiterai que cette page s'ouvre dans une nouvelle page du
navigateur... et qu'elle ne s'ouvre pas dans la page en cours...

Je sais que j'ai la possibilité de modifier les fichiers sheetxxxx.htm afin
de modifier la valeur _parent en valeur _blank...
Mon soucis est que je vais régulièrement modifier mon fichier et je vais
avoir bcp de lien... donc je n'ai po trop envie de modifier tous les
fichiers sheetxxx.htm...

Donc si vous aviez une idée intelligente :) Je suis super preneur !


Merci bcp,

Nico

3 réponses

Avatar
michdenis
Bonjour Nico,

As-tu essayé ceci :

À copier dans le module Feuille où l'action se déroule.
Adapte l'adresse de la cellule contenant le lien hypertexte
'--------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Hpl As Hyperlink
On Error Resume Next
If Target.Address = Range("A1").Address Then
Set Hpl = Target.Hyperlinks(1)
If Err = 0 Then
Hpl.Follow True
Else
Err = 0
End If
End If

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


Salutations!



"Nico" a écrit dans le message de news:
Bonjour à tous...

J'ai un petit problème/obstacle sous Excel 2003...
J'ai un fichier Excel, dans lequel j'ai créé un lien hypertexte vers une
adresse Internet.
Lorsque j'enregistre mon fichier Excel en format .htm, le lien fonctionne
sans problème.

Par contre, je souhaiterai que cette page s'ouvre dans une nouvelle page du
navigateur... et qu'elle ne s'ouvre pas dans la page en cours...

Je sais que j'ai la possibilité de modifier les fichiers sheetxxxx.htm afin
de modifier la valeur _parent en valeur _blank...
Mon soucis est que je vais régulièrement modifier mon fichier et je vais
avoir bcp de lien... donc je n'ai po trop envie de modifier tous les
fichiers sheetxxx.htm...

Donc si vous aviez une idée intelligente :) Je suis super preneur !


Merci bcp,

Nico
Avatar
Nico
Oula... C'est un peu du chinois pour moi !
Peux tu m'expliquer un peu plus....C'est du VBA non ? du coup je dois écrire
ou ce code ?

Merci beauoup,

Nico

"michdenis" a écrit dans le message de news:

Bonjour Nico,

As-tu essayé ceci :

À copier dans le module Feuille où l'action se déroule.
Adapte l'adresse de la cellule contenant le lien hypertexte
'--------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Hpl As Hyperlink
On Error Resume Next
If Target.Address = Range("A1").Address Then
Set Hpl = Target.Hyperlinks(1)
If Err = 0 Then
Hpl.Follow True
Else
Err = 0
End If
End If

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


Salutations!



"Nico" a écrit dans le message de news:

Bonjour à tous...

J'ai un petit problème/obstacle sous Excel 2003...
J'ai un fichier Excel, dans lequel j'ai créé un lien hypertexte vers une
adresse Internet.
Lorsque j'enregistre mon fichier Excel en format .htm, le lien fonctionne
sans problème.

Par contre, je souhaiterai que cette page s'ouvre dans une nouvelle page
du
navigateur... et qu'elle ne s'ouvre pas dans la page en cours...

Je sais que j'ai la possibilité de modifier les fichiers sheetxxxx.htm
afin
de modifier la valeur _parent en valeur _blank...
Mon soucis est que je vais régulièrement modifier mon fichier et je vais
avoir bcp de lien... donc je n'ai po trop envie de modifier tous les
fichiers sheetxxx.htm...

Donc si vous aviez une idée intelligente :) Je suis super preneur !


Merci bcp,

Nico





Avatar
michdenis
Bonjour Nico,

Un clic droit sur l'onglet de la feuille, Menu contextuel / visualiser le code /
et tu copies le code dans la page blanche.

Dans la procédure, tu remplaces A1 par l'adresse de cellule où est ton
lien hypertexte : If Target.Address = Range("A1").Address Then


Salutations!


"Nico" a écrit dans le message de news:
Oula... C'est un peu du chinois pour moi !
Peux tu m'expliquer un peu plus....C'est du VBA non ? du coup je dois écrire
ou ce code ?

Merci beauoup,

Nico

"michdenis" a écrit dans le message de news:

Bonjour Nico,

As-tu essayé ceci :

À copier dans le module Feuille où l'action se déroule.
Adapte l'adresse de la cellule contenant le lien hypertexte
'--------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Hpl As Hyperlink
On Error Resume Next
If Target.Address = Range("A1").Address Then
Set Hpl = Target.Hyperlinks(1)
If Err = 0 Then
Hpl.Follow True
Else
Err = 0
End If
End If

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


Salutations!



"Nico" a écrit dans le message de news:

Bonjour à tous...

J'ai un petit problème/obstacle sous Excel 2003...
J'ai un fichier Excel, dans lequel j'ai créé un lien hypertexte vers une
adresse Internet.
Lorsque j'enregistre mon fichier Excel en format .htm, le lien fonctionne
sans problème.

Par contre, je souhaiterai que cette page s'ouvre dans une nouvelle page
du
navigateur... et qu'elle ne s'ouvre pas dans la page en cours...

Je sais que j'ai la possibilité de modifier les fichiers sheetxxxx.htm
afin
de modifier la valeur _parent en valeur _blank...
Mon soucis est que je vais régulièrement modifier mon fichier et je vais
avoir bcp de lien... donc je n'ai po trop envie de modifier tous les
fichiers sheetxxx.htm...

Donc si vous aviez une idée intelligente :) Je suis super preneur !


Merci bcp,

Nico