lancer une macro avant un lien hypertexte

phlaurent55

Nous a quittés en 2020

Repose en paix

• 15 Octobre 2012

• #2

Re : lancer une macro avant un lien hypertexte

Bonjour kinarius,

voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  17.3 KB · Affichages: 122
• 111.xlsm

  17.3 KB · Affichages: 128
• 111.xlsm

  17.3 KB · Affichages: 130

Vote positif 0 Vote négatif

K

kinarius

XLDnaute Nouveau

• 15 Octobre 2012

• #3

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,

 

Vote positif 0 Vote négatif

mikachu

XLDnaute Occasionnel

• 15 Octobre 2012

• #4

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.

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Octobre 2012

• #5

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+

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 15 Octobre 2012

• #6

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

Code:

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

devrait suffire.

 

Pièces jointes

• LienHyper.jpg

  37.5 KB · Affichages: 116
• LienHyper.jpg

  37.5 KB · Affichages: 116

Vote positif 0 Vote négatif

K

kinarius

XLDnaute Nouveau

• 16 Octobre 2012

• #7

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

 

Vote positif 0 Vote négatif

mikachu

XLDnaute Occasionnel

• 16 Octobre 2012

• #8

Re : lancer une macro avant un lien hypertexte

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

 

Vote positif 0 Vote négatif