problème avec lien hypertexte en VBA

[ticlaou]

Bonjour,
j'ai un petit souci lors de la création d'un lien en VBA dans une cellule Excel voici la formule :

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Ce lien n'existe plus" & Cells(m, 29)

le résultat est satisfaisant sauf qu'il ne prend pas la valeur de cells(m, 29), sachant qu'elle sera ultérieurement rempli, il me donne toujours : (Ce lien n'existe plus) sans plus.

Merci pour l'aide.

 

[Compte Supprimé 979]

Bonjour ticlaou

Es-tu certain que ta : cells(m, 29) contient quelque chose !?

A+

 

[ticlaou]

Non pas au moment de la création du lien, mais après lors du remplissage de la feuille quotidiennement au cours du mois.

 

[Compte Supprimé 979]

Re,

Je m'en doutais un peu

Tu ne dois donc pas créer de lien hypertexte directement, mais tu dois inscrire une formule faisant référence à un lien hypertexte

Selection.FormulaLocal = "=LIEN_HYPERTEXTE(""http://xxxxx.xxxxxx.xx:8081/Helpdeskinformatique/view.php?id=" & Cells(m, 29).Address & """)"

A+

 

[ticlaou]

Re,

il me donne ce résultat :

alors que je voudrais juste le numéro qui se trouve dans AC46 par exemple :

Merci.

 

[Compte Supprimé 979]

Re,

La fonction peut avoir un argument supplémentaire, le nom convivial ;-)

Selection.FormulaLocal = "=LIEN_HYPERTEXTE(""http://xxxxx.xxxxxx.xx:8081/Helpdeskinformatique/view.php?id=" & Cells(m, 29).Value & Chr(34) & ";" & Chr(34) & Cells(m, 29).Value & Chr(34) & ")"

chr(34) remplace le guillemet, plus facile à lire et à créer

A+

 

[ticlaou]

Re,
il me sort incompatibilité de type, je m'excuse si je suis trop novice en VBA.

 

[Dranreb]

Bonsoir.
Essayez peut être :

ActiveCell.FormulaR1C1 = "=HYPERLINK(""http://xxxxx.xxxxxx.xx:8081/Helpdeskinformatique/view.php?id=""&RC29)"

 

[ticlaou]

Merci Dranreb, mais ca ne marche toujours pas, en plus il m'écrit toute la ligne du lien, alors que je ne veux afficher que le numéro de la réclamation (valeur dans la cellule).

 

[Dranreb]

Ben vous ajoutez ,RC29

.FormulaR1C1 = "=HYPERLINK(""http://xxxxx.xxxxxx.xx:8081/Helpdeskinformatique/view.php?id=""&RC29,RC29)"

 

[ticlaou]

Merci bcp.