Discussion :

[F6AAP]

Bonjour,

Je n'arrive pas par macro à affecter une valeur à une cellule et lui associer un lien hypertexte me permettant d'ouvrir le site concerné par la valeur contenu dans la cellule.

ci-dessous le code sur lequel je bute.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 	tabcel = feuille.getcellbyposition(1,lig) 
 	tabcel.string = LIEN_HYPERTEXTE(URL,valeur)

Merci par anticipation pour votre aide.

LibreOffice 6.0.7.3
Ubuntu 18.04.2 LTS

Cordialement

[Mobydick_62]

Bonjour,
Réponse un peu tardive :
Écrits plutôt comme cela : (en effet il faut utiliser FormulaLocal)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tabcel.FormulaLocal="=LIEN.HYPERTEXTE(""https://forum.openoffice.org/fr/forum/viewtopic.php?f=8&t=16634"";""Test"")"

Attention au doublement des guillemets (début et fin de https et début et fin de test)

Si ton lien se trouve dans une variable (URL), il faudra aussi veiller à doubler certains guillemets avec le code chr(34). Exemple si dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim URL As String, sFormule As String 
URL = "https://forum.openoffice.org/fr/forum/viewtopic.php?f=8&t=16634" 
sFormule = "=LIEN.HYPERTEXTE(" & chr(34) & URL & chr(34) & ";" & chr(34) & "Test" & chr(34) & ")"
tabcel.FormulaLocal = sFormule

Cordialement