L ltbg Guest 11 Avril 2006 #1 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
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
L ltbg Guest 11 Avril 2006 #3 voici le fichier [file name=MACROLOGO39.zip size=21870]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MACROLOGO39.zip[/file] Pièces jointes MACROLOGO39.zip 21.4 KB · Affichages: 9 Vote positif 0 Vote négatif
voici le fichier [file name=MACROLOGO39.zip size=21870]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MACROLOGO39.zip[/file]
M MichelXld XLDnaute Barbatruc 11 Avril 2006 #4 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 Vote positif 0 Vote négatif
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