Problème pour ouvrir plusieurs liens hypertexte dans une selection

Fermé

Lien

R2du62 Messages postés 1 Date d'inscription mardi 15 octobre 2019 Statut Membre Dernière intervention 15 octobre 2019 - Modifié le 15 oct. 2019 à 21:38
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 16 oct. 2019 à 11:33

Bonjour,
Je suis actuellement sur un sujet assez complexe.
Je reçois des plans d’un client nommé X (environ 500 plans), que je souhaite associé à une nomenclature, et en ouvrir plusieurs à la fois pour les modifier.
J’ai alors fait des liens hypertexte automatique, comme l’exemple que j’ai mit ci dessous.
J’ai récupéré un module vba qui n’est pas loin de la vérité. Celui-ci me permet d’ouvrir le plusieurs liens mais pas les liens hypertexte automatique, comme vous pouvez le voir dans l’exemple mais pourquoi ?
Dans l’exemple vous pouvez constater que la case F8 fonctionne avec le clic du bouton mais pas la case C8 pourquoi ?

Si quelqu’un a la solution ça serai un miracle.
Merci d’avance!
Cordialement

PS: je souhaite ouvrir les liens par sélection (D’où le bouton).
Merci de m’aider je suis dans une impasse.

Voici le lien test
https://we.tl/t-NjSEZIWElU

A voir également:

Ouvrir plusieurs liens hypertexte en même temps excel
Aucune application permettant d'ouvrir ce lien n'a été trouvée ✓ - Forum Wiko
Liste déroulante excel - Guide
Ouvrir fichier .bin - Guide
Comment ouvrir un fichier epub ? - Guide
Blocage agriculteur carte en temps réel - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
16 oct. 2019 à 11:33

Bonjour,

comme ceci:

Sub Bouton72_Cliquer()
'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)
    ActiveWorkbook.FollowHyperlink Address:=Sheets("Feuil1").Range(WorkRng.Address), NewWindow:=True
End Sub

Discussions similaires

lien qui ne fonctionne pas avec onedrive

Récupérer un fichier non téléchargé sur wetransfer

problème d'upload de thème wordpress

Courrier Windows n'ouvre plus les liens

Lien avec le navigateur ?

Gmail ne m'ouvre pas les liens dans Chrome

Discussions similaires

Newsletters