Discussion :

[JayGr]

Salut,

J'ai bien suivi le tuto sur le site, je l'ai relu en long en large en travers mais là j'avoue ne pas comprendre...

Pourquoi le code suivant n'appelle jamais la fonction before close ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public WithEvents App As Word.Application
 
'-----------------------------------------------------------------------------------------------------------
'Traitement à l'ouverture du document / Initialisation du doc
Private Sub Document_Open()
    Set App = Word.Application
End Sub
 
'Avant de fermer :
 
Private Sub App_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
    MsgBox "Avant fermeture"
End Sub

Merci d'avance,

@+

[Ltspitfire]

Bonjour JayGr,

Le document_open doit être dans le "thisDocument" et le documentbeforeclose doit être dans un module de classe.

As-tu pensé à mettre :

Code :

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

1
2
3
Sub Register_Event_Handler()
    Set X.App = Word.Application
End Sub

dans un module ?

J'espère ne pas être passé a côté du problème.

Cordialement,
Ltspitfire

[JayGr]

Bonjour,

Merci . Mais je ne souhaitais pas mettre dans des modules.
J'ai fini par trouver, en fait, c'était un problème de syntaxe.

Merci .

@+