Problème pour ouvrir plusieurs liens hypertexte dans une selection

R2du62 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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:

1 réponse

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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



0