Discussion :

[baaaptiste]

Bonjour,

voici mon objectif : automatiquement catcher l'evenement beforePrint afin de faire un traitement préalable.
Tout dois être automatique, donc j'ai pensé au fichier personal.xls dans lequel j'ai créé ma classe withEvents ou je redefinie les events souhaités.
Cependant je ne vois pas comment attacher cette classe automatiquement au workbook ouvert. (Ex : je double-click sur un fichier excel, les events doivent être directement catché par cette classe)
Le but étant bien sur de ne pas toucher aux autres fichiers excel...

[rtg57]

Bonjour,

si j'ai bien compris, vous avez créé un fichier EXCEL "personal.xls" qui est charger de faire du pré-traitement lorsque n'importe quel fichier EXCEL de votre ordinateur doit être imprimé ?

N'y a-t-il pas moyen d'intégrer ce pré-traitement dans chacun des fichiers EXCEL à pré-traiter ?

Il faudrait je pense un peu plus de précision dans les explications, j'ai du mal à cerner le problème (qui m'a l'air tout à fait intéressant)

@ bientôt

[baaaptiste]

Mon but principal est de ne pas toucher aux fichiers excel à par le personal.xls et de ne pas imposer un clic obligatoire (lancer une macro manuellement). Tout doit être transparent.
Le personal.xls (lancé à chaque démarage de excel) contient cette classe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public WithEvents App As Application
 
Private Sub App_WorkbookOpen(ByVal Wb As Excel.Workbook)
 MsgBox "open", vbInformation + vbOKOnly, "open"
End Sub
 
Private Sub App_WorkbookSave(ByVal Wb As Excel.Workbook)
 MsgBox "save", vbInformation + vbOKOnly, "save"
End Sub
 
Private Sub App_WorkbookClose(ByVal Wb As Excel.Workbook)
 MsgBox "close", vbInformation + vbOKOnly, "close"
End Sub

Et pour attacher cette classe au workbook courant, j'ai cru comprendre qu'il suffisait de faire :

Code :

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

1
2
3
4
5
6
 
Private Sub Workbook_Open()
Dim AppClass As Classe1
Set AppClass = New Classe1
Set AppClass.App = Application
End Sub

Cependant il ne se passe rien, je pense que le la classe est attachée au fichier personal.xls et non au fichier ouvert.

J'espère avoir été plus clair dans la présentation de mon problème.