OVH Cloud OVH Cloud

Couper lien Hypertext

1 réponse
Avatar
Max
Bonjour,
Je copie un tableau du Web sur une feuille Excel. Pour couper les liens
j'exécute la macro suivante:
Sub CouperLien()
Dim hyp
For Each hyp In ActiveSheet.Hyperlinks
hyp.Delete
Next hyp
End Sub
Chaque fois, je reçois une fenêtre Microsoft qui commence par
"Microsoft Office Excel a rencontré un problème et doit être fermé. Nous
vous prions de nous excuser pour le désagrément encouru" et demande s'il
faut envoyer un rapport à Microsoft. Ensuite. le classeur disparaît, et une
autre fenêtre propose de le récupérer. Je le rouvre et les liens Hypertext
sont coupés comme je voulais.

Comment peut-on éviter toutes cette fermeture, ces fenêtres et les
manipulations ?

Merci pour votre aide.

Cordialement

Max

1 réponse

Avatar
JB
On 5 fév, 11:19, "Max" wrote:
Bonjour,
Je copie un tableau du Web sur une feuille Excel. Pour couper les liens
j'exécute la macro suivante:
Sub CouperLien()
Dim hyp
For Each hyp In ActiveSheet.Hyperlinks
hyp.Delete
Next hyp
End Sub
Chaque fois, je reçois une fenêtre Microsoft qui commence par
"Microsoft Office Excel a rencontré un problème et doit être ferm é. Nous
vous prions de nous excuser pour le désagrément encouru" et demande s 'il
faut envoyer un rapport à Microsoft. Ensuite. le classeur disparaît, et une
autre fenêtre propose de le récupérer. Je le rouvre et les liens Hy pertext
sont coupés comme je voulais.

Comment peut-on éviter toutes cette fermeture, ces fenêtres et les
manipulations ?

Merci pour votre aide.

Cordialement

Max
Bonjour,


ActiveSheet.Hyperlinks.Delete

JB