Extraire les informations contenues dans les infobulles

[phmt80]

Bonjour
Je retraite regulièrement un nombre important d'adresse mail que je recupère sur un site internet.
Je fais un copier coller des adresses sur excel (2007). Un lien hypertexte est associé à chaque adresse, et une infobulle ou apparait l'adresse complete, que seule, je veux recupérer.
J'ai beau chercher partout, je ne trouve pas de solution... Pourriez vous me dire si cette manip est possible?

Merci d'avance
Cordialement

Une deuxième question accéssoire: pour l'instant, donc, je me paluche toutes les adresses à la main, et quand j'ai fini, je les exporte sur un fichier texte, pour pouvoir mettre les adresses les unes à la suite des autres, séparées d'une virgule, de sorte à leur envoyer un mail groupé et unique. Existe il un moyen plus simple, pour arriver au même résultat (déconversion de données, quoi...)

Re merci d'avance
Re cordialement

 

[mromain]

Re : Extraire les informations contenues dans les infobulles

bonjour phmt80 et bienvenue sur le forum,

peux-tu mettre un fichier avec les imports stp ?

a+

 

[tototiti2008]

Re : Extraire les informations contenues dans les infobulles

Bonjour phmt80,

un essai avec 2 fonctions VBA :

 

[phmt80]

Re : Extraire les informations contenues dans les infobulles

bonjour phmt80 et bienvenue sur le forum,

peux-tu mettre un fichier avec les imports stp ?

a+

quelques mails en exemple

 

[phmt80]

Re : Extraire les informations contenues dans les infobulles

Bonjour phmt80,

un essai avec 2 fonctions VBA :

Dans l'eau....

Les deux fonctions n'ont pas marché
Mais je viens de mettre quelques adresses ds un xls en PJ

(PS.... On ne peut pas charger de PJ xlsx????

 

[tototiti2008]

Re : Extraire les informations contenues dans les infobulles

Re,

il faut que tu modifie dans la fonction AdresseLien :

AdresseLien = Cellule.Hyperlinks(1).Address

en

AdresseLien = Cellule.Hyperlinks(1).ScreenTip

 

[phmt80]

Re : Extraire les informations contenues dans les infobulles

Re,

il faut que tu modifie dans la fonction AdresseLien :

AdresseLien = Cellule.Hyperlinks(1).Address

en

AdresseLien = Cellule.Hyperlinks(1).ScreenTip

Je n'arrive pas à trouver la formule dans mon excel, est ce qu'eventuellement tu pourrais la glisser dans l'export que j'ai mis en ligne et me le remettre, s'il te plait?

 

[tototiti2008]

Re : Extraire les informations contenues dans les infobulles

Re,

voilà :

 

[phmt80]

Re : Extraire les informations contenues dans les infobulles

merci beaucoup... ca marche!!!

bonne semaine