extraire des mails d'images...

[burluraux]

Bonjour,
voici mon soucis : j'ai un fichier avec des images (des enveloppes pour ne rien vous cacher ), il y a un lien hypertexte différent pour chaque image, des mailto. Je souhaiterais pouvoir faire une colonne avec tous les mails directement, sans avoir à faire un clic droit sur l'image puis copier le lien mailto.
d'ailleur au passage comment ensuite virer toutes ces images de la feuille ?

merci à tous, car je n'ai pas réussi à trouver de moyen (recopier les valeurs, macro, formules...).

et comme j'ai plus de 2 000 lignes, il est plus judicieux de trouver un moyen de le faire 'automatiquement'.

Nicolas

 

[MichelXld]

bonjour

pour extraire les liens attachés aux images , tu peux tester


Sub boucleImagesFeuille_RecupLiens_Mailto()
Dim Sh As Shape
Dim i As Integer

For Each Sh In Worksheets('Feuil1').Shapes
If Sh.Type = msoPicture Then
i = i + 1
On Error GoTo Suite 'gestion d'erreur si une iage ne contient pas de lien
Cells(i, 6) = Right(Sh.Hyperlink.Address, Len(Sh.Hyperlink.Address) - 7)
Suite:
End If
Next
End Sub




pour supprimer les images dans la feuille

Sub supprimerImagesFeuille()
Dim Sh As Shape

For Each Sh In Worksheets('Feuil1').Shapes
If Sh.Type = msoPicture Then Sh.Delete
Next

End Sub



bonne journée
MichelXld