Ouvrir liste de liens

Bonjour à tous,

Nouveau problème =)

J'ai une liste de lien (900), que je dois ouvrir un par un très régulièrement pour faire la promotion de mon site web.

Jusqu'aujourd'hui, je clique un par un sur les liens, mais c'est assez long et j'aimerais pouvoir les ouvrirs, 10 par 10 par exemple.

Est-ce possible ? Merci d'avance pour vos réponses.

Arthur

33exemple-lien.xlsx (9.11 Ko)

Merci pour le lien. J'avais pourtant utilisé la recherche pour éviter le doublon, mais c'est raté.

je ne comprends pas comment il faut faire, avec les explications de l'autre topic. Qu'est ce qu'un module ?

Il faut collet ceci dedans ?

Sub ActiverLiens()

For Each HL In Sheets("Nom de la Feuille contenant les Liens").Hyperlinks

HL.Follow

Next

End Sub

Désolé pour mon ignorance

Bonjour

Le code suivant ouvre TOUS les liens de la Feuil1

Sub ActiverLiens()
For Each HL In Sheets("Feuil1").Hyperlinks
HL.Follow
Next
End Sub

Le Code suivant ouvre tous les liens de la Plage sélectionnée

Sub ActiverLiens()
For Each HL In Selection.Hyperlinks
HL.Follow
Next
End Sub

Tu sélectionnes la Plage des liens à ouvrir et tu cliques sur le Bouton

Pour voir le Code, Alt+F11 et double click sur module1

Exemple joint

Cordialement

223exemple-lien.zip (9.07 Ko)
Rechercher des sujets similaires à "ouvrir liste liens"