Extraire Url d'une cellule

[pierre87]

Bonjour à tous,

J'ai un soucis depuis 1 semaine que je n'arrive pas à résoudre alors que j'ai tout tenté.

Comme indiqué dans le titre, mon but est d'extraire l'url d'un lien présent sur une cellule cliquable.

J'ai mon lien en A1 et je souhaite extraire l'url du lien et de le fair apparaitre dans A2.

Je travaille sous Openoffice.org Calc.

Après plusieurs recherche, je suis tombé sur un site qui proposé cette manipulation.

Je tape "Alt+F11." pour faire apparaître la fenêtre "Macros Open office.org Basic"

Je clique sur "nouveau", une fenetre apparait, j'éfface les 2 ou 3 lignes déjà présent et je met le code:


Function GetAddress(HyperlinkCell As Range)
GetAddress = Replace _
(HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")
End Function

Puis j'enregistre.

Comme ma céllule ou ya le lien est en A1, je vais sur la cellule A2,et je met "=GETADDRESS(A1)"

Je clique et là j'ai un message d'erreur, "Erreur d'execution Basic, Variable d'objet non définie"

Pourtant j'ai fait exactement ce qui est marqué dans le tutoriel.

Si quelqu'un peut m'aider, ca arrangerait beaucoup car je bloque depuis longtemps et je suis embété,

Merci d'avance. Pierre.

 

[Dranreb]

Re : Extraire Url d'une cellule

Bonjour.

À tout prendre je me demande si je ne préférerait pas faire l'inverse: mettre en A2 l'adresse E-Mail et en A1:

=LIEN_HYPERTEXTE("MailTo:"&A2;"Contacter")

Pour l'instant je suis fondé à penser qu'il n'y a pas de lien hypertexte sur votre cellule.
… Mais il pourrait y en avoir un par contre sur un groupe de cellules fusionnées commençant par la A1, je ne sais pas, faute de voir le classeur.

 

[pierre87]

Re : Extraire Url d'une cellule

Bonjour Dranreb,

En A1, il n'y a pas d'adresse email, mais un mot du type "site de plongé" et quand je clique sur cette cellule j'arrive donc sur le site de plongé.

Mais ce que je voudrais c'est qu'en "A2", il y l'url du lien qui apparait.

Merci de votre aide.

 

[MJ13]

Re : Extraire Url d'une cellule

Bonjour Pierre, Bernard


Pour voir si il y a un lien hypertexte, on peut le vérifier avec ctrl+k.

On peut aussi en Vba le retranscrire ainsi:

ActiveCell.Offset(0, 1) = ActiveCell.Hyperlinks(1).Address

 

[Staple1600]

Re : Extraire Url d'une cellule

Bonsoir à tous

Les aminches
Vous semblez avoir oublié ce point essentiel (notamment pour l'emploi de VBA)

Je travaille sous Openoffice.org Calc.

 

[MJ13]

Re : Extraire Url d'une cellule

Re, Bonjour JM

Ah, mais c'est pour ça, que cela fait une semaine qu'il n'y arrive pas .

 

[pierre87]

Re : Extraire Url d'une cellule

Donc si j'ai bien compris, comme je travaille sous open office calc, il n'y a pas de solution?

Merci.