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

Question

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

Configuration: Windows / Firefox 50.0

yg_be · Answer

Bonjour Jean, essaye :
Cells(2,3).Formula = texte
Supprime le Select , ce n'est pas une bonne pratique dans du VBA.

gbinforme · Answer

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

jeanCh · Answer

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

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

3 réponses

Discussions similaires

Newsletters