Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[ Résolu]Format adresse mail un textbox

  • Initiateur de la discussion Initiateur de la discussion fr832
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fr832

XLDnaute Occasionnel
Bonjour à tous,

je cherche à mettre au format adresse email les données d'un textbox

actuellement j'utilise ce code

.Cells(DerLig, 15).Value = Text_Mail

Par avance merci
 
Dernière édition:
Re : Format adresse mail un textbox

Bonjour à tous

fr832
On irait sans doute plus loin si tu daignais joindre un fichier Excel contenant ton code VBA.
je m'étonne qu'inscrit depuis août 2009, tu ignores ce point...🙄🙄

NB: Qu'appelles-tu format email ??
Tu veux dire un lien hypertexte cliquable qui ouvre le client de messagerie quand on clique dessus
un mailto: quoi ?
 
Dernière édition:
Re : Format adresse mail un textbox

Bonjour staple1600 ,
désolé je ne pensais pas nécessaire de joindre un fichier,
oui tout a fait je cherche à ce que le résultat soit sous forme mailto, de façon à ce qu'il soit cliquable dessus.

Merci pour l'aide
 
Re : Format adresse mail un textbox

Re


Tu viens pourtant d'en joindre un dans le fil ou r@chid te l'a suggéré. 😉
Il te reste donc à faire de faire de même dans ce fil-ci 😉

Cela évite aux éventuels "répondeurs" de perdre leur temps à créer un fichier qui existe déjà sur ton disque dur...

NB: Je suppose que tu as fait des recherches dans les archives du forum avant de poser ta question ?
Normalement la fonction d'un textbox est de permettre la saisie d'une donnée.

Pour un mail:to je verrrais plutôt l'emploi d'un contrôle Label.
Adapté d'un code du grand Walkenbach

Code:
Private Sub Label1_Click()
    Link = "mailto:wishyou@wherehere.com" 
   On Error GoTo NoCanDo 
   ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True 
   Unload Me 
   Exit Sub
NoCanDo: 
   MsgBox "Erreur" & Link
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
569
Réponses
1
Affichages
75
Réponses
5
Affichages
142
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…