Catégories
Macro Caractères Macros

Extraire des liens hypertextes avec VBA

Vous avez des liens hypertextes dans vos cellules et souhaitez les extraire ? Voici une formule qui exhaucera vos souhaits.

La macro d’extraction des liens

Sub extrairehyperlien()

Dim i As Range

For Each i In Selection.Cells
If (i.Hyperlinks(1).Address <>  » « ) Then
On Error Resume Next
i.Offset(0, 1) = i.Hyperlinks(1).Address

End If
Next

End Sub

Procédé :

  • Copier la macro dans Visual Basic
  • Sélectionner les cellules dont les liens sont à extraire
  • Exécuter la macro
  • Les résultats sont insérés à droite de chaque cellule

La macro en exemple

Avant

A B C
1 cours excel
2 tutoriel excel
3 doc excel

Après

A B C
1 cours excel http://www.docexcel.com
2 tutoriel excel http://www.docexcel.com
3 doc excel http://www.docexcel.com