Macro complémentaire à l'activation d'un classeur

Bonjour,
Je cherche à déclencher une macro complémentaire à l’activation (pas l'ouverture) de classeurs donnés (différents du .xlam porteur de la macro complémentaire) or je crois comprendre que si je code une macro évènementielle sur l'activation du classeur dans le this workbook du .xlam, il comprend que c'est à l'activation du .xlam qu'il faut se déclencher.

Petite précision, je ne dois avoir aucun code dans les classeur dont l'activation déclenche la macro complémentaire.

Existerait-il un solution?


MERCI

Bonjour,

Citation:

---

Envoyé par Kestion100

je crois comprendre que si je code une macro évènementielle sur l'activation du classeur dans le this workbook du .xlam, il comprend que c'est à l'activation du .xlam qu'il faut se déclencher.

---

Ce n'est pas tout à fait exact, car si dans ta macro complémentaire, tu utilises les macros évènementielles, elles activeront ton code.

Par exemple si tu codes 'Workbook_SheetSelectionChange' ta macro complémentaire sera appelée à chaque déplacement sur une de tes feuilles ouvertes alors que la feuille de ta macro complémentaire n'est pas accessible.

Donc en utilisant 'Workbook_Activate' tu devrais avoir ta solution si j'ai bien compris ton désir.

J'utilise déjà le changement de feuille dans d'autres situations, là je voudrais travailler avec l'activation du classeur en effet mais mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Workbook_Activate() Dim NbSLSH As Long, Classeur1 As String         NbSLSH = Espace(Workbooks("OutilsRechercheetSuivi2.xlsm").Sheets("FICHSRCEDESTMACOMPL").Range("A200000").End(xlUp).Value) Classeur1 = Split(Workbooks("OutilsRechercheetSuivi2.xlsm").Sheets("FICHSRCEDESTMACOMPL").Range("A200000").End(xlUp).Value, "\")(NbSLSH)     Debug.Print Classeur1 Debug.Print ActiveWorkbook.Name         If ActiveWorkbook.Name = Classeur1 Then MsgBox "COUCOU" End If   End Sub

---

(test pour l'instant avec a msgbox) ne déclenche rien et j'ai remarqué que le

Code:

---

workbook_activate

---

pose problème.
Peut-être que je l'utilise mal?

Les debug.print n'affichent rien non plus

Bonjour,
Il faut placer en tête de module de ThisWorkbook du classeur xlam, la ligne de code suivante. On peut également le placer dans un module de classe

Code:

---

Public WithEvents appXls As Excel.Application

---

et la procédure à l'ouverture du xlam

Code:

---

1 2 3

Private Sub Workbook_Open() Set appXls = Excel.Application End Sub

---

Ensuite il suffit d'utiliser une procédure événementielle de appXls
Par exemple

Code:

---

1 2 3

Private Sub appXls_WorkbookOpen(ByVal Wb As Workbook) MsgBox "Open " & Wb.Name End Sub

---

Si tu veux réagir pour un certain classeur, il suffit d'ajouter une structure décisionnelle (If par exemple) vérifiant le nom du classeur. Pour ma part, je vérifie le CodeName du classeur

[EDIT]
Ajouté la procédure Workbook_Open oubliée

Merci, je teste aujourd'hui!!!

Penses-tu que le code fonctionnera sur un workbook activate?

J'ai essayé de remplacer open par activate, aucune réaction d'Excel

Bonjour,
Comme tous les codes que je publie, j'ai évidemment fais un test et à chaque ouverture d'un classeur quelconque, il y a une interception et cela fonctionne avec toutes les autres procédures événementielles
As-tu bien ajouté le complément ?

Parfait avec:

Code:

---

Public WithEvents appXls As Excel.Application

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub Workbook_Open() Set appXls = Excel.Application End Sub       Private Sub appXls_Workbookactivate(ByVal Wb As Workbook) 'MsgBox "Open " & Wb.Name     Dim chemin As String, TailleDeFichier As Long 'Sheets("feuil1").Select chemin = Workbooks(ActiveWorkbook.Name).FullName Debug.Print chemin TailleDeFichier = FileLen(chemin) Debug.Print TailleDeFichier   'Dim EtatStatusBar As Boolean ''état de la barre d'état 'EtatStatusBar = Application.DisplayStatusBar ' 'Debug.Print EtatStatusBar Dim CALCULS As Boolean CALCULS = Application.Calculation Debug.Print CALCULS ' = xlCalculationManual   End Sub

---

MERCI!!!!!

Finalement, pas résolu.

J'essaie d'appliquer le même code pour un beforesave et là, échec:

Code:

---

1 2 3 4 5 6

Private Sub appXls_WorkbookBeforeSave()     Application.Calculation = xlCalculationAutomatic   End Sub

---

MAis j'obtiens le message d'erreur suivant:

Code:

---

1 2	Erreur de compilation: La déclaration de la procédure ne correspond pas à la description de l'évènement ou de la procédure de même nom

---

Là je nage....

Bonjour,
Je viens d'effectuer un test avec la procédure appXls_WorkbookBeforeSave placée dans le classeur xlam et moi, je n'ai pas eu de problème

J'ai modifié le code:

Code:

---

1 2 3 4 5 6 7

Private Sub appXls_WorkbookBeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)   Application.Calculation = xlCalculationAutomatic   Cancel = False   End Sub

---

Toujours erreur

Ça plante dès la fermeture du xlam et son ouverture suivante, en cliquant dans:

Compléments Excel

J'ai une aftersave qui suit, ça pourrait poser problème????