Message automatique avant fermeture du fichier

[sebbbbb]

bonjour

ce code ne fonctionne pas.
voyez vous la raison svp
merci par avance

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Msg = "Avez-vous inscrit" & vbCrLf & "" & vbCrLf & " votre nom et la date de la dernière mise à jour sur la feuille accueil merci"
StyleBoîteDialogue = vbOKOnly + vbQuestion
Title = "Avant de fermer ce fichier,"
réponse = MsgBox(Msg, StyleBoîteDialogue, Title)
End Sub

 

[Jacky67]

Effectivement le coup des espaces...tout bête mais efficace
vois tu une solution stp ?
seb

Ou alors ........comme ceci..

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Sh As Worksheet
If MsgBox("SVP, MERCI CONFIRMER QUE VOUS AVEZ :" & vbCrLf & vbCrLf & "- Mis a jour la check list (avec date & initiales)" & vbLf & "- Mis a jour S.Wing" & vbLf & "- Actualisé l'écran du bureau" & vbLf & "- Envoyé L'email quotidien avec les prospects actualisés" & vbLf & "- Mis à jour l'eventuel hub system (youriss / eyefreight / DA desk)", 292, "AVANT DE FERMER CE FICHIER,") = 6 Then
ThisWorkbook.Save
Else
  Cancel = True
  For Each Sh In ThisWorkbook.Worksheets
  If UCase(Left(Sh.Name, 5)) = "CLIST" Then
  Sh.Activate
  Exit For
  End If
  Next
End If
End Sub

C'est volontaire d"avoir supprimer la ligne "ThisWorkbook.Save" ?
Je l'ai rajouter, elle permet l'enregistrement automatique sans avoir la demande de confirmation de Excel.
Si tu ne le souhaites pas supprime la.