Afficher une fenêtre "message" lors de l'enregistrement du fichier

Bonjour le Forum,

je cherche une solution pour afficher une fenêtre "popup"/message au moment de l'enregistrement du fichier Excel quand dans un onglet spécifique (total centralisateur), en cellule E10 s'affiche le message suivant : "votre encodage présente des erreurs" (ce message est généré par un contrôle entre 2 onglets centralisateurs des totaux si le résultat n'est pas = à zéro).

Merci de votre précieuse aide,
Fran

Bonjour Froggyfran,

Si j'ai bien compris, dans l'évènement BeforeClose de ThisWorkbook, il suffit de mettre ce code

"Total centralisateur" étant le nom de l'onglet

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  With Sheets("Total centralisateur")
    If InStr(1, .Range("E10"), "erreurs") > 0 Then
      MsgBox .Range("E10")
    End If
  End With
End Sub

A+

Bonjour JExcel,

merci de votre réponse mais le code proposé ne répond pas tout à fait . Je me suis sans mal expliquée dans ma demande, je m'en excuse.

Je voudrais que quand on ferme/enregistre le fichier, un message s'affiche indiquant "erreur d'encodage".

Ce message ne s'afficherait que quand dans l'onglet "Total centralisateur", il y ait un message en cellule I10 qui affiche "erreur d'encodage - contactez votre fédé".

Fran

Bonjour,

En reprenant l'idée de JExcelFr et vos précisions :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ 
        Cancel as Boolean) 

    With Me.Worksheets("Total centralisateur")
    If InStr(1, .Range("I10"), "erreur") > 0 Then
      MsgBox "erreur d'encodage - contactez votre fédé", vbCritical, "ERREUR"
      ' Si vous voulez ANNULER L'ENREGISTREMENT, DECOMMENTEZ LA LIGNE SUIVANTE
      ' Cancel = True
    End If
  End With
End Sub