Extraction URL

[sarinet]

Je vais essayer d'etre clair dans ma requete.

Comment peut-on extraire d'une cellule a laquelle est indexée une adresse URL, cette meme adresse sur une autre cellule en format Ce lien n'existe plus

Je joint un exemple.

Merci d'avance pour toute reponse sur le sujet.

Sarinet

 

[nat54]

Re : Extraction URL

Bonjour

=CONCATENER("<A href="http://it.wikipedia.org/wiki/";B4">http://it.wikipedia.org/wiki/";B4)

 

[sarinet]

Re : Extraction URL

Merci Nat 54,

mais je pense que je ne me suis pas fait bien expliquer.

Je desire dans la cellule B trouver l'extraction URL de la cellule A.

Merci a nouveau

 

[nat54]

Re : Extraction URL

Ok je ne suis pas sûre d'avoir compris une nouvelle fois

=LIEN_HYPERTEXTE(A6)

 

[sarinet]

Re : Extraction URL

Desolé de ne pas me faire comprendre ...
Je m'explique

Dans la colonne A la cellule contiennent le lien hypertexte comme dans l'exemple, ce que je cherche est l'extraction de ce lien URL en format texte dans la cellule adjacente dans la colonne B

Sarinet

 

[nat54]

Re : Extraction URL

Ok je viens de comprendre.. j'ai cherché via macro à copier le texte contenu dans clic droit -modifier lien mais that doesn't work 🙁

 

[nat54]

Re : Extraction URL

trouvé sur le net
Afficher les liens hypertextes qui sont associés à des cellules Excel. - Archives Visual Basic / VBA, Visual Basic, VB6, VB.NET, VB 2005

Sub ExtractionLiensHypertextes()
Dim Cell As Range
On Error Resume Next
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address
Next Cell
End Sub

je garde pour moi 🙂 aussi

 

[sarinet]

Re : Extraction URL

Hello Nat54,

Merci pour votre intervention

j'ai essayé aussi cette solution sans resultat.

J'ai essayé de trouver au etait memorisée l'adresse URL sans resultat, pourtant sur la feuille cette donnée doit etre memorisée....

Sarinet

 

[nat54]

Re : Extraction URL

soluce juste au dessus

 

[sarinet]

Re : Extraction URL

Merci a tous,

ça marche parfaitement bien

Je vais me mettre trés serieusemnet au VB

Salut a tous