macro complementaire persistente!!!!

S

sqd2

Guest
Pour partager des macros avec plusieurs classeur d'un réseau d'ordi, je suis passé par une macro complementaire TOTO. XLA référencée par un des classeur a partager TOTO.XLS
le partage fonctionne.... tout est bien. Le probleme posé par ce type d'approche reste toutefois entier: LA MACRO " .XLA " RESTE OUVERTE APRES LA FERMETURE CHACUN DE MES CLASSEUR.

Le test suivant a interval regulier ne marche pas . Que faire?

Dans le module ThisWorkbook du XLA :

Dim Wbk As Workbook
Private Sub Workbook_Open()
Set Wbk = ActiveWorkbook
Vérif
End Sub

Private Sub Vérif()
If TypeName(Wbk) = "Object" Then Me.Close
Application.OnTime Now + #12:01:00 AM#, "ThisWorkbook.Vérif"
End Sub

Une toute derniere: comment faire pour que l'utilisateur du classeur " . XLS" ne remarque pas l'ouverture du fichier " .XLA" . ( <=> masquer les macros XLA)

Merci.
 

Discussions similaires

Statistiques des forums

Discussions
312 754
Messages
2 091 695
Membres
105 050
dernier inscrit
Jcbrazil