Ouvrir plusieurs liens hypertexte dans le navigateur par défaut

Question

Bon après-midi, je pose cette question parce que je n'ai reçu aucun des codes que j'ai obtenus sur le web. J'ai une feuille qui a beaucoup de liens et je veux être capable d'en ouvrir au moins 10 à la fois, dans des onglets. J'avais auparavant du code (que j'avais perdu) qui les ouvrait tous (en chrome), ce qui était un gros problème. Je voudrais 1 de 2 choses:

Option 1: Ouvrez tous les hyperliens que je sélectionne dans une colonne de mon navigateur par défaut (chrome) (les hyperliens sont là avec la formule suivante "= hyperlien (leftcell;" OPEN ")

Option 2: Je coller soit le lien hypertexte ou texte dans une autre feuille et les 10 premières lignes sont ouvertes

Je serais très heureux de l'aide

Answer 1

Vous pouvez utiliser une boucle pour appeler le ActiveWorkbook.FollowHyperlink.. fonction, et utilisez les liens que vous avez déjà dans votre feuille de calcul A vous avez les ans l'hypothèse des liens dans le formulaire ci-dessous:

Links in worksheet

Vous avez maintenant la boucle dans ces liens et de les ouvrir un par un. Dans le code ci-dessous, la colonne A est codée en dur, mais vous pouvez facilement la modifier par une autre entrée, comme une sélection d'utilisateur, par exemple.

Sub test_link() 

Dim current_row As Integer 
Dim last_row As Integer 
Dim current_sht As Worksheet 

current_row = 1 
Set current_sht = ActiveWorkbook.ActiveSheet 
last_row = current_sht.Cells(current_sht.Rows.Count, "A").End(xlUp).Row 

While current_row <= last_row 
    ActiveWorkbook.FollowHyperlink Address:=current_sht.Range("A" & current_row) 'Open link 
    current_row = current_row + 1 
Wend 

End Sub