Note: The other languages of the website are Google-translated. Back to English

Comment ouvrir plusieurs hyperliens à la fois dans Excel?

En supposant que j'ai beaucoup d'hyperliens dans une feuille de calcul, normalement, je peux les ouvrir en cliquant dessus un par un, mais cliquer plusieurs fois sera ennuyeux, donc, je veux s'il existe un moyen rapide d'ouvrir tous les hyperliens sélectionnés à le même temps. À partir de l'article ci-dessous, je peux résoudre cette tâche de manière simple.

Ouvrez plusieurs hyperliens à la fois avec le code VBA

Onglet Office Activez la modification et la navigation par onglets dans Office et simplifiez considérablement votre travail ...
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
  • Réutiliser n'importe quoi: Ajoutez les formules, les graphiques et tout autre élément les plus utilisés ou les plus complexes à vos favoris et réutilisez-les rapidement à l'avenir.
  • Plus de 20 fonctionnalités de texte: Extraire le numéro de la chaîne de texte; Extraire ou supprimer une partie des textes; Convertissez les nombres et les devises en mots anglais.
  • Outils de fusion: Plusieurs classeurs et feuilles en un seul; Fusionner plusieurs cellules / lignes / colonnes sans perdre de données; Fusionner les lignes en double et la somme.
  • Outils de fractionnement: Diviser les données en plusieurs feuilles en fonction de la valeur; Un classeur vers plusieurs fichiers Excel, PDF ou CSV; Une colonne à plusieurs colonnes.
  • Coller sauter Lignes cachées / filtrées; Compte et somme par couleur d'arrière-plan; Envoyez des e-mails personnalisés à plusieurs destinataires en masse.
  • Super filtre: Créez des schémas de filtres avancés et appliquez-les à toutes les feuilles; Sort par semaine, jour, fréquence et plus encore; Filtre par gras, formules, commentaire ...
  • Plus de 300 fonctionnalités puissantes; Fonctionne avec Office 2007-2019 et 365; Prend en charge toutes les langues; Déploiement facile dans votre entreprise ou organisation.

flèche bleue bulle droite 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.

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

Code VBA: ouvrez plusieurs hyperliens à la fois

Sub OpenHyperLinks()
'Update 20141124
	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-open-multiple-hyperlinks-1

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


Articles Liés:

Comment supprimer / supprimer tout ou plusieurs liens hypertexte dans Excel?

Comment supprimer des hyperliens sans supprimer le formatage?

Comment modifier plusieurs chemins d'hyperliens à la fois dans Excel?


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Commentaires (19)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Salut Ce code est vraiment utile mais il demande de sélectionner la plage, pourriez-vous me dire comment modifier ce code pour la situation ci-dessous ... les hyperliens sont déjà placés dans la cellule A1: C1 à A300: C300 , dans D1 il devrait y avoir un lien , en cliquant sur D1, les hyperliens de A1:C1 devraient s'ouvrir immédiatement de la même manière en cliquant sur D2 , les hyperliens de A2:C2 devraient s'ouvrir immédiatement et ainsi de suite. S'il te plait peux-tu aider
Ce commentaire a été minimisé par le modérateur sur le site
Salut, merci beaucoup !! C'est très utile pour mon processus, mais cela ne fonctionne pas sur le lien hypertexte suivant = HYPERLINK("mailto:" & A3 & "?subject="& B3, "adrian") Il revient à nouveau à la page du module. Quelqu'un peut-il m'aider à ce sujet s'il vous plaît !! BR, Adrien
Ce commentaire a été minimisé par le modérateur sur le site
Quelle réponse as-tu trouvé il y a deux ans ?
Ce commentaire a été minimisé par le modérateur sur le site
salut ce code est très utile. pouvez-vous expliquer, comment imprimer plusieurs hyperliens. veuillez fournir le code
Ce commentaire a été minimisé par le modérateur sur le site
Ne marche pas. Les liens ne s'ouvrent pas.
Ce commentaire a été minimisé par le modérateur sur le site
[citation] Ne fonctionne pas. Les liens ne s'ouvrent pas.Par wojtek_bookworm[/quote] Assurez-vous que la valeur est un lien hypertexte
Ce commentaire a été minimisé par le modérateur sur le site
Ne fonctionne pas pour moi : après avoir sélectionné une plage, rien ne se passe. Les valeurs sont des URL valides.
Ce commentaire a été minimisé par le modérateur sur le site
S'il vous plaît laissez-moi savoir si hpw fonctionne sous Mac
Ce commentaire a été minimisé par le modérateur sur le site
Gèle Excel - les liens ne s'ouvrent jamais
Ce commentaire a été minimisé par le modérateur sur le site
Merci !
Fonctionne exactement comme prévu. Doit être sûr que les liens sont déjà des URL valides.
J'en ai ouvert 15 d'un coup.
Ce commentaire a été minimisé par le modérateur sur le site
Lorsque j'utilise ceci sur une colonne d'hyperliens générés par la formule =HYPERLINK(), cela ne semble pas fonctionner. Lorsque je copie/colle les valeurs dans une nouvelle colonne et que je l'exécute là-bas, cela ne fonctionne pas. Lorsque je vais dans chaque cellule individuelle, que je vais à la fin du texte et que j'appuie sur Entrée (le faisant devenir un lien hypertexte), cela fonctionne.


Cela n'a pas fonctionné pour mes besoins, malheureusement. J'ai des milliers de lignes et cliquer sur Entrée à la fin de chaque ligne de texte est à peu près ce que je dois faire de toute façon.
Ce commentaire a été minimisé par le modérateur sur le site
Trouvé une solution?
Ce commentaire a été minimisé par le modérateur sur le site
@James @Johan - Sélectionnez le texte que vous souhaitez convertir en lien hypertexte, puis utilisez ce code pour convertir directement le texte en lien hypertexte. Ensuite, exécutez le code ci-dessus, fonctionne comme un charme.


Sous HyperAdd()

'Convertit chaque lien hypertexte de texte sélectionné en un lien hypertexte de travail

Pour chaque xCell dans la sélection
ActiveSheet.Hyperlinks.Add Anchor :=xCell, Adresse :=xCell.Formula
Cellule suivante

End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour! Ce que j'ai fait, c'est copier/coller les valeurs du code = HYPERLINK dans une autre colonne, puis j'ai utilisé le code de @SimpleDude pour convertir le texte collé en hyperliens qui fonctionnaient avec le code d'ouverture d'hyperlien d'origine. Merci pour l'aide!
Ce commentaire a été minimisé par le modérateur sur le site
Ses travaux impressionnants.
Ce commentaire a été minimisé par le modérateur sur le site
Salut, ça a parfaitement fonctionné, merci ! Existe-t-il un moyen de copier le texte des pages de ces liens dans la cellule à côté de chacun d'eux ?
Cela me ferait économiser des centaines d'heures de travail !
Ce commentaire a été minimisé par le modérateur sur le site
Puis-je sélectionner le navigateur dont les liens doivent s'ouvrir
Ce commentaire a été minimisé par le modérateur sur le site
Cela fonctionne bien, à part un problème, comment puis-je faire en sorte qu'il n'ouvre que les cellules filtrées ?

Merci
Ce commentaire a été minimisé par le modérateur sur le site
Vous avez une erreur de compilation sur Microsoft Visual Basic pour Applications 7.1 sur Mac High Sierra
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés