Evenement Save / BeforeSave dans word [Résolu]

[Radinu]

Salut à tous, voici mon problème, je développe un pseudo logiciel sous word avec VBA et j'aimerai déclancher des macros et autres userforms lorsque l'on sauvegarde un document word (exactement comme on peut le faire sous excel avec l'évenement WorkBook_BeforeSave).
Seul problème, les seuls évenements liés à un document word sont "New", "Open" et "Close"
Quelqu'un aurait t'il une idée pour pouvoir disposer de l'évenement save sous word??
Merci d'avance à tous ceux qui répondrons

[wape]

Bonjour,

Essaye d'ajouter ce code dans "ThisDocument" :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim WithEvents oWdApp As Word.Application
 
Sub Document_Open()
 
Set oWdApp = Word.Application
 
End Sub
 
Sub oWdApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
 
MsgBox "Vous allez sauvegarder le document " & Doc.Name
 
End Sub

Enregistrer les modifications, puis fermer et relancer Word. Vérifier également que le niveau de sécurité
ne bloque pas l'exécution des macros (cf. Outils > Macro > Sécurité).

wape

[Radinu]

Incroyable!!! j'aivais essayé plein de trucs différents trouvé sur le net, sans résultat et la... Ca marche Niquel!!
Impec, vraiment merci de ton aide, c'est exactement ce qu'il me falait

sinon, pour ceux que ca interesse, j'ai trouvé un truc pas mal sur le net qui permet d'avoir tout les evenements sous word.. mais en passant par l'utilisation d'un modèle .dot : tuto ici

Merci encore