Bonjour,
J'utilise un USF qui me sert à renseigner différentes infos concernant une association (adresse, commune et CP, N° tel, adresse mail,...).
Je voudrais que lorsqu'une personne saisisse l'adresse mail de l'association dans sa zone de texte, que le lien soit rendu actif afin qu'il puisse le cas échéant envoyer un mail à l'association.
J'ai tenté d'intégrer un bout de code dans ma macro, soit
Code:
Private Sub Mail_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Mail As Variant
Instructions...
Mail= Mail.Text.Hyperlinks.Add Anchor:=Mail.Text, Address:=Mail.Text
End Sub
ou bien
Code:
Private Sub Mail_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Mail As Variant
Instructions...
With Mail.Text
.Hyperlinks.Add Anchor:=.Mail.text, _
Address:=Mail.text, _
End With
End Sub
Dans les 2 cas apparaît le message : "Erreur de compilation : erreur de syntaxe".
Voyez-vous où est mon (mes) erreur(s) et comment y remédier ?
Merci
Bonjour,
je ne suis pas sur que cela est juste:
tu utilise la meme variable que le nom du sub .
pour le retse je ne sais pas je n'ai jamais utilisé cette fonction.
A+
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
el = "mailto:toto.titi@tata.fr"
ActiveWorkbook.FollowHyperlink Address:=el, NewWindow:=True
Unload Me
Exit Sub
End Sub
david84
PS: Tu ne peux ajouter un Hyperlink que sur un objet Range (cf touche F1 )
Re
merci à tous pour vos réponses.
JM : sur le principe, cela peut me convenir mais le lien activé correspond à l'adresse spécifiée dans le code
Code:
Private Sub Mail_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
el = "mailto:toto.titi@tata.fr"
ActiveWorkbook.FollowHyperlink Address:=el, NewWindow:=True
Unload Me
Exit Sub
End Sub
Or moi je voudrais que ce soit l'adresse rentrée dans le TextBox qui soit prise en compte.
Code:
PS: Tu ne peux ajouter un Hyperlink que sur un objet Range (cf touche F1 )
Dois-je en déduire que ce n'est pas possible tel que demandé ?
pierrejean,
Code:
Je ne pense pas possible de mettre un hyperlien dans un USF
donc même conclusion...
La solution serait-elle de récupérer le contenu de la TextBox dans une cellule (donc un Range) et d'appliquer une formule =LienHypertext classique ?
Je continue de mon côté et vous tiens au courant.
Si vous avez d'autres pistes ou conseils n'hésitez pas.
Merci et A+
pas tout compris... mais le code ci-dessous fonctionne chez moi à la sortie du "textbox" si adresse valide dans le "textbox" au moment de la sortie...;
Code:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 <> "" Then ActiveWorkbook.FollowHyperlink TextBox1.Value, , True
End Sub
Re
Pierrot
cela ne donne apparemment pas le résultat escompté (je dis "apparemment" parce que cela peut être de ma faute).
JM
J'ai adapté comme cela et cela fonctionne
Code:
Private Sub Mail_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
el = "mailto:" & Mail.Value
ActiveWorkbook.FollowHyperlink Address:=el, NewWindow:=True
Unload Me
Exit Sub
End Sub
Je ne vois pas ce que c'est. Je connais le contrôle label qui permet de placer un intitulé sur un USF mais je pense que tu parles d'autre chose...
En attendant, je l'ai associé à un bouton de commande :
Code:
Private Sub Envoi_Mail_Click()
If Mail.Value = "-" Then Exit Sub
el = "mailto:" & Mail.Value
ActiveWorkbook.FollowHyperlink Address:=el, NewWindow:=True
Unload Me
Exit Sub
End Sub
Bonsoir le fil ,
Ah, les jeunes, toujours pressés ...
Je répondrais comme les petits camarades, pas de liens hypertexte dans les TextBox ...
Mais tu peux lier à un clic droit l'utilisation du TextBox Mail pour un message unique, avec le clic-droit par exemple avec
Code:
Private Sub Mail_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
'...
End If
End Sub
C'est effectivement une possibilité mais j'aime bien aussi la liaison à un bouton de commande... bon de toutes façons, il sera toujours temps d'arrêter cela plus tard.
A+
Salut David ,
Teste le petit USF en pièce jointe .
Balade ton mulot de gauche à droite au dessus du TextBox
Clic à gauche du TextBox, ou à droite ...
C'est pas parfait, mais c'est dans l'idée ...
A +
Re
Merci JN
J'avoue que c'est bien aussi car cela permet de ne pas surcharger l'USF avec un autre bouton Mail...bon je verrai avec le collègue.
Merci
A+