Discussion :

[sanandreas1202]

Bonjour

je cherche à mettre de lien hypertexte dans un commentaire.

Si on tape le texte depuis word dans un commentaire puis on appuie sur Enter, le lien se met en bleu et l'hyperlien se crée.

Par contre je n'arrive pas à faire cela depuis vba.

J'ajoute un commentaire avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Selection.Comments.Add Range:=Selection.Range, Text:="http://www.google.com"

mais je n'arrive pas à activer l'hyperlien.

Est-ce que quelqu'un sait comment faire?

Merci d'avance

[QuestVba]

Bonjour essaie ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Selection.Comments.Add Range:=Selection.Range
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        "http://www.google.be", SubAddress:="", ScreenTip:="", TextToDisplay:= _
        "http://www.google.be"

[Heureux-oli]

Salut,

c'est normal, lorsque tu tapes au clavier une adresse, l'autocorrection de Word convertit ton texte en adresse Web si elle est reconnue comme adresse Web.

Pour ajouter une adresse web en VBA, il faut le spécifier et c'est pas du texte mais un Hyperlink qu'on ajoute.

Voilà un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub ajouterHPComment()
Dim myCom As Comment
 
Set myCom = ActiveDocument.Comments(1)
 
myCom.Range.Hyperlinks.Add Anchor:=myCom.Range, Address:="http://heureuxoli.developpez.com/"
 
Set myCom = Nothing
 
 
End Sub