VB - Création d'une cellule avec un lien

Résolu/Fermé
jeanCh - 18 nov. 2016 à 19:01
 jeanCh - 19 nov. 2016 à 00:27
Bonjour,

Je voudrais crées avec VB des cellules avec des liens hypertexte.
VB utilisé :
Cells(2,3).Select
texte = "=LIEN_HYPERTEXTE(""C:/Users/xxxx.jpeg"";""ecc"")"
ActiveCell.Value = texte
Je retrouve le texte dans la cellule mais ce n'est pas un lien.
Si sur la cellule je fais (à la main) "replace" de "=LIEN" par "=LIEN" ma cellule devient un lien et seul "ecc" est affiché, c'est bon.
Cela ne fonctionne pas si je mets le "replace" dans VB.
J'ai un palliatif mais si quelqu'un a une idée je suis preneur.
Merci de votre aide.
Jean

A voir également:

3 réponses

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
18 nov. 2016 à 19:27
Bonjour Jean, essaye :
Cells(2,3).Formula = texte

Supprime le Select , ce n'est pas une bonne pratique dans du VBA.
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
18 nov. 2016 à 21:31
Bonjour,

Je retrouve le texte dans la cellule mais ce n'est pas un lien.
Pour avoir un lien, il vaut mieux coder un lien comme ceci :
Activesheet.Hyperlinks.Add Anchor:=Cells(2,3), _
Address:="C:/Users/xxxx.jpeg", TextToDisplay:=;"ecc"
ou comme ceci :
Cells(2,3).Formula = "=HYPERLINK("C:/Users/xxxx.jpeg","ecc")
ou comme ceci :
Cells(2,3).FormulaLocal = "=LIEN_HYPERTEXTE(""C:/Users/xxxx.jpeg"";""ecc"")" 

à toi de choisir
0
Bonsoir

J'ai essayé avec "formula" et "formulalocal", j'ai toujours le problème.

Mais avec "Activesheet.Hyperlinks..." c'est OK.

Merci de votre aide.

Bien cordialement.

Jean
0