Bonjour,
J'ai un petit problème avec une macro que j'ai faite.
il s'agit en fait d'améliorer une macro pré existante agissant sur un fichier de gestion de configurations :
sur la première page excel on trouve plusieurs cellules (plus exactement des test box sur une image) qui contiennent des liens hypertextes. Quand on clique dessus le lien s'ouvre mais je voudrais que la fenêtre initiale se ferme... sachant que les deux documents ne sont pas dans le même répertoire et que je souhaiterais après inséré un bouton retour dans la seconde feuille qui puisse nous ramener à la première...
J'ai écris la macro suivante :
Sub Macro1()
Selection.ShapeRange.Item(1).hyperlink.Follow NewWindow:=False, AddHistory:=True
Windows("SOMMAIRE.xls").Activate
Windows("SOMMAIRE.xls").Close SaveChanges:=True
End Sub
mais elle ne marche que lorsque l'utilisateur se place sur la case correspondant à un lien et lance la macro. Je voudrais juste que ceci marche instantanéement dès que l'utilisateur clique sur le lien !!
Merci d'avance pour vos suggestions
J'ai un petit problème avec une macro que j'ai faite.
il s'agit en fait d'améliorer une macro pré existante agissant sur un fichier de gestion de configurations :
sur la première page excel on trouve plusieurs cellules (plus exactement des test box sur une image) qui contiennent des liens hypertextes. Quand on clique dessus le lien s'ouvre mais je voudrais que la fenêtre initiale se ferme... sachant que les deux documents ne sont pas dans le même répertoire et que je souhaiterais après inséré un bouton retour dans la seconde feuille qui puisse nous ramener à la première...
J'ai écris la macro suivante :
Sub Macro1()
Selection.ShapeRange.Item(1).hyperlink.Follow NewWindow:=False, AddHistory:=True
Windows("SOMMAIRE.xls").Activate
Windows("SOMMAIRE.xls").Close SaveChanges:=True
End Sub
mais elle ne marche que lorsque l'utilisateur se place sur la case correspondant à un lien et lance la macro. Je voudrais juste que ceci marche instantanéement dès que l'utilisateur clique sur le lien !!
Merci d'avance pour vos suggestions