Discussion :

[delphinep]

Bonsoir à tous,
Je souhaite afficher une msgbox à 3 boutons losrque je clique sur la croix de fermeture du fichier excel. J'ai créé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeClose()
Select Case MsgBox("Avez-vous pensé à reporter les virements internes s'il y a lieu ?" & Chr(13) & "Attention ! ANNULER ferme sans enregistrer ", vbYesNoCancel + vbQuestion, "Pense-bête")
Case vbYes
    ThisWorkbook.Close savechanges:=True
Case vbNo
    ActiveSheet.Select
Case vbCancel
    ActiveWorkbook.Close
End Select
End Sub

Lorsque j'exécute la macro, j'ai l'erreur suivante : "Erreur de compilation : Membre de méthode ou de données introuvable".

Je ne suis pas habituée du code VBA alors j'ai besoin d'aide !!
En attendant de vous lire, merci pour vos réponses.

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Select Case MsgBox("Avez-vous pensé à reporter les virements internes s'il y a lieu ?" & Chr(13) & "Attention ! ANNULER ferme sans enregistrer ", vbYesNoCancel + vbQuestion, "Pense-bête")
Case vbYes
ThisWorkbook.Close savechanges:=True
Case vbNo
cancel=true
Case vbCancel
ActiveWorkbook.Close
End Select
End Sub

[delphinep]

Merci Mercatog pour ta réponse rapide.
Lorsque j'exécute la macro, il me demande un nom de macro (???)
Qu'est-ce que ça signifie ?

[mercatog]

Il faut la mettre dans le module de Thisworkbook
Dans l'éditeur vba
tu double clique sur ThisWorkbook
tu insère le code
tu sauvegarde ton classeur