Insérer depuis Excel un lin hypertexte dans un signet Word

Version imprimable

Bonjour à toutes et à tous

J'ai automatisé tout un fichier Excel par VBA. Je dois à un moment incorporer du texte dans Word. Jusque là tout va bien. Où j'ai un souci, je dois incorporer un lien hypertext dans ce document. Ce lien est variable, contenu dans une cellule Excel.

Pur tester pour l'instant, j'ai mis un lien fixe, mais cela ne fonctionne pas non plus.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub CorpsMail()
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
FichierAttente = Application.Index(Para.Range("E:E"), Application.Match(Environ("COMPUTERNAME"), Para.Range("D:D"), 0)) & Para.Range("B5").Value & "1-" & NomDoc
Set WordDoc = WordApp.Documents.Open(Application.Index(Para.Range("E:E"), Application.Match(Environ("COMPUTERNAME"), Para.Range("D:D"), 0)) & Para.Range("B5").Value & NomDoc)
WordApp.Activedocument.SaveAs Filename:=FichierAttente
LigneDoc = Application.Match(NomDoc, FeSignet.Range("A:A"), 0)
Set TextMail = WordApp.Activedocument
 
For Col = 7 To 200 Step 2
   If FeSignet.Cells(LigneDoc, Col) = "" Then Exit For
      MonText = Mafeuil.Range(FeSignet.Cells(LigneDoc, Col).Value).Value
      MonSignet = FeSignet.Cells(LigneDoc, Col + 1).Value
      Place = TextMail.Bookmarks(MonSignet).Range.Start
      TextMail.Bookmarks(MonSignet).Range.Text = MonText
      TextMail.Bookmarks.Add Name:=MonSignet, Range:=TextMail.Range(Place, Place + Len(MonText))
Next Col
      MonSignet = "Lien"
      Place = TextMail.Bookmarks(MonSignet).Range.Start
      TextMail.Hyperlinks.Add Anchor:=TextMail.Selection.Range, _
        Address:="https://www.google.fr/", SubAddress:="", ScreenTip:="", TextToDisplay:="Formulaire de contact"
End Sub

Me renvoie l'erreur sur la dernière ligne : Erreur d'exécution '438' : Propriété ou méthode non gérée par cet objet.

j'ai remplacer

Code:

1
2
      TextMail.Hyperlinks.Add Anchor:=TextMail.Selection.Range, _
        Address:="https://www.google.fr/", SubAddress:="", ScreenTip:="", TextToDisplay:="Formulaire de contact"

par

Code:

1
2
  WordApp.Activedocument.Hyperlinks.Add Anchor:=WordApp.Activedocument.Selection.Range, _
        Address:="https://www.google.fr/", SubAddress:="", ScreenTip:="", TextToDisplay:="Formulaire de contact"

même code erreur

Quelqu'un aurait une solution ?

Bonne journée à tous

Dom

Bonjour,

Selection ne doit pas avoir pour parent le document mais Word. Donc j'essayerais plutôt
Code:

1 2 TextMail.Hyperlinks.Add Anchor:=WordApp.Selection.Range, _ Address:="https://www.google.fr/", SubAddress:="", ScreenTip:="", TextToDisplay:="Formulaire de contact"

24/02/2023, 14h20
DomDI

Ecxélent... cela fonctionne

Merci

Bonne journée
24/02/2023, 14h42
DomDI

j'ai un dernier souci, je n'arrive pas à le positionner à mon signet "Lien" . Il se met en début de mon document
24/02/2023, 16h12
deedolith

Salut,

Plutôt que piloter Word petit bouts par petit bouts (ce qui est chiant et bien lourdingue),
ne serait-ce pas plus simple de faire du publipostage ?
24/02/2023, 16h22
Tête de chat
Re,

Anchor désigne l'emplacement du lien. Là on le place sur la sélection en cours, donc comme on n'a pas fait grand chose de ce côté il est logique qu'elle soit restée en début de document.

Si je comprends bien ce que tu es en train de faire, il faudrait essayer de remplacer WordApp.Selection.Range par TextMail.Bookmarks(MonSignet).Range, à condition que le signet "lien" soit défini.

En passant je ne vois pas beaucoup de déclarations dans ton code. Ajoute un Option Explicit en tête de module et déclare tes variables !
Code:

1 2 3 4 Dim WordApp as Object Dim FichierAttente as String Dim WordDoc as Word.Document 'Etc.
et pour finir, à ce stade le deuxième ligne Place = TextMail.Bookmarks(MonSignet).Range.Start me semble ne servir à rien.
24/02/2023, 17h42
DomDI
Re,

merci pour la réponse. Tout fonction bien
Code:

1 2 TextMail.Hyperlinks.Add Anchor:=TextMail.Bookmarks("Lien").Range, _ Address:=GFCC.Range("I11").Value, SubAddress:="", ScreenTip:="", TextToDisplay:="Formulaire de contact"
T'inquiets pas pour les déclarations,; tout était fait en dédut de module

Merci encore

Problème définitivement résolu

Bonne fin de journée et bon week-end