OVH Cloud OVH Cloud

Lien hypertexte

3 réponses
Avatar
Hubert
Bonsoir
Quand ont saisi une adresse e-mail dans une cellule, le lien hypertexte se
crée automatiquement vers la messagerie. Pourquoi cela ne marche pas quand
cette même cellule est remplie par le biais d'un textbox : Range("A1").Value
= TextBox1.Value ...sachant que le textbox affiche une adresse e-mail d'une
autre cellule resultant d'une formule par RECHERCHEV !!!!
Merci d'avance
Cordialement
Hubert

3 réponses

Avatar
docm
Bonjour.

Pour ajouter un lien hypertexte en VBA, tu peux utiliser ceci:

ActiveSheet.Hyperlinks.Add Anchor:=[a1], Address:=TextBox1.Value

docm


"Hubert" a écrit dans le message de news:
Bonsoir
Quand ont saisi une adresse e-mail dans une cellule, le lien hypertexte se
crée automatiquement vers la messagerie. Pourquoi cela ne marche pas quand
cette même cellule est remplie par le biais d'un textbox : Range("A1").Value
= TextBox1.Value ...sachant que le textbox affiche une adresse e-mail d'une
autre cellule resultant d'une formule par RECHERCHEV !!!!
Merci d'avance
Cordialement
Hubert


Avatar
Hubert
Bonjour docm !
Merci pour la réponse, la formule me créer bien le lien mais celui ci reste
stérile et m'affiche "impossible d'ouvrir le lien spécifié"
J'ai le même resultat si j'affecte directement par excel la fonction lien
hypertexte à la cellule. Le problème est autre, si je saisi dans une cellule
une adresse e-mail, le lien vers la messagerie se crée automatiquement. Si
cette cellule est rempli par une textbox contenant cette adresse e-mail, et
même en affectant la fonction lien hypertexte à celle ci le lien vers la
messagerie est inexistant, juste ce message" impossible d'ouvrir le lien
spécifié" ????
Merci
Hubert


Bonjour.

Pour ajouter un lien hypertexte en VBA, tu peux utiliser ceci:

ActiveSheet.Hyperlinks.Add Anchor:=[a1], Address:=TextBox1.Value

docm


"Hubert" a écrit dans le message de news:
Bonsoir
Quand ont saisi une adresse e-mail dans une cellule, le lien hypertexte se
crée automatiquement vers la messagerie. Pourquoi cela ne marche pas quand
cette même cellule est remplie par le biais d'un textbox : Range("A1").Value
= TextBox1.Value ...sachant que le textbox affiche une adresse e-mail d'une
autre cellule resultant d'une formule par RECHERCHEV !!!!
Merci d'avance
Cordialement
Hubert







Avatar
Hubert
J'ai trouvé !!
Voici la formule, si cela peut servir à quelqu'un !!
Private Sub Label8_Click()
Sheets("Feuil1").Select
Range("A5").Value = Label8.Caption ' label8 etant une adresse e-mail
Range("A5").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"mailto:" & Label8.Caption, TextToDisplay:=Label8.Caption
Range("A5").Select
Selection.Hyperlinks(1).Follow NewWindow:úlse, AddHistory:=True

En cliquant sur le label, la messagerie s'ouvre avec l'adresse internet
affichée !!

Cordialement
Hubert



Bonjour docm !
Merci pour la réponse, la formule me créer bien le lien mais celui ci reste
stérile et m'affiche "impossible d'ouvrir le lien spécifié"
J'ai le même resultat si j'affecte directement par excel la fonction lien
hypertexte à la cellule. Le problème est autre, si je saisi dans une cellule
une adresse e-mail, le lien vers la messagerie se crée automatiquement. Si
cette cellule est rempli par une textbox contenant cette adresse e-mail, et
même en affectant la fonction lien hypertexte à celle ci le lien vers la
messagerie est inexistant, juste ce message" impossible d'ouvrir le lien
spécifié" ????
Merci
Hubert


Bonjour.

Pour ajouter un lien hypertexte en VBA, tu peux utiliser ceci:

ActiveSheet.Hyperlinks.Add Anchor:=[a1], Address:=TextBox1.Value

docm


"Hubert" a écrit dans le message de news:
Bonsoir
Quand ont saisi une adresse e-mail dans une cellule, le lien hypertexte se
crée automatiquement vers la messagerie. Pourquoi cela ne marche pas quand
cette même cellule est remplie par le biais d'un textbox : Range("A1").Value
= TextBox1.Value ...sachant que le textbox affiche une adresse e-mail d'une
autre cellule resultant d'une formule par RECHERCHEV !!!!
Merci d'avance
Cordialement
Hubert