Copier l'adresse du lien

Question

Comment puis-je copier l'adresse du lien hypertexte dans le presse-papiers?

En utilisant l'option "Enregistrer une macro", je reçois ceci:

Sub CopyHyperlink() 
    Selection.Range.Hyperlinks(1).Range.Fields(1).Result.Select 
    Selection.Copy 
End Sub 

Mais, cela ne me donne pas le résultat souhaité. Voir l'image pour comparer les résultats réels et souhaités:

Comme vous le voyez, mon code est en fait la copie de texte de lien, au lieu de son adresse.

Probablement, il devrait y avoir quelque chose comme

Selection.Range.Hyperlinks(1).Address 

mais il ne fonctionne pas du tout.

Comment le faire fonctionner correctement?

Answer 1

En supposant que vous avez utilisé Selection parce que vous l'avez enregistré avec un enregistreur de macros, vous devez le modifier en fonction de votre classeur.

Insérez la bibliothèque suivante:

Outils -> Références -> Microsoft Forms 2.0 Object Library

et utiliser le code suivant:

Sub CopyHyperlink() 
Dim clipboard As MSForms.DataObject 
Set clipboard = New MSForms.DataObject 

clipboard.SetText Selection.Hyperlinks(1).Address 
clipboard.PutInClipboard 
End Sub