VB - Création d'une cellule avec un lien
Résolu
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
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
3 réponses
-
ContributeurBonjour Jean, essaye :
Cells(2,3).Formula = texte
Supprime le Select , ce n'est pas une bonne pratique dans du VBA. -
ContributeurBonjour,
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 -
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
