Bonsoir 3Stone je cherche à intégrer une adresse email dans un doc word qui soit activable. j'utilise le code suivant pour insérer des données de ma base access vers Word via des signets. pour le texte cela fonctionne je pensai utiliser la fonction hyperlink.add mais je ne trouve pas la solution pour ancrer ma donnée au signet de word (texte surligné), connais-tu la solution? d'avance merci cordialement code utilisé: Private Sub BcAperçuAvImprim_Click() Set appword = New Word.Application Set Feuille = appword.Documents.Open("D:\Fichier.docx") 'rempli les signets du bordereau d'envoi appword.Selection.GoTo wdGoToBookmark, Name:="Destin_Nom": appword.Selection.TypeText (Me.ZtNom) appword.ActiveDocument.Hyperlinks.add Anchor:=Selection.Range, Address:="mailto:melanie.guelet@poste-immo.fr", SubAddress:="", ScreenTip:="", TextToDisplay:="mailto:melanie.guelet@poste-immo.fr" appword.ActiveDocument.SaveAs FileName:=""D:\Fichier.docx"" appword.Visible = True end sub |