problème avec lien hypertexte en VBA

C

Compte Supprimé 979

Guest

• 3 Décembre 2016

• #2

Bonjour ticlaou

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

A+

 

Vote positif 0 Vote négatif

T

ticlaou

Guest

• 3 Décembre 2016

• #3

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 5 Décembre 2016

• #4

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

Code:

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

A+

 

Vote positif 0 Vote négatif

T

ticlaou

Guest

• 5 Décembre 2016

• #5

Re,

il me donne ce résultat :
alors que je voudrais juste le numéro qui se trouve dans AC46 par exemple :

Merci.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 5 Décembre 2016

• #6

Re,

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

Code:

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+

 

Vote positif 0 Vote négatif

T

ticlaou

Guest

• 5 Décembre 2016

• #7

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Décembre 2016

• #8

Bonsoir.
Essayez peut être :

VB:

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

 

Vote positif 0 Vote négatif

T

ticlaou

Guest

• 6 Décembre 2016

• #9

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).

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Décembre 2016

• #10

Ben vous ajoutez ,RC29

VB:

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

 

Vote positif 0 Vote négatif

T

ticlaou

Guest

• 6 Décembre 2016

• #11

Merci bcp.

 

Vote positif 0 Vote négatif