Problème d’ouverture de plusieurs liens hypertexte

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

Bonjour,

En effet, le sujet est curieux, la fonction LIEN_HYPERTEXTE ne semble pas renvoyer d'information dans la collection WorkRng.Hyperlinks

Avant la boucle for each, essaie celà :

If WorkRng.Hyperlinks.Count < 1 Then ActiveWorkbook.FollowHyperlink Address:=WorkRng, NewWindow:=True

J'essaie cela de suite en espérant que cela fonctionne, je désespère.

Cela ne fonctionne toujours pas, je ne sais pas du tout pourquoi. C'est vraiment bizarre.

Est-ce bien ce que tu veux ?