Discussion :

[StefBBR]

Bonjour à tous,

je code actuellement un complément Excel pour un déploiement plus facile sur les postes de l'entreprise, et je cherche une méthode pour détecter les évènements des classeurs ouverts depuis ce complément sans être obligé de rajouter du code VBA dans les fichiers Excel des utilisateurs.

Actuellement, j'ajoute ça dans les fichiers Excel (objet workbook) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
Sub Workbook_Open()
 
Call Application.Run("GxPAT.xlam!OpenWB", ThisWorkbook)
 
End Sub

Et je souhaiterai que ça se lance sans avoir à ajouter de VBA dans ces fichiers.

Si vous avez une piste, je vous en serai excessivement reconnaissant, je n'ai rien trouvé dans mes recherches ni mes essais...

Cordialement,

Stef

[Igloobel]

Bonjour,

pour que cela se lance je en place ton .xlam dans "compléments" de l'onglet développeur malheureusement il faut le faire sur chaque poste utilisateur.

donc si ils sont une dizaine ça peut se faire, s'ils sont plus cela devient une grosse galère et penser à une autre solution

donc ma question Combien sont'ils?

A bientôt

[StefBBR]

Merci pour la première piste,

ils sont "nombreux" voire potentiellement quelques centaines, mais je voudrai garder le complément comme "caché", ou du moins qu'il soit transparent pour les utilisateurs. Je me suis posé la question aussi de son activation, effectivement il faudrait peut-être le faire manuellement dans ce cas.

Ce que j'ai fait pour le moment c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Sub Workbook_Open()
 
AddIns("Gxpat").Installed = True
 
' Checking that the Audit Trail Addin is opened
On Error Resume Next    ' turn off error checking
Set ATComp = Workbooks(AddIns("Gxpat").Name)
LastError = Err
On Error GoTo 0        ' restore error checking
If LastError <> 0 Then
    ' the add-in workbook isn't currently open. Manually open it.
    Set ATComp = Workbooks.Open(AddIns("Gxpat").Name)
End If
 
Call Application.Run("GxPAT.xlam!OpenWB", ThisWorkbook)
 
End Sub

Ce qui active automatiquement le complément à l'ouverture du classeur.

La question d'origine est un peu différente: j'ai un code qui se lance quand l'utilisateur modifie son fichier Excel, normalement on détecte cet évènement en utilisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub Workbook_SheetChange(ByVal ShId As Object, ByVal Source As Range)
 
Call Application.Run("GxPAT.xlam!RecSheetChange", ShId, Source, ThisWorkbook) ' lance le code de mon complément qui agit sur la modification
 
End Sub

Et je voudrai pouvoir détecter ce type d'évènement directement depuis mon complément sans inclure ce code dans le tableur Excel d'origine...

[StefBBR]

Merci Pierre pour cette réponse, ça m'éclaire déjà beaucoup plus.

Pour le déploiement du complément, je vais voir avec l'IT s'ils peuvent le faire eux-même à distance.

Je place le sujet en résolu !

[Pierre Fauconnier]

[...]Et je voudrai pouvoir détecter ce type d'évènement directement depuis mon complément sans inclure ce code dans le tableur Excel d'origine...

Je t'ai donné une piste pour activer le complément à l'ouverture d'Excel et pour qu'il capture l'évènement sur n'importe quel classeur.

Note toutefois que cet évènement survient après l'évènement identique sur ledit classeur, qui survient lui-même après un évènement de feuille.

Donc, si tu as par exemple ton complément avec une capture de SheetActivate au niveau xlApp, que tu utilises un classeur qui gère aussi SheetActivate et que tu actives une feuille qui gère elle aussi son activation, tu auras les évènements dans l'ordre suivant:
Activation de la feuille
Activation de la feuille au niveau du classeur
Activation de la feuille au niveau application

Fais très attention à ta gestion d'évènements car un code sur lequel tu n'as pas la maîtrise pourrait te faire partir en vrille.

Note également qu'il est impératif que tu gères les erreurs (on error...) pour rendre proprement la main en cas de soucis, car ton code entrera en concurrence avec du code écrit dans les classeurs ouverts.

[Pierre Fauconnier]

Salut.

Dans le module du workbook de ton complément, tu peux créer un objet Excel.Application en le déclarant avec WithEvents. Cela te permettra d'écouter les évènements de l'application. Il te suffit alors d'initisaliser l'objet à l'ouverture de ton complément et de gérer les évènements qui sont liés à l'application.



Après, si tu places ton complément (un xlam) dans le dossier de démarrage d'Excel des utilisateurs, ton complément est lancé au démarrage d'Excel. Tu dois évidemment déployer ce complément sur tous les postes concernés.