XL 2013 ThisWorkbook : code ferme et enregistre si, sinon exit sub

Usine à gaz · 8 Mars 2018

Bonjour à toutes et à tous,

J'ai un nouveau souci qui n'est certainement pas très compliqué mais je n'arrive pas à trouver où est mon erreur.
Je me permets de solliciter à nouveau votre aide.

Mon code dans le ThisWorkbook

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Select
If [b6] = "" Then
MsgBox "Merci de compléter la cellule B6 avant de quitter"
Exit Sub
End If
On Error Resume Next
ActiveWorkbook.Save
Application.EnableEvents = True
End Sub

Ce que je voudrais faire si B6 est "" :
1 - affichage msgbox
2 quitte la procèdure

Ce qui se passe :
2 Ne quitte pas a procèdure

quand je ferme le msgbox, excel me propose
d'enregistrer si modif et quitte ou quitte direct si pas modif

Je joins un fichier test,
En vous remerciant déjà de m'avoir lu,
Je vous souhaite, à toutes et à tous, une bonne journée,
Amicalement,
Arthour973

Lone-wolf · 8 Mars 2018

Bonjour Lionel

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Sheets("Feuil1")
        If .Range("b6") = vbNullString Then
            MsgBox "Merci de compléter la cellule B6 avant de quitter"
            Cancel = True
        Else
            Application.DisplayAlerts = False
            ActiveWorkbook.Save
        End If
    End With
End Sub

Usine à gaz · 8 Mars 2018

Bonjour Lone,

Tjrs là toi.
Un grand merci, ça marche super
Bonne journée,
Amicalement,
Arthour973

Lone-wolf · 8 Mars 2018

Très bonne journée à toi aussi

Usine à gaz · 8 Mars 2018

Merci Lone

XL 2013 ThisWorkbook : code ferme et enregistre si, sinon exit sub

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires