Adresse mail ds lien hypertexte

[joss74]

Bonjour à tous,

Voilà mon problème :

J'ai une colonne contenant plus de 600 lignes avec un lien hypertexte renvoyant à une adresse mail du genre :

Mail

contact
contact
contact

Je souhaite extraire l'adresse mail du lien pour le copier sur une cellule à côté de manière automatique.

 

[Jocelyn]

Re : Adresse mail ds lien hypertexte

Bonjour le Forum,
Bonjour Joss74,

hum hum un petit bout de fichier d'une dizaine de ligne sans données confidentielles nous aiderait a t'aider.

Jocelyn

 

[pierrejean]

Re : Adresse mail ds lien hypertexte

bonjour Joss74

Salut Jocelyn 🙂 🙂 toujours un plaisir de te croiser

a tester apres adaptation pour les colonnes:

Sub test()
For n = 1 To Range("A65536").End(xlUp).Row
 x = Range("A" & n).Hyperlinks(1).Address
 x = Replace(x, "mailto:", "")
 Range("B" & n) = CStr(x)
Next n
End Sub

 

[joss74]

Re : Adresse mail ds lien hypertexte

Bonjour le Forum,
Bonjour Joss74,

hum hum un petit bout de fichier d'une dizaine de ligne sans données confidentielles nous aiderait a t'aider.

Jocelyn

Voici un petit bout de fichier : je veux extraire l'adresse mail de la colonne D pour la coller en I ; et j'ai plus de 600 lignes à faire !

Regarde la pièce jointe lien hypertexte.xls

 

[pierrejean]

Re : Adresse mail ds lien hypertexte

bonjour joss74

vois si cela te convient

 

[MJ13]

Re : Adresse mail ds lien hypertexte

Bonjour Joss74 et Pierrejean.

Pierrejean, Bravo pour ta macro. Ah le VBA cela a du bon!

 

[joss74]

Re : Adresse mail ds lien hypertexte

Un grand merci Pierrejean !

Je vais dès demain l'appliquer à mon fichier.

 

[joss74]

Re : Adresse mail ds lien hypertexte

Mr Pierrejean 🙂

Chapeau bas ! 😉

Un grand merci à toi car cela fonctionne nickel

Je vais devoir me mettre au VBA

 

[joss74]

Re : Adresse mail ds lien hypertexte

Bonjour le Forum,
Bonjour Joss74,

hum hum un petit bout de fichier d'une dizaine de ligne sans données confidentielles nous aiderait a t'aider.

Jocelyn

Cela fait plaisir de rencontrer un autre Jocelyn qui s'écrit et se prononce pareil