[VBA-E] lien en VBA et fonction generatrice

[ancien titre '[a moitié résolu]' édité par Dark Vader]
Pas de ce genre de titres SVP :evil:
C'est résolu, et ça ne l'est pas - ce genre de titre n'apporte rien de plus


Salut @ tous

je suis un pauvre ptit étudiant et j'ai un soucis.

j'ai besoin d'un petit coup de main concernant les liens hypertext en VBA, je dois créer tout un tas de renvois vers des feuilles internes à un classeur et à mon avis le lien hypertext est la meilleure chose à utiliser.

par contre je ne sais pas du tout m'en servir, est ce que l'un d'entre vous sais comment générer de tels objets au sein d'un feuille excel mais aussi savez vous comment appeller le générateur auto ?

merci par avance

Tu fais outils=>macro=>nouvelle macro.
Ensuite, tu crée ton lien hypertexte. Et tu regarde le code. (voir la macro).

Je l'ai fais, ça donne:

Code:

---

1 2	ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "Feuil1!A1", TextToDisplay:="mon Texte"

---

Voilà, après à toi de modifier. Cliques sur F1 le mot Add, et tu comprendra à quoi correspondent les argument...

Salut.

Merci merci tu viens de me sauver la vie mais dis moi tu saurais pas comment appeler la fenetre de création de lien ?

je crois ke c'est dans une bibliothèque mais alors je sais pas laquelle

mais deja je vais regarder sur l'aide MSDN

merci encore :D

Pour la fenêtre, tu peux la voir sous excel, clic droit sur une cellule=>lien hypertexte.

Si tu enregistre une macro en même temps, tu pourra voir le code, au lien hypertexte que tu veux.

Ca aide beaucoup au début, la création automatique de macro.

Salut

alors j'ai essayé ta technique mais malheureusement ca ne marche pas, en effet, il me créer un lien HTML mais je ne sais toujours pas comment appeler la fenetre de création de liens :cry:, je crois que c'est un outil MSO mais je ne le connais pas donc si jamais tu trouvais n'hésite pas a m'en faire part

En utilisant la collection Dialogs

Pour une création ...

Code:

---

application.Dialogs(xlDialogInsertHyperlink).Show

---

Merci ca marche nikel :wink: