Macro VBA pour extraire des liens hypertextes

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

Après

Articles similaires

• VBA Left$() : macro pour extraire des caractères à gauche (4)
• VBA Right$() : macro pour extraire des caractères à droite (4)
• Macro pour supprimer les accents dans Excel (3)
• VBA LCase$() : macro pour mettre en minuscules (3)
• VBA Mid() : macro pour extraire les caractères d’une chaine (3)
• Macro pour concatener 2 colonnes (2)
• VBA UCase$() : macro pour mettre en majuscules (2)
• VBA InStr() : macro pour trouver la position d’un ou plusieurs caractères (2)
• VBA Msgbox() : macro pour afficher un message dans une boîte de dialogue (2)
• VBA Strreverse() : macro pour inverser l’ordre d’une chaîne de caractères (2)