Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel lien hypertexte par macro

lien hypertexte par macro

4 réponses
Avatar
LeViaTHaN
Bonjour =E0 tous,

j'aimerais pourvoir =E9crire un lien http dans une celulle=20
=E0 partir d'une macro. L'expression :
Range(@de_ma_cellule).FormulaLocal =3D "=3DLIEN_HYPERTEXT
("http://www.microsoft.com";"site microsoft")"

ne semble pas marcher (me g=E9n=E8re une erreur =E0 la=20
compilation.

Quelqu'un pourrait-il m'aider =E0 r=E9soudre ce probl=E8me ???

D'avance merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Sheets("Feuil1").Range("A1").Hyperlinks.Add Anchor:=Range("A1"), Address:= _
"http://www.excelabo.net/", TextToDisplay:="Excelabo"

AV

"LeViaTHaN" a écrit dans le message news:
192401c38738$534f4c50$
Bonjour à tous,

j'aimerais pourvoir écrire un lien http dans une celulle
à partir d'une macro. L'expression :
Range(@de_ma_cellule).FormulaLocal = "=LIEN_HYPERTEXT
("http://www.microsoft.com";"site microsoft")"

ne semble pas marcher (me génère une erreur à la
compilation.

Quelqu'un pourrait-il m'aider à résoudre ce problème ???

D'avance merci
Avatar
LeViaTHaN
OK, j'ai trouvé ...

strURL = """http://www.google.com"""
strNOM = """google en français"""
Range("A2").FormulaR1C1Local = "=LIEN_HYPERTEXTE(" &
strURL & ";" & strNOM & ")"

... marche (faire attention à la redondance des ")

Merci et bonne journée
-----Message d'origine-----
Bonjour à tous,

j'aimerais pourvoir écrire un lien http dans une celulle
à partir d'une macro. L'expression :
Range(@de_ma_cellule).FormulaLocal = "=LIEN_HYPERTEXT
("http://www.microsoft.com";"site microsoft")"

ne semble pas marcher (me génère une erreur à la
compilation.

Quelqu'un pourrait-il m'aider à résoudre ce problème ???

D'avance merci

.



Avatar
LeViaTHaN
Merci AV.
Je vais essayer de ce pas cette méthode qui m'a l'air
plus "propre" que la mienne

Bonne journée à tous
-----Message d'origine-----
Sheets("Feuil1").Range("A1").Hyperlinks.Add Anchor:=Range
("A1"), Address:= _

"http://www.excelabo.net/",
TextToDisplay:="Excelabo"


AV

"LeViaTHaN" a écrit dans le
message news:

192401c38738$534f4c50$
Bonjour à tous,

j'aimerais pourvoir écrire un lien http dans une celulle
à partir d'une macro. L'expression :
Range(@de_ma_cellule).FormulaLocal = "=LIEN_HYPERTEXT
("http://www.microsoft.com";"site microsoft")"

ne semble pas marcher (me génère une erreur à la
compilation.

Quelqu'un pourrait-il m'aider à résoudre ce problème ???

D'avance merci



.



Avatar
Daniel
J'ai trouver cela: (ce qui me manque est de mettre la valeur Selection.Copy
a la place des [] dans le criteria )

Sub macro_test()
'
' Macro4 Macro
' Macro enregistrée le 2003-10-29 par Daniel
'

'
ActiveCell(2, 12).Select
Selection.Copy
Windows("Insp_RDP.xls:3").Activate
Selection.AutoFilter Field:=2, Criteria1:="=[]", Operator:=xlAnd
Windows("Insp_RDP.xls:1").Activate
ActiveCell(6, 1).Select
End Sub

----- Original Message -----
From: "Daniel"
Newsgroups: microsoft.public.fr.excel
Sent: Wednesday, October 29, 2003 9:06 PM
Subject: Re: ajuster le hyperlien


Gros Marci cela fonctionne bien
Maintenant je voudrait que lorsque je clic sur le lien cela me change de
fenêtre et fait un FILTRE dans une autre fenêtre a coté (ont voie deux
demie

fenêtre un peut superposer).
il y a environ 200 lien dans la première,
La ou le lien arrive (ou il me transfer) il y a les chifres (et lettre)
que je doit utiliser pour faire le filtre.

"Jean-François Aubert" <à a écrit dans le message
de

news: