Discussion :

[asari29]

Bonjour à tous,

Je rencontre actuellement un problème dans l'intégration de menu à mes applications en VBA Excel.

Jusqu'à présent, je construisais mes menu à l'ouverture du fichier et je les détruisais à la fermeture grâce au méthodes workbook_Open et workBook_BeforeClose.

Or, je viens de me rendre compte que la méthode workBook_BeforeClose est appelée avant la boite de dialogue proposant l'enregistrement du document s'il y a eu des modifications.
Résultat: Mon menu est effacé, la boite de dialogue s'affiche.
Problème, si je clicke sur annuler, je retrouve mon document mes le menu n'existe plus!!! (logique puisqu'il vient d'être supprimé...)

Quelqu'un connaitrait-il le moyen de contourner ce problème:

Ex: récupérer la réponse de la boite de dialogue de sauvegarde pour recréer le menu.

Merci d'avance

[asari29]

Bonjour à tous,
je répond à moi même pour que ça profite aux autres.

L'idée est la suivante:

la boite de dialogue de sauvegarde apparait après before_close lorsque la valeur workbook.saved est à false.

l'idée est donc de couper l'herbe sous le pied à cette boite de dialogue en créant ça propre boite de dialogue de sauvegarde mais cette fois ci directement dans la routine before_close.

Voilà le code:

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
20
21
22
23
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error GoTo errorHandler
 
    Dim X As VbMsgBoxResult
        If Me.Saved = False Then
        X = MsgBox("Voulez-vous enregistrer les " & "modifications apportées à " & ThisWorkbook.name & ".", vbExclamation + vbYesNoCancel, "Attention")
        Select Case X
            Case vbYes
                FermetureClasseur
                Me.Save
                Cancel = False
            Case vbNo
                FermetureClasseur
                Me.Saved = True
                Cancel = False
            Case vbCancel
                Cancel = True
        End Select
    End If
    Exit Sub
errorHandler:
 
End Sub

c'est sioux et ça reste propre

bonne journé à tous!