Probleme d'activation de private sub

Probleme d'activation de private sub - VB/VBA/VBS - Programmation

Marsh Posté le 13-02-2006 à 16:17:44    

Bonjour à tous.
 
Mon petit souci est le suivant:
 
Je genere des feuilles avec des noms differents, une pour chaque personne de mon groupe de travail, et j aurai aimé qu une macro privée s'active a chaque fois.  
j'ai donc en ce moment une macro ( codée avec les pieds )du type :
 

Code :
  1. Private Sub Worksheet_Activate()
  2. If sheets("Data" ).Cells(1, 9) = 0 Then
  3. Exit Sub
  4. End If
  5. ...
  6. ...
  7. end sub


 
or pour une raison que je comprend pas, si je passe par les onglets en bas de mon classeur excel pour aller dans cette feuille , la sub s'active , mais si je crée un hyperlien dans une autre feuille pointant vers celle ci , la sub ne s'active pas.
 
Quelqu'un aurait il une solution pour faire fonctionner la sub si l'acces a ma page se fait par un hyperlien dans une autre page ?  
 
 
 
Merci beaucoup !

Reply

Marsh Posté le 13-02-2006 à 16:17:44   

Reply

Marsh Posté le 13-02-2006 à 17:17:35    

pour information , je genère le lien comme ca :
 
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="toto!A1", TextToDisplay:="toto"

Reply

Marsh Posté le 13-02-2006 à 17:43:04    

Est-ce que dans un contexte non généré à la volée le lien hypertexte se comporte de la même façon, i.e. sans activer la sub ?

Reply

Marsh Posté le 13-02-2006 à 17:51:50    

oui en créant l'hyperlien a la main par le menu contextuel sur une cellule , et en selectionnant un mot et le lien dans "place in this document" il se comporte de la meme facon , et ne lance pas la sub :(

Reply

Marsh Posté le 14-02-2006 à 12:05:35    

salut iron,
 
Bien étrange ton cas... Je vien de faire un classeur test sous excel 2002 avec 2 feuilles et que le lien soit issu d'une macro ou crée manuellement la sub worksheet_activate se lance parfaitement chez moi (vérifié avec une msgbox("coucou !" ) dans la sub)...
 
Sous quel excel travailles-tu ?
@+


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Marsh Posté le 20-02-2006 à 16:37:37    

sous excel 2000, malheureusement :) .

Reply

Marsh Posté le 20-02-2006 à 17:16:37    

irion_d_alcor a écrit :

sous excel 2000, malheureusement :) .


entre 2002 et 2000 ça devrait marcher...
Si tu veux je jete un oeil dans ton fichier comme ça tu auras au moins confirmation que c'est lié à excel 2000, et pas à autre chose :)
 
je te PM mon mail
@+


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Marsh Posté le 21-02-2006 à 17:05:04    

Après avoir regardé le fichier d'iron, il fonctionne parfaitement tel que sous excel 2002. Le problème vient bien d'excel 2000.
Après quelques recherches sur d'autres forums, il semble que la sollution est de mettre en place la sub Workbook_SheetFollowHyperlink.
N'ayant pas excel 2000 je ne peux donner plus d'informations.
@+


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed