Problème pour ouvrir plusieurs liens hypertexte dans une selection Fermé

Question

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

cs_Le Pivert · Answer

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

Problème pour ouvrir plusieurs liens hypertexte dans une selection

1 réponse

Discussions similaires