Récupérer le bouton sauvegarder en VBA

[rlapt]

Bonjour à tous,

 

Comment récupérer l'action sur les boutons et menus Sauvegarder et imprimer. Je souhaite avant de sauvegarder et d'imprimer lancer une macro VBA.

 

 

[winfield]

Salut,

Avec du retard :

Dans un module :

Public MaCommande As New clsEvenementObjet1

Public Sub Titi()
   Set MaCommande.MaCommande = ThisDrawing.Application
End Sub

Sub Hello()
   MsgBox "Le dessin s'auto-détruira dans 20 s."
End Sub

et dans un module de classe :

 Public WithEvents MaCommande As AcadApplication

Public Sub MaCommande_BeginCommand(ByVal CommandName As String)
   If CommandName = "QSAVE" Or CommandName = "PLOT" Then
       MsgBox "Le fichier est sauvegardé"
   Else
       Hello
   End If
End Sub

Bonne chance