extraction e mail

[ltbg]

bonjour

voila on m'avait donne cette macro pour extraire des emails de logos, sur ce forum il y a quelques temps mais curieusement elle ne fonctionne plus .

Quelqu'un pourrait il la corriger ?

merci

 

[ltbg]

le fichier

 

[ltbg]

voici le fichier [file name=MACROLOGO39.zip size=21870]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MACROLOGO39.zip[/file]

 

[MichelXld]

bonsoir

tu peux tester cette adaptation

Dim i As Integer
Dim x As String
Application.ScreenUpdating = False

On Error Resume Next
For i = 1 To Feuil1.Shapes.Count
x = Feuil1.Shapes(i).Hyperlink.Address
Range(Feuil1.Shapes(i).TopLeftCell.Address).Offset(0, 2).Value = x
Next i

Application.ScreenUpdating = True



bonne soirée
MichelXld

Message édité par: michelxld, à: 11/04/2006 21:13