Passer au contenu principal

Comment ouvrir plusieurs hyperliens à la fois dans Excel?

Si vous avez de nombreux hyperliens dans une feuille de calcul, vous devrez normalement les ouvrir un par un, ce qui peut s'avérer fastidieux. Heureusement, il existe des moyens simples d'ouvrir tous les hyperliens sélectionnés en même temps. En suivant les méthodes décrites ci-dessous, vous pouvez facilement accomplir cette tâche.


Ouvrez plusieurs hyperliens à la fois avec le code VBA

Pour ouvrir les hyperliens sélectionnés d'une plage à la fois, le code VBA suivant peut vous aider, procédez comme suit:

1. Maintenez le ALT + F11 clés, et il ouvre le Fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: ouvrez plusieurs hyperliens à la fois

Sub OpenHyperLinks()
'Updateby Extendoffice
	Dim xHyperlink As Hyperlink
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
	For Each xHyperlink In WorkRng.Hyperlinks
		xHyperlink.Follow
	Next
End Sub

3. Puis appuyez F5 pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner une plage comprenant des liens hypertexte que vous souhaitez ouvrir à la fois, voir capture d'écran:

doc-ouvrir-plusieurs-hyperliens-1

4. Et puis cliquez OK, tous les hyperliens sont ouverts en même temps sans cliquer dessus.


Ouvrez plusieurs hyperliens à la fois avec Kutools AI Aide

Libérez le pouvoir de l’efficacité avec Aide à l'IA Kutools! Dites adieu aux tracas liés à l’ouverture des hyperliens un par un ou au code complexe. Avec Aide à l'IA Kutools, vous pouvez ouvrir sans effort plusieurs hyperliens simultanément en un seul clic. Rationalisez votre flux de travail et gagnez un temps précieux en utilisant cet outil innovant. Bénéficiez d'une navigation transparente et améliorez votre productivité avec Aide à l'IA Kutools dès aujourd'hui !

Notes: Pour utiliser ceci Aide à l'IA Kutools of Kutools for Excel, S'il vous plaît télécharger et installer Kutools pour Excel d'abord.

Après avoir installé Kutools pour Excel, veuillez cliquer sur Kutools IA > Aide à l'IA ouvrir le Aide à l'IA Kutools vitre:

  1. Sélectionnez la liste de données, puis saisissez vos besoins dans la zone de discussion et cliquez sur Envoyer bouton ou appuyez sur Entrer clé pour envoyer la question ;
    "Ouvrez tous les hyperliens d'un coup dans la sélection :"
  2. Après analyse, cliquez sur Exécution bouton pour exécuter. Kutools AI Aide traitera votre demande en utilisant l'IA et ouvrira tous les hyperliens de la sélection directement dans Excel.

doc-ouvrir-plusieurs-hyperliens-1


Articles Liés:

  • Modifier plusieurs chemins de liens hypertexte à la fois dans Excel
  • Dans certains cas, vous pouvez créer plusieurs liens hypertexte pour vos données dans la feuille de calcul, et tous les liens hypertexte sont liés au même chemin de fichier ou adresse, mais maintenant, vous devez remplacer ce chemin de lien hypertexte par une autre adresse à la fois. Changer le chemin des hyperliens individuellement peut perdre beaucoup de temps, existe-t-il un moyen rapide de résoudre ce problème?
  • Convertir plusieurs adresses e-mail en hyperliens dans Excel
  • Si vous avez une liste d'adresses e-mail en texte brut dans une feuille de calcul et que vous souhaitez maintenant convertir ces adresses e-mail en hyperliens que vous pouvez envoyer des e-mails en cliquant sur les adresses. Bien sûr, vous pouvez les convertir en adresses e-mail hypertextes, mais cette méthode sera ennuyeuse s'il y a plusieurs adresses à convertir. Dans cet article, je parlerai de quelques bonnes astuces pour faire face à cette tâche.
  • Suivre le lien hypertexte vers la feuille cachée dans Excel
  • Par exemple, j'ai un classeur qui contient plusieurs feuilles de calcul, la première feuille principale contient des hyperliens vers d'autres feuilles et maintenant, je masque toutes les feuilles sauf la première. Dans ce cas, les hyperliens qui renvoient vers des feuilles masquées ne sont pas disponibles. Mais comment faire fonctionner ces hyperliens avec succès ? Lorsque vous cliquez sur un lien hypertexte, la feuille cachée liée sera ouverte immédiatement.

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (20)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the code.
Could make it work for a "https link instead a hyperlink?
This comment was minimized by the moderator on the site
Got a compile error on Microsoft Visual Basic for Applications 7.1 on Mac High Sierra
This comment was minimized by the moderator on the site
This works fine, except for a problem, how can I make it that it only opens filtered cells?

Thank you
This comment was minimized by the moderator on the site
Can i select which browser the links need to open
This comment was minimized by the moderator on the site
Hi, it worked perfectly, thanks! Is there a way to copy the text from the pages of these links in the cell next to each of them?
That would save me hundreds of hours of work!
This comment was minimized by the moderator on the site
Its works awesome.
This comment was minimized by the moderator on the site
When I use this on a column of hyperlinks generated by the =HYPERLINK() formula, it doesn't seem to work. When I copy/paste the values into a new column and run it there, it doesn't work. When I go to each individual cell, go to the end of text, and hit enter (causing it to become a hyperlink) it DOES work.


This didn't work for my needs, unfortunately. I have thousands of rows and clicking enter at the end of each line of text is pretty much what I'm having to do anyway.
This comment was minimized by the moderator on the site
Found a solution?
This comment was minimized by the moderator on the site
@James @Johan - Select the text you wish to convert into hyperlink, then use this code to convert the text into hyperlink directly. Then run the code above, works like a charm.


Sub HyperAdd()

'Converts each text hyperlink selected into a working hyperlink

For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell

End Sub
This comment was minimized by the moderator on the site
Hello! What I did was to copy/paste the values from the =HYPERLINK code into a different column, and then I used @SimpleDude's code to convert the pasted text into the hyperlinks that worked with the original hyperlink-opening code. Thank you for the help!
This comment was minimized by the moderator on the site
Thanks!
Works exactly as expected. Must be sure that the links are already valid URLs.
I opened 15 at one time.
This comment was minimized by the moderator on the site
Freezes excel - links never open
This comment was minimized by the moderator on the site
Please let me know hpw does it work in Mac
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations