email et lien hypertexte

Le
bastientot
Bonjour,

voila j'ai dans un classeur excel une feuille avec des noms ou il y a
un lien hypertexte de type email et j'aimerais recuperer en colonne B
l'adresse email de chaque information de ma colonne A.

merci de votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #18334881
Salut à toi

Soit feuil1 à traiter
Colonne A les liens Hypertext
Colonne B le résultat (Adresse Email)
Je te propose ce code :

For Each c In Worksheets("Feuil1").Range("A2", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
Range("B" & c.Row) = Split(c.Hyperlinks(1).Address, ":")(1)
Next

Celà devrait convenir
Dis moi !!!!
bastientot
Le #18335361
comme d'hab super grand merci

On 8 jan, 16:18, FFO
Salut à toi

Soit feuil1 à traiter
Colonne A les liens Hypertext
Colonne B le résultat (Adresse Email)
Je te propose ce code :

For Each c In Worksheets("Feuil1").Range("A2", "A" &
Sheets("Feuil1").Range("A65535").End(xlUp).Row)
   Range("B" & c.Row) = Split(c.Hyperlinks(1).Address, ":")(1)
   Next

Celà devrait convenir
Dis moi !!!!


Publicité
Poster une réponse
Anonyme