lancer une macro avant un lien hypertexte

[kinarius]

Bonjour à tous,

J'essaie en cliquant sur un lien hypertexte en A1, de lancer une macro avant que le lien proprement dit s'ouvre, j'utilise pour cela la syntaxe si dessous mais ca ne marche pas, le lien s'ouvre avant la macro !!!
Si quelqu'un a une idée, je suis preneur

Merci d'avance,

Private Sub Worksheet_FollowHyperlink(ByVal target As Hyperlink)

......................

End Sub

 

[phlaurent55]

Re : lancer une macro avant un lien hypertexte

Bonjour kinarius,

voir fichier joint

à+
Philippe

 

[kinarius]

Re : lancer une macro avant un lien hypertexte

salut phlaurent55 et merci pour votre réponse. J'y avais bien pensé mais ce que je voudrais c'est du style,
- je clique sur le lien hypertexte
- j'ai un msgbox qui me demande si je veux ou pas officialiser un document
- si oui : lancement d'une macro pour enregistrement en pdf
- si non : lancement du lien hypertexte normalement en docx

mais sans passer par un clic droit.

Si vous avez un idée de mon problème, merci d'avance,

 

[mikachu]

Re : lancer une macro avant un lien hypertexte

Bonjour,

Si tu veux que cela se passe avant le lien hypertexte, je te conseille d'utiliser un évènement qui se passe avant. exemple, tu déclenche la macro sur un évènement selectionchange et tu teste si la cellule possède un lien hypertexte.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)



If Target.Hyperlinks.Count = 0 or target.count > 1 Then Exit Sub

rep = MsgBox("voulez suivre le lien hypertexte ?", vbYesNo)
If rep = 6 Then Target.Hyperlinks(1).Follow

End Sub

Ca fait une bonne base de réflexion à adapter selon ton besoin

mikachu

 

[job75]

Re : lancer une macro avant un lien hypertexte

Bonjour le fil,

En effet il faut créer un événement se produisant avant l'exécution du lien hypertexte.

Une base de réflexion est de créer des liens hypertexte truqués comme sur ce fil :

https://www.excel-downloads.com/thr...cro-a-lactivation-dun-lien-hypertexte.185069/

Après exécution de la macro on exécutera le "vrai" lien hypertexte.

A+

 

[Si...]

Re : lancer une macro avant un lien hypertexte

salut

Si... on regarde l'infobulle qui apparaît lors du survol du lien ... Une événementielle du genre

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$A$1" Then ===> Macro
End Sub

devrait suffire.

 

[kinarius]

Re : lancer une macro avant un lien hypertexte

Salut à tous et merci pour vos commentaires.
Mikachu, l'idée est bonne mais le lien se lance avant la macro !!! et avec la réponse de job75, je devrais m'en sortir.
Un grand merci à tous

 

[mikachu]

Re : lancer une macro avant un lien hypertexte

Ok, bizarre car chez moi la macro s'exécute avant.