XL 2021 ajouter un lien hypertexte au presse-papier

NitroX38X · Mercredi à 17:57

Bonjour à tous.

Avant tout, je tiens à vous souhaiter une belle et heureuse nouvelle année 2026.

Je fait appelle à vos connaissances car je bloque sur un bout de programme.
En effet, je veux pouvoir coller un lien HyperText (lien vers un site internet) dans un mail.
A ce jour, ça marche avec le code ci-dessous, mais je voudrait pouvoir "masquer" le lien du site (https://.....) pour que mon client ne voit que l'intitulé de la fiche produit.

Est-ce faisable?

Si oui, votre aide sera la bienvenue.
Merci

patricktoulon · Mercredi à 20:01

Bonsoir d'abords il faut ecrire ton mail en format html
et le lien c'est <A href=" https:\www.google.com">GOOGLE</A>
ton ldestinataire verra ceci dans son mail

VB:

Sub oulook()
    Dim olApp As Object
    Dim Mail As Object

    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")'au cas ou il est deja ouvert
    If olApp Is Nothing Then Set olApp = CreateObject("Outlook.Application")
    On Error GoTo 0

    If olApp Is Nothing Then Exit Sub

    Set Mail = olApp.CreateItem(0) ' olMailItem

    With Mail
        .Subject = "Petit message"
        .htmlBody = "<p>Bonjour,</p><br>" & vbCrLf & _
                "<a href=""https:/www.google.com"">Voici le lien dont nous avons parlé  :</A>"
        .Display   ' ouvre le message
    '.send'envoie le message
End With
End Sub

'pour toi ce sera
'.htmlBody = "<p>Bonjour,</p><br>" & vbCrLf & _
                "<a href=""" & range("RESULTAT_ARTCICLE_013").value &""">Voici le lien dont nous avons parlé  :</A>"

ne pas oublier le destinataire et leCC si on desire
patrick

NitroX38X · Mercredi à 20:18

Bonsoir Patrick. Merci pour votre retour rapide.

Il est vrai que je peux générer le mail avec Vba. Cependant, dans mon cas de figure, j'ai besoin que le lien soit collable dans un mail qui est déjà saisi par l'utilisateur qui répond à un mail reçu.

patricktoulon · Mercredi à 20:24

et oui mais la tu parle de quoi outlook, CDO, firebird ,etc...
comment savoir si l'editeur de l'app mail du gars qui te repond suporte le html
ce n'est pas possible le lien textuel oui c'est collable , mais pas le A href a mon avis

NitroX38X · Mercredi à 20:27

L'utilisateur utilise Outlook en format HTML.

A ce jour, mon code copie le lien HT dans le presse-papiers, mais sans cacher l'adresse complète du site. Ça marche, mais ce n'est pas ergonomique.

patricktoulon · Mercredi à 20:41

non j'ai testé c'est le code html qui est collé même en mode html dans outlook

met ca dans ton label57_click tu verra

VB:

CreateObject("htmlfile").parentwindow.clipboardData.setData "TEXT", "<html><a href=""https://www.google.com"">Voici le lien dont nous avons parlé  :</A></html>"

NitroX38X · Mercredi à 20:44

Merci pour votre aide. Je test demain au boulot et je vous ferai un retour. Je vous souhaite une bonne soirée.

XL 2021 ajouter un lien hypertexte au presse-papier

NitroX38X

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

NitroX38X

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

NitroX38X

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

NitroX38X

XLDnaute Nouveau

Discussions similaires

XL 2021 ajouter un lien hypertexte au presse-papier

NitroX38X

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

NitroX38X

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

NitroX38X

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

NitroX38X

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency